h 



m 
m 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



19 
20 
21 
22 
23 
24 
IS 
26 



27 
28 



29 
10 

31 " 
32 



33 
34 
35 
36 



37 

38 



39 

40 



41 
42 
43 
44 
45 
«6 
47 



48 
49 
50 
51 



52 
53 



54 

55 

A. 



LABEL 000000OO0LINE 0017509??EXfcCUTE ESPQL/QISK 



F.SPOL /DISK 



■--g •••■■ 



■.v.'. 






: ."-. •• -. ' .V vV,W-Tir ;: " ■■■- ' ^ : '- i-..:*::.- ..-i t,: -y.t: .' .-' ■ -^v . :.t, . . ■■::■■:. 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 

37 

36 

39 

40 

41 

42 

43 

44 

46 

46 

47 

46 

49 

50 

51 

52 

53 

54 

55 

56 

57, 









• t 



10 



12 



ie 



19 



22 

24 
26 



26 



I 
o 
Q 



27 



90 
31 " 



13 



34 



36 



to 



43 



IS 



51 



S2 



54 



56 



LABEL 00O0OOO00PRIMEROO176022CC EX OB JECT/READ;F ILE 

srnr 



1500 
2100 



2900 
4100 
4700 
TTW 
5500 
5900 



PHMCEpUHE UU l PU T lNHfENI MUX* CM»KF> 

PROCEDURE INT«INS1C(0UPE# 0* NUM0IM* SUE* TYPEJJX 

PROCEDURE IKPUTINTCTCW* HlX* QKAOR* ACT*1 



squrcef ile*fi nop/ site; common* i; end* 

INSKHj FT? T HM T » HSXJJX 



OBJECT /READ 



PROCEDURE DISKS0RTCT1* T2> 
REAL PROCEDURE DUMPlNTCSN* 
PRQC EQURE XTOTHElMrCBASE* 



PROCEDURE 
PROCEDURE 
INTSOtR PROCEDURE CMUiWCxm 



RELA* ENDQ, BINGO' IPFIDX** 
CVV B'V'« TTPe#* 
EXPQN* M» LOG> EXP);» 



6300 I REAL PROCEDURE TIMElNTCX);X 
6700 l PROCEDURE SQRTINT<X);X 
7100 t PRQCEQURE SININTCX);X 



7500 
7900 
8300 




PROCEDURE ARWWCNIMOIX 
PROCEDURE LMiimxm 



8700 t REAL PROCEDURE EXPlNT(Xi;X 

9100 J REAL PROCEDURE GOTQSOLVERINT CL* X# F, BHX 

9600 I PROCEDURE ALG0LWRITE(TEN, FlLX, CHSKP, LNSKP* 

10500 I PROCEDURE ALGQLREADCfEN* FILX* DKA0D, ACT* FI* 

11300 * PROCEDURE ALOOtSELECTtACTl* ACT2# T*NK, I)JX 

HMO t PROCEDURE COBBLFCRlX 



FI> AEXPjX 



AEXP#X 



12000 
12200 
13400 



13900 
14300 
14700 

15300 
15800 
15900 



JPROCEDURE COBOLIO; 
» PR8CEDURE POLYMERGEC T 1 > T2» 
I PROCEDURE STATUSINTCT» C);X 
1 REM. PROCEDURE HAXlHf-tX>>X 



% 60 TO 02700000 
T3> END 8/ BINGO* 



IPFJ0X*X 



REAL PROCEDURE MJNjKTCXm 

"" DURE 



PROCEDURE 
PROCEDURE SI SO; 
INTEGER PROCEDURE 



SSO^finio 4 "*: WuImui 



160CC 
16100 
16200 
16300 
16400 
16500 
16600 
16700 
16800 
16900 
17000 
17100 



FORWARD; IINT#35VSEQ*08400000 

__ _ DELTACPl,F2)iXlNTI36,5£Q<0 0022300 
I TOCWUROcWl rORNAROI X INT* 37* 4EQ#O002^50O 

dyh a«i o m mmi t« : ■ a,* : ■. x * ■ ■ ■■■f m ■ 



i*roceoure 
: procedure 
* PRoCEbuRE 



5CA.«»CuP0PCD#PTR#UPDCCD»WlSCDU}»TiCA5ECCC.E*CHAR)l 
WC1 FORWARD) XlN T «H2>- 5EO*06420000 

compare; forward; xi nti43/seq#084 30000 
basicprintctype); 

PROCEOURE SNAPj 



procedure 
procedure 



* PflOCEBUHE 9NAPJ FORWARDS — EINT»45»5EO»00023 7 00 
» PROCEDURE 8A»I«JNPUH^YPE*)I 

* PRiCEOURE READATAMYPDI 

IHHdCEDU'RE 



JPROCEDURE 
JPROCEDURE 



ifaoo 

17300 

.trw 

17500 
17600 
17700 
TT8W 
*7V9® 
18000 
18100 
18200 
18300 
18400 



IPROCPUff 



»PR0CI 
*PR8C{ 

tPROel 



:pu«f 

iSSHh 



FT I N T 
"TT'O'UT 

DABS 



JPROCEDURE 
J PROCEDURE 



IPRfCftDUJIf 

IPHOCEDU R 

JPROCEDURE 
I PROCEDURE 

IPRUCtDURE 




18800 
18900 



JPROCEDURE 
JPROCEDURE 



_ToT 

TO I NT 
FLOAT 

SbS 

'TilE — 

DMQD 

QMAXl 

SJ0NV 

-or 

REALP 
AIMAG 



J 

I 
1 

T 

; 
; 

r 



kohwahd; 

forward; 

forward; 

TUWOffl 

F8«H# 

PoHwXM 

forward; 
forward; 



051 
052 




» 



rfRfif"" 
forward; 

FO RWARD ; 
is Afji; 




forward; 
forward; 




twf- 

XWF 
XWF 



XwF 

XWF 

XWF 



TIT 
XWF 
XWF 

~%W 

XWF 
XWF 



flj i r^ 



TwF 

XWF 
XWF 



XWF 
XWF 
XWF 



XWF 
XWF 

XWF 



XWF 
XWF 



TWT" 
XWF 
XWF 



9^ 



JSu 



22 



24 



30 



36 



30 



h 



10 



12 



13 



IS 



is 



21 



I 23 
24 



25 
I 26, 



27 



I 29 
» 



31 

I 32 , ■ 



33 



M 



36 



39 



46 



51 



>» 
M 



I M 



19000 

JJUflSL 



19200 
19300 



CMPLX 
CONJ G 



•PROCEDURE 
tPROCEOURE 



■Iff,,; 

IPRQCEBURE CEXP 

* procedu re 

IPROCEDU 



INJ< 

w 



forward; 

FORWAR D; 

mmm 




___ t procedure cfoQ rrcmmn 

19600 IPROCEOURE AlOGIO; FORWARD; 
19700 tPROcEDURE DLOGlo ; FOR WARD J 



X 075 

X 076 

TT~WW 
I * too 
u » is* 



X 



102 
103 
104 



-1MO0 iPftgCEOUSS PCQS I FSfWflpl I 107 

20100 IPROCEDURE CCOS I FORWARD; X 110 

20200 JPROCEDURE TANF ; FORWARD; X Hi 

20300 tPROCEDURE COTAN I FORWARD; X 112 

aosoo iPRocEWUf mmm i r$mm9t i it* 

20600 iPROCSOmtE 0AfAN2i FQflijARO* I Ut 

20700 JPROCEDURE ARS|N ; FORWARD; X 116 

20800 JPRQCEOURE ARCQS ; FORWARD; X 117 

20900 ."PROCEDURE SINH ; FORWARD; X 120 



21000 
21 tOO 




21300 
21400 
21500 



. . m i roRwARiM .. 



IPROCEOURE CSORf - TTORWARDT X 124 

» PROCEDURE ERF ; FORWARD; X 125 

tPRQCEDURE GAMMA ; FORWARD; X 126 

IPROCEOURE AIGAKAJ FORWARD) I .. %$f 



21600 

2i7oo t ^mc'OvMe urn 

21600 IPROCEOURE ORI 



21900 
22000 
22010 
22011 
220X2 
22013 
22614 
22020 
22030 



•PROCEDURE 

I PROCEDURE 

I PROCEDURE 

IPROCEOURE 

IPROCEOURE 

IPRQCEO URE 

IPftflcEDUftE 

i 

> 



I FORWARD; X 130 
I FORWARQI X 131 

cmpl ; forward; x i 32 

E QU I Vp; FORWARD; X 133 

f qr terr ; fqr ward; x 1 34 
maxjfOrwahd; 1 us — 

M|M1 PdRWAROi * 136 
IMOO; F ORWARQI X lit 

CdNciYJ 



22000 



F' OHWAHUj X 
PRBCEDURE COnCAT) 
PROCEDURE MATR lXDlDDLERCA/ 
PROCEDURE INVERTS, 



T415 

B# C> TYPE); 



22160 
22170 
22180 
22260 

■t wL 1m '•w ■» 

22 28 A 

nlh 

22288 
22289 

lilt* 
2??9* 
"22298 
22299 
22300 
22301 



« PROCEDURE INVER?«A, B'SJ 

I PROCEDURE TRANiP03E(A# 8)4 

I PRQCEOyHE .*#f*MXHULT4PLnA» B, C-U 

» PROCEDURE RANDoMfNuMBb H . ffTSTt? — 

I PROCEDUWE fortranfreeread; 

rPROCEDURE fl AS I CLOSE (F1LX ) i 

ifROCgO^PE TJ[W€ATTRieaiEttT*E#P#V»0*l*TN); VALUE T »I*V,0»fal HEAL \i,Z*l»in 

IPROCEOURE COiOLOEClNAUOftCTALCONVERTCA)! X INT #«#15W C0OE»O93O00O0 I 



! 
I 

I 

~r 
1 

1 

T 

I 

I 
T 

I 

I 

~r 
1 

1 



IPROCED 
IPROCEDURE 
I PROCEDURE 



FOttTilNFRlLWHllEC^oTLw^LM^^S); VALUE U 



% INT 
DTRTW*X7 



#•0152 

1N T EGLR 



I 

irrr 
» 



finname) forward; 
. . _ foutname; forwa rd; 

IKiSKSSf II3i ll> !I}!{f l x tt l J !V l ' i ^ l# ! i ^ 8> | , nj VAtUL di^2.li>lue2>pi ; i 

#i»ROeioyR£ rifluWi4t<jr^4t«^«i!tt£*ct#^J4.vH«t o#r»l*c*el*pli real o#r#l*ei 

•-—*■"•■"■ F0|tl8ACnfCif^Cl , fl#S#Fa#Fi»ifii- # ;||*tUI VALUE Q*F2>L»El#£2#Pl 
OflOLvAHW^FOiwff tn i •CUUUOVJOOOOO i*t<#.i 



IPROCEOUB 

t PROcED ' uR 



II 
r 



cDtBCv A H 5 ' fJ """t U R H A R D i I — CUUl«09S0OOOO — IN T <-?161 

» PROCEDURE COBOL tONONDSKi FORWARDIX C00E*O96000O0 INT f ■? 162 I 

iPRdcEDURE COBOL lODSKI FORWARPIX C 0DE'»097000O0 INT 1**163 I 

iPMfttouiir rsTfS^PT^ fORMftDJ I Cfc&E»^#l|00OOI iNT M#16* I 



If 36? ItWcfflBf cJIf^f^URWARD; 




VALUE 



REAL PJ*P2I 



X4Q36 



1 
? 
3 
4 
5 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

26 
27 
28 
29 
30 
31 
3? 
33 
3-4 
iH 

36 

37 

38 

39 

40 

41 

42 

43 

44 

4S 

46 

47 j 

4fl 

49 

Vi 

b' 

"" I 
52. 

53 

54 

55 

■SB 

57 






"V 



13 



IS 



; '7 
18 



20 



21 
22 



k 23 

24 

25 

)» 

27 

28 

» 

31 " 
| 32 

33 

34 
I 35 



36 
37 " 

I M 
39 



40 

I 41 



42 



43 

45 
46 

18 

49 " 

I * 

51 

52 

54 
55 



22700 
22900 



23700 
100100 
200000 



245200 
300100 
400000 



^30050 
«30«50 
500000 



iprocedure dynamicdialer(a,b,x,f) ; 

» procedure ranoomcnumber* base); 

iproceduRe swap; x oas 

tPROCEOURE At80U«ITE«?EN# FILX, CHSKP, LN5KP, FI> AEXP, 

tPROeCOURE QUTPUTlNT<TEN,fILX*CHSKP,LNSKF,FI»FRMT,LISX);X 

1 THE STREAM PROCEOURE WILL CONVERT THEX 

.■PROCEDURE ALG0LSELECTCACTl,ACT2#TANKVn; VALUE ACTl, ACT2, TANK, 1 1% 

« PROCEOURE INTRINSlcCDUPE>D/NUMOiM>StZE>TYPE);» 



XWF 



600000 
700000 
701800 

70i90d 
723900 
736300 
'37300 
762500 
776006 
800000 
816700 
817500 



.-PROCEDURE riL€ATTRlBWfI*nAN^i:RftU*OUHifVH#NAMMNFO#TEN) 
*™ L * U0U «50**PIUR# f»«0CfO«RE F|i£*?TRJlUTEMANOLER# F R 
IPROCEOURE ALOOLRCABCftWtyrUXi OKAOP* ACT* FI> AEXP, 

iDOncCn HDP TM£SljTTMX/Tr»i.r-Ti w m.» » •» n >o<r ^~I — — .. — — - - .. 



♦"PROCEDURE INPUTINTCTEN,FlLX,DKADR,ACT,FI,FRMT,LISX,EOFL,PARL);X 
J PROCEDURE DISKSOHTC 

« BOOLEAN OPTQG, * TRUE IF OUTPUT PROCEDURE 

I 



DESCRIPTION 

XWF 



COMMENT 
N COMMgMT € 
EGIN COMMLKI 



tt j*put procedure 

PROCEOURE; 



INPUT 
AIL OUTPUT 

I T UuTPUT ULE 



833600 
900000 
1000000 
1100000 
1200000 
13Q0Q00 
HOoOOO 
1500000 
16Q00 0Q 
1700000 
1830000 
1839000 

1*01000 
2001000 
2101000 
2*00000 
2300000 
2400000 
2500000 
2600000 
2650 000 
2696000 
2700000 
2767Q50 
T780000" 



T 

COMMENT IF INPUT FILE THEN OPEN IT* 

BEGIN COMMENT C ALL OUTPUT PROCEDURE 

PROCEDURE P0LYMER6EC 



DURE 

ThTR 



OR WR ITE 
TFffF 



in trinsic; 

procedure; 



OUTPUT 

IF procedure then 

PASSING ENP-OF-SQRT FLAG; 



» SEftJN COMMENT CALL OUTPUT PROCEDURE OR WRITE INTRINSIC; 
J BgaiN COMMENT OUTPUT FILE RATHER THAN O UTPUT PROCEOURE; 

1 BEGIN COMMENT CALL OUTPUT PROCEDURE PASSING END-OF-SOHT FLAG; 
tREAL PROCEDURE OUMPINTCSN,CV'BV, TIPEYTENS, ALFA, CHAR, FIEL'FORMT )>% 



XTOTHEII N T ( B A SEVEXPON # M# LOGVEXP )i% 
RQCEOURE STATUSIKTCT»C3| VALUE T ,CJ HEAL U IN T EGER 
REAL PROCEDURE A83|NT»<X>I VALUE x; REAL x;» 
REAL PROCEDURE SI0NIHHXM VALUE X; REAL Xi» 
INT L GER PROCEDURE ENTIEHINUx); VALUL^XJ REAL X;x — 
REAL PROCEDURE TIME I NT CX)7 VALUE XI REAL XJX 
PRO CEP U RE DELA Y INT (ARRY, MASK, TIME);* 

V*L~UT 



TT 



PRfiCEOURE 5«ftTiNT«XTJ 

SININT(X); VALUE 

COSINTCX)! VALUE 



PR8CEBURC 
JPRlCEOySE 

Aeal procedure 
procedure ln int cx > ; value xj 



Kr~wzmncnr 

x; real x;x 
x; real x;x 



XWF 



i 

J PROCEDURE LN * NT ( X fi V ALUE X ; REAL Kt X 

'REAL PROCEDURE EXP IN T C X ) ; VALUE X V REAL X; X 

I PRfiCEDURE aOTOSQLVEH4NTH#X,F#BJI* 

I REAL PROCEDURE MAXINf{X);X 
t REAL PROCEDURE MPtfW * J I * 
I PR6CEDURE SUPLRMUVEHINnSOHCE, 

ipRocEouRE cobolfcr; 

I PROCEDURE COBOL ATT J BEGIN X I NT # * 

% INfUINSXC NUMBER 



ULbl, ATXTttl 



e 165 
T*7 — 



r 

XWF I 
XWF I 

XWF I 

I 

xcjc 103H 



2800000 
2866 000 

2976020 

£$82500 
2V91260 



I PROCtDURE C§#OL0C J * msiuttaiw NUMBfcH \GT ~ — f 

I PfmcEDURE CUf #L 1.9* I 

l ??? e f?^?? f»ifteAC«»LQCK(Fnx < .OKAOOR,Fl,FMTnlSx.EDlTCODE*E0FL.PA RL) ; I 
»PR0CLDURE rTlNfFlX(FlL X,UKADUR,FI,FM|,LISx,EDlTCUDE,EOrL>HAHL); llN T Ubfti 
» PROCEDURE FTINT J" X 050 j 

W^ XINTP137I 

™®mimF : YmfT'——-—- i-ost ■-- — —■ — : — r 

ifmtmun Fa»TRA«FREEWRI?E(Fax#OKA0OR#R,W#LlSX#NI*NAMS,SU8S) UINT »153I 
IPR8CEDURE FINNAMCI % X jH t 



»procedu1e 



c 



3000000 i PROCEDURE DABS 

3100000 l PROCEDURE CABS 

1300000 IPROCEDURE AINT~ 

3300000 iPROfEouRf maIh; 

30QO0Q0 tPftOcfftURg X||j'$J 



rr 



~XT5T5* 
X 052 
X 053 
"OW 






3500000 
3600000 
3700000 



IPROCEDURE 
IPROCEDURE 
IPROCEDURE 



0£3 

iff*. 



IDINT 
FLOAT 
SNGL 



X 
X 
X 



057 
060 
061 



36 



57/ 



Z6 

to 

v Vi- 



ta 

90 
31 

a| 

33 
34 
38 

36 
37 
38 
39 

40 
41 
42 



56 



Mil 






3800000 IPROCEDURE DBLE ; 
39Q0000 IPROCEDURE AMOD J 

4000000 tPRflcEOUftE TIME ; 

4100000 iPRicEouic 0M00 I 
4200000 iPftQcCDttftE 0MAX1 1 
4J0O0O0 tHBflcEDuftE &M l Nl 



X 



062 
063 



4400000 rpRfleEmmE srswr 

4500000 t PR OCEDURE OS IGN 

agooooo iprjwedpe am* 



* 046 



INTRINSIC f 9065. 



4/00000 iPfliCE0Vf»C HCAtP I 
4800000 |P«fCEO««E AIMAQ I 



4V06060 iPROcEbURE CMPL>i 

5000000 t PROCEDURE CONJG 
Slooooo fpRocEbURE DEXP 

1100000 ~ trnmrnm^m 



5 300000 

sfioocca 
ssooooo 

5600000 
5700000 

"T860000 

5900000 
6000000 



IPWCEOURE 0L0<3 J 
IPRflCEOtiBS CLOfi I 

I PROCEDURE At. 00 ilO) 

•procedure ologio; 

I PROCEDURE OslKi J 
TpRfccTSWRf ' C5LN' 



T 

X 

X 
T 

X 

X 

x" 

X 

T 
% 

4;. 



070 
071 

Off 
074 

"otT 

076 
077 



tPROtiOwfE OCGS 
i*RS£SOi,*£ CCQS 



JPROCEOURE 
» PROCEDURE 



TANF 

COTAN 



; 



6100000 

6200000 

63QQ000 IPROCEDURE OATAN ; 

6400000 IPROCEDURE ATAN2 J 
' I PROCEDURE fAf m$l 
t PROCEDURE ARIlM i 
IPROCEDURE ARCOS j 

; 
; 



x 

r 

T 

I.- 

jb 
x 

X 
X 



1 



103 

Tot 

105 
"Iff 

mr 

fifl 




6700060 

6806000 
690 0000 

7W50W 

7100000 

7 200000 __ 

T300000 iprqcEdure ERF > 

7400000 iprocEdure gamma ; 

7500000 iprocedure algamaj 

7600000 "PROCEDURE AND! ; 



i PROCEDURE SINH 
IPROCEDU RE COSH 
"iPROcEDuSrTANH ) 
IPROCEOURE DSQRT J 
IJ^RQCEDUJIE CS9RT i_ 



♦ 

9--- 

x 

X 



111 

112 
13 



n 



I 



x 

1 
% 
% 
% 



120 
121 

HF 

*«3 

125 
126 
127 



7700000 



IPR0CE0UUE OR I 
IPRflCEDURf C«ii 



7900410 
8000000 




IPROCEDURE 
j PROCEDURE 
IPROCEDU RE 
tPRfCE^lf 



equivp; 
forterr; 

'MAX')' ' ' 



X 

* 

■ i'-f 

X 134 



RUNTIME ERRORS 



X 



8400000 
6410000 



I PROCEDURE C OH 

IPROCEDURE f 

IPROCEDURE SJSOJ X 35 

I PR ICE DURE SC A N C UP D POD » P TR> UFO C D D , HI SCO UWT * C A SE CODE , C H A R ) ; 



135 



#iT*l' '' v .w 

tranmlmhanuilhca/h); 



VALUE HI 



13 



X 117 

NWM8ER »HQt 
REAL H; ARRA Y 



AL*JJ XH64 



PHOCtOVRE COMPARE 




, V: 



8600000 



I 

I 

I PROCEOURE BASICInPu' 

I PROCEDURE MAT R I X D I D D IE R C A , B , 



Pftacgbufte reaData(typl); 

re fypes )) 



X043 



8700000 

8800050 IPROCEDURE MATRIXDIPDLERCA, B, C, TYPEJJX MAT ARITH INTRINSIC 

"Wool tPRocco imrn if wwmm*m **i* mathi -irmmFsvr-xm 

!??!iSS trnm%mmMmMm%mfaW**®*M* **% «atrik wwitiplication xxx 

majf¥dfflJ&o#K.../ 4 MMM>f^M^W.M^^M.^.A^^M^^K.M,A.ji..j.,&,.^,,^ > '..:' 



fooooo 

9300000 
9300200 



, ; 



I PRBCEDURE FORTRANFREEREAO I 

•PROCEDURE COBOLOECIMALTOOCTAICONVERTCA) I 

I X THIS PROCEOURE CONVERTS A STRING nF 



'Mii lik 



— -^^^__*- 



Jit. 



XX INTRINSIC 

K BCD DIRTTS. 



* 9151. 

STAWTTMR 



T 

I 

t 

r 

i 

i 

r 

I 

. . .. t 
r 

at imnnni 



17 
18 
19 
20 
21 

2: 

2: 

24 



27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3d 
39 
40 
4r 

-."2| 
4.3 



4 
€ 
I 
i 

i 
i 

i 
t 



47 
46 
49 
50 

5 



□ 



>r 



9400000 IPROCEDURE COBOLOCTOLTODEC IMALCONVERT C A * L'H* S# N# R* T ) J 
94QQ200 » % THIS PROCEDURE CONVERTS THE DOUBLE-LENGTH WORD 



9500000 iprocedure cq80lvarszj 
9600000 iprocedure cobolionqndsio 
9700000 iprocedure coboliodslo 



X INTRINSIC # 0152.1 
(L#H) INTO A STRING! 



X PRONOUNCED COBQLMQ-NON-OlSK 



9H00000 IPROCEDURE INTERRUPTED X EXECUTION K OftcED BY SOFTWARE INTERRUPT CODE ATI 
99990010 : STATE PROCEDURE WHATlNTRNSIC WILL PROBABLY HANG THE SYSTEM* I 

99998020 IPROCEDURE WHATlNfRI NSIC/ I 



LABEL 0O00OO00OPRINTEROO176022CC EX Q8JECT/READ IF ILE SOURCEPILE-FINDP/SITE KOMMQNsUEND* 



OBJECT /READ 



10 

I " 

12 
13 

I » 

15 

16 

I " 
18 

19 " 

I 2 ° 
21 

22 
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BURROUGHS 8-5700 ESPOL COMPILER MARK XV, 3, 00 



MONDAY* 04/07/75* 4(^4 PM, 



n 

2 
3 
4 
6 
6 
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9 
10 
11 
12 
13 
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15 
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17 
18 



OBJECT /INTRINS 

»»tII»t»1858tSE 



SMB^ZBa SS 



* SET LIST 



0000*0 



COMMENT ***** 4/7775 TJP *****) 



C 0Q00»0 



S SET TAPE SINGLE LIST 

% IN T H I IN SI C S 



MARK XV. 3. 00 



U2/07/74 



C QQ00»0 
OOOOOOOC T 0000*0 



COMMENT: * TITLE* U5500/B570G MARK XIV SYSTEM RELEASE * 

* FILE 10* SYMBOL/INTRINS TAPE ID* SYMB0L1/F ILEOOO * 

* THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION * 



* AND. .1.3 NOT TO BE REPRODUCED' USED' OR DISCLOSED 

* EXCEPT IN ACCORDANCL ktlTH PROGRAM LICENSE OR UPON 

* WRITTEN AUTHORIZATION OF THE PATENT DIVISION OF 



00000010 T 
OOOOOOtl T 
00000012 T 



0000 to 
0000*0 
0000*0 



00000013 T 
00000014. T 
QQQOOQ I S T 



0000*0 
0000*0 
QQ QQ*0. 
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* BURROUGHS CORPORATION* DETROIT* MICHIGAN 46232 
* 

* COPYRIGHT (C) 1971* 1972 BURROUGHS CORPORATION 



00000016 T 

00000017 T 

00000018 T 



0000*0 

0000*0 

0000*0 



AA.320206 AA39318.0 



*; 



BEGIN 
DCFINt 



KTKLNu 



.5tf t, 



00000019 T 
OOOOOlOO T 
00000200 T 



0000*0 

0000*0 

0000*0- 



iNTOESCClNTOESCn * FLAGC INT0ESC1 & 85C1*41*7]} t, 
INTCALLCINTCALLl* INTCALL2) « P(INTCALL2 & 85tl»41*7]» 
INTCALi.lfC.OC) $, 



00000210 T 

00000215 T 

0000021 6 T 



000C*0 
0000*0 
CflQQtfl 



CALL INT 

COB OLD C 
FDHTEHH 



(CALLINTD 
la 9167 #> 
I* 9134 fir 



» PCCALLINTl .. * 85Cl*4l*7]*XcHfC0C) #* 



>J= T,i il tt. 

* 920 *» 

a 917 #» 
s_£Z2_JLt 



00000218 T 

00000219 T 
Q0Q0Q2 20 1 



0000*0 
0000*0 
0000*0 



EXPI 

LNI 
OFXPI 



00000221 T 

00000222 T 
e0 0?23 T 



0000*0 
0000*0 
0000*0 



ULOGI 
CABSI 
SINT 



a e 101 *» 

= 953 *> 

- 9H *f 



00000224 T 

00000225 T 

ooong?2<3 t 



0000*0 

oooo*o 

QOQO*n 



so«ti 

ATAN2I 
DMQQI 



■ §13 »» 

5 9iu ## 

■ P6S «* 



00000227 T 

00000228 T 
00000339 T 



0000*0 
0000*0 
OQQQ»Q 



OSINI 
OSURTI 

XTOII 



5 9105 *> 
= 9123 #* 

s 96 tt 



00000230 T 

00000231 T 

00000232 T 



0000*0 
0000*0 
0000*0 
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d_ 



CXTOII 
CQSI 

TANI 



« 956 %» 

s 915 *» 
• 9111 *» 



00000233 T 

00000234 T 

00000235 T 



0000*0 
0000*0 
0000*0 



ARCTANI 

UATANI 

ARSlM 



= 916 *> 
* 9113 *» 
« 9116 ** 



00000236 T 

00000237 T 
0Q000238 T 



0000*0 
0000*0 
0000*0 



GAMMA* 
EDITITC 



* *126 ** 
EOlUTl'ED 
E0ITIT1, 



lTlT2*E0lTlT3*E0lTlT4»E0I'riT5) * P(MK5, 
EOlTlTgjfEDIT IT 3> (■»!),( EDIT lT4?»(E0inT5)* 



00000239 T 

00000240 T 

00000241 T 



0000*0 
0000*0 
0000*0 



EDIT! 
WILL 



9153*8 
TCBUFFADDR 
EDIT THE V 



5tl»4il73»XCM#C0C> ** 

ESS#FIELDWIDTHCW)*TYPE»LQWPART»HIGHPART) 
ALUE (LQWPART'HIGHPART) INTO A FIElO 



00000242 T 

00000243 T 
00000944 T 



0000*0 
0000*0 
0000*0 



X STARTING AT 8UFFAD0RESS, EOltlT RETURNS THE ENDING 
X &0DRES5, THE WlfTH OF THE EDITED FIELO IS CONSTRAINED 
% TO jj CHARACTERS (JEPlTED VALUE IS RIGHT JUSTIFIED WITH 



00000245 T 

00000246 T 

00000247 T 



0000*0 

0000*0 

0000*0 



% LEADING blanks if n is larger THAN NEEDED) — BUT if-" 

% WtO» THEN EDITIT WILL ADJUST THE FIELD WIDTH TQ 

% ACCOMODATE FULL NUMERICAL SIGNIFICANCE* TYP£s? *> EDltlf 



* WILL CHOOSE BETWEEN REAL' INTEGER* AND DOUBlEFREC I*> IUn 

* IDITING (DOU8LEP«ECISION IS USED IF LOWPART*Q), 

% TYP£»1 «> USE ONLY .INTEGER* TYPE a 3 «> USE ONLY REaI* 



00000248 
00000249 
QOOOOgSQ 



0000«0 



* TYPE»4 => USE ONLY LOGICAL* TYPE=5 => USE ONLY 00u B LE- 

% PRECISION. 

CTC - 33'33» 1S»> , ___,_. 



00000251 
00000252 
OQOQ 025 3 



0000 
onon 



00000254 
00000255 
OOOOOtOO 



0000 
0000 
0000 



0000 
0000 

0000 



CTF 
FTC 
FTF 



• 18U3U5** 
« 33«18U5»» 
« 18<l8tl5»* 



00000400 
00000410 
0Q0 Q4 2Q 



0000 
0000 
QQQQ 



PEAL 



CF 
FF 

JUNK 



33*15.** 
18U5** 



00000500 
00000600 

000007QO 



0000 

0000 
0000 
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17 
18 
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22 
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28 
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NAME MEMs2* M*2* MEM0RY«2 ; 

real blmcntrl ■ 5; 

DEFINE 0UMPNOW(0UmFNOW1)*FCUUMFNOW1*0*48*CQM*D£L*D£L)«* 



00000710 
00000750 
00000775 



T 0000 
T 0000 
I OQOQ 



PROC ED URE 



TRACENUw(TRACEN0W1*TRACEN0W2)» 

H(TRACENQW1,1,TRACENQW2 * + * 48* COM* DEL* DEL )# * 
QUTPUTINtCTEM FI LX * CHgKP* iNSKP.f Tli FRMT* lux?;* 



START 



JLaL 



00000780 
00000785 

onooofloo 



T 0000 
T 0000 
jt OQOQ 



VALUE 
NAME 



CH8KP* 



LNSKP* FI* LISXJX 



OF Rel 
XwF 



SEGMENT; DISK 
00000900 



ADDRESS 
T 0000 

00001000 t — Q-a&o- 



00002 



ARRAY TENt* J* FRMU*];% 

REAL LlSX^i 

INTEGER CHSKP* LNSKP* Fi;X 



XWF 
XwF 

*WF 



OOOOUOQ 
00001200 
0001 30 



T 0000 
T 0000 
J 0000 
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FORWARD** CODE-28000000* INTRINSIC NUMBER** 
PROCEDURE INTRIMSICCDUPE* d* NUMDiM' SIZE* TYPE);X 



START 



*WF 
XWF 
OF REl 



OOOOUOO 
000015Q0 

segment; disk 



t 0000 

T 0000 
ADDRESS 



QQQOS 



VaLUE DUPE' U» NUMDIM, SUE, TYP£;X 
NAME 0** 
ARRAY 0UPEL*3;X 



XWF 

*WF 
_lWF_ 



00001600 
00001700 
Q0QQ18Q0 



T. 0000 
T 0000 



40 
41 
42 

43 



INTEGER NUMDIM* SUE* TYPDX 

FORWARDS COOE«32000000* INTRINSIC NUMBER** 2 
PROCEDURE INPUTlNT(TEN* FIlX, UKADH* ACT*» 



XwF 
XWF 

XWF 



00001900 
00002000 
00002100 



T 0000 
T 0000 
1 OQOQ 



FI' FRMT* LISX* EOFL' PAKl)* 1 * 



V ALUE 



ACT* Hit 



START OF REL SEGMENT* DISK ADDRESS 

XWF 00002200 T 0000 

£]BlE 00002300 T QOOO 



00002 



NAME FILX* LISX*% 
ARRAY TENC*3* FRMU*J;X 
RFAL EOFL* PARL** 



XwF 

*WF 
_X_WF_ 



00002400 
00002500 
00002600 



T 0000 
T 0000 
J QQ OO 



INTEGER DKADR* ACT* FIJ* 

FQRWARD'X CODE»36UO0OO0* INTRINSIC NUMBER"? 

prdcfdurf: qisksort(Ti, T2* rela* enda, bingq* ipfiox** 



XwF 

XWF 

JLUlL 



00002700 
00002800 
000 02900 



T 0000 

T 0000 

J QOOO 
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18 
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56 



0UTPR0* INPRO* 
TPl* TP2* TP3* 



START OF REl 
OUTF* INF* 0PT06* IPTOG* DkO* DKI*X XWF 
TP4* TP5* NT* HIVALU* E«UALS*X XwF 



VALUE 



R* ALFA, C0RESIZE* DISKSIZE);* 
OPTOG, IPTOG* NT* HIVALU* EQUALS* 
CORESUE* DISKSlZEjX __ 



R* ALFA,X 



XWF 
XWF 
XWF 



SEGMENT* DISK 

00003000 

0000 3100 



ADDRESS 
T 0000 
J OQOQ 



r Q0002 



Q 



NAME 
REAL 



TPl* TP2* TP3* TP4* TP5U 

Tl* T2* REUA* ENDO* BlNGO* JPFIDX* QUTPRO> lNPRQ,X 
OUTF* INF* DKO* DM* NT* HlVAUU* EQUALS* CQREsIZ£;X 
ALF^'X 



00003200 
0000330C 
O Q9Q 3 400 



XHF 
XWF 
XWF 



00003500 
00003600 
00003700 



T 0000 
T 0000 
J 0000 



boolean uptog* iptog* 
integer r* di5ksize*x 

forward) x c0des3940q000* 



INTRINSIC NUMBER"? 4 



XWF 
XWF 

XWF 



T 0000 
T QOOO 
T 0000 



REAL PROCEDURE DUMPINTCSn* CV* BV* TJP£*X 



TENS* ALFA* CHAR* FIEL* FQRMTm 



START 



XWF 
OF REL 

XWF 



00003800 
00003900 
00004000 



T 0000 
T 0000 
1 00 00 



0000*100 

SEGMENT) DISK 

00004gQ0 



T 0000*0 
A00RES8 • 
T 0000*0 



00002 



• • 



h- 
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VALUE 
NAME 



5N> CV> 

fiel;* 

SN* CV> 



BV* T{PE* TENS* ALFA, 
9V T IP E * T ENS/ A L FA* 



CHAR* FORMTJS 
CHAR* FQRMTJX 



FORWAROJX CQ0£»420Q000Q* INTRINSIC NUMBER*? 
PROCEDURE XTOTHEIlNT(BASE* EXPON* M« LOG* EXP)iX 



XwF 

*WF 



00004300 T 0000*0 
00004^00 T 0000*0 
OOWiQQ T OQQQtn 



VALUE 
REAL 



BASE* 

BASE' 

forward;* 



REAL PRQCEOURE *BSlNT(X);X 

value x;» 



ExPCiN* H* LUG* EXP;* 
tXPCN* M* LOG* EXP'* 

CQQEs42*54000* INTRINSIC NUMBERsg 6 



XWF 00004600 7 0000*0 

XwF 00004700 T 0000*0 

STabT of bei SEflMrNT; n r SK ^npRfSS m aonog 



XwF 
XwF 

JLwJL 



00004 800 
00004900 
00005000 



START 



REAL x;x 

FORWARD** CQOE* 
REAL PROCEDURE SJGNlNT ( X ) ; * 



XWF 

OF REl 
_»M£ 



INTRINSIC NUMBERS p / 



XWF 

*WF 
*WF 



00005100 
SEQUENT/ DISK 
ononsgoo 



0000*0 
OQOO'O 
0000*0 



00005300 
00005^00 
00005*500 



T 0000*0 

aooress « 

J QQQO'n 



• 0002 



0000*0 
0000*0 

oooo'o 



VALUE 
RFA L 



x;» 

XfX 



INTEGER 



forward*"* 

PROCEDURE 



COPE* 
LNTIERINICX)'* 



INTRINSIC NUM.BENo3.iQ 



START OF REl SEGMENT* DISK ADDRESS 

XWF 00005600 T 0000*0 
XwF 00005700 T 0non»n 



00002 



STAR T. 



VALUE 
REAL 



x;x 

kit 

FORWARD* 1 * 



*WF 00005800 

*WF 00005900 

OF REL SZftM EJNjJ D!SK 



cnpFs 



INTRINSIC MUMBFH»g1l 



XwF 

XWF 
*WF 



T 0000*0 
T 0000*0 
ADDRESS = 0Q002 



00006000 
00006100 
00006200 



0000*0 
0000*0 

oouotn 
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29 
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REAL PROCEDURE T I MElNT < X )* % 



VALUE 



x;* 



real 



x .* * 

FORWARD* X 



*WF 00006300 T 0000*0 

START OF REL SEqHENT J . DISK ADDRESS = 

1HE — _, r OQ0Q6400 T QQQQ*-Q- 



00002 



PHOCgnURF SaRTlNTfXJii 



CODEs 



INTRINSIC NUMBER»P12 



XWF 
*WF 
XWF 



00006500 T 
00006600 T 
00 Q,Q 6 f 00 



0000*0 
0000*0 
0000*0 



VALUE 
P EAL 



x;* 
x;* 



FORWARDS 
PROCEDURE SININTCX^X 



CQOE: 



INTRINSIC NUMBER*«»i3 



STARl OF REl SEGMENT; DISK ADDRESS K 00002 

XWF 00006800 T 0000*0 
*JlE Q00069 Q 



OQ OQ' O 



XwF 00007000 T 0000 * 

XWF 00007100 T 0000*0 

START OF REL SEfiHENTi DISK ADDRESS a nOnn2 



36 

37 " 
38 



♦0 
41 
42 



43 



47 
48 



49 
SO 



S3 

54 



56 



VALUE 
REAL 



x;X 
x*x 
FORWARD'* 



PROCEDURE COSInT(X);% 



CODE 8 



INTRINSIC NUMBER*?^ 



XHF 
XWF 
XWF 



00007200 
00007300 
OC007aOO 



0000*0 
0000*0 
0000*0 



VALUE 



_X!*_ 



REAL X*X 

FORWARO;X CODE' 
REAL PROCEDURE ARCTANINTC X) J X 



INTRINSIC NUMBER=Plb 



XWF 00007500 

START OF REL SEgMENT* DjSK 

X_MF 00007600 

%WF 



*WF 
XWF 



00007700 
00007800 
00007900 



T 0000*0 
ADDRESS b 
T 0000*0 



90002 



VALUE 
REAL 



XjX 

XjX 



FGRWARD/X 
PROCEDURE LNINT(X)iX 



CODE* 



INTRINSIC NUMBERb?16 



START OF REL SEGMENT* DISK 
XwF 00008000 

XWF OQOOBiOO 



0000*0 
0000*0 
0000*0 



value x;x 

REAL X;» 

FORWARD S CODE» 
EXPINT(X);* 



START 



XwF 
XWF 
OF REl 



REAL PROCEDURE 
VALUE X*X 



INTRINSIC NUMBER**!? 



XwF 
XWF 
XWF 



00008200 
00008300 

segment; disk 



START 



XWF 

OF REL 
XWF 



OOOO84OO 
00008500 
00008600 



adoress « 

T 0000*0 
T 0000*0 
T 0000*0 

T 0000*0 
ADDRESS 



00002 



00002 



Reau x;x 

; FORWARD** 



00008700 

segment; disk 
ooooaeoo 



0000*0 
t 0000*0 

T 0000*0 

T 0000*0 
ADDRESS * 
T 0000*0 



00002 



CODE* 
REAL PRQCEOURE^TOSOLVERINTCL 






INTRINSIC 
8 \}% 



NUMBEHsPgO 



XWF 

XWF 
XWF 



00008900 
OOOOVOOO 
00009100 



0000*0 

0000*0 
0000*0 
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IS 



VALUE L, X, F, B*% 
ARRAY F±±±il 



start of rel segment; disk address a 

*fciF 00009200 J OOOOJO 
*M QQ 0Q9^Q Q t 0000*0 



00002 



< 



REAL If -X# 8;X 

forward;* cqde« intrinsic number**21 
proceoure algqlwritecten, fllx, cnskf, lnskp, fi, aexp,* 



XwF 
*WF 
*WF 



00009*00 
00009500 
9Q0Q96 Q 



T 000010 
T 000010 
T 0000 »0 
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VALUE 



ARRY, LINESKIP, ChANSKlP* suprs, NUMWqS, tank);* 
C HSKP, LN SKP* FI> AEXP/ LINESK1P/S 



start of rel segment; disk address = 

*WF 00009700 T 0000*0 
* HF 00009600 T 0000*0 



00002 



chanskip, suprs* numwos, tank;* 
name filx» tank;* 

Array Tr*r*3> AftRvr«ii * 



*WF 
*W? 
SWF 



00009900 

oootoooo 
oeomioo 



T 0000*0 
T 000010 
4: 0000 tQ 
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INTEGER CHSKP* LNSKP, FT, Aexp* LINESKIP** 

chanskip, suprs, nummos;x 

FURWaRD;* CO0E826QOO00O, INTRINSIC NUmBER»?22 



*=C^PR0CE0URE ALGQlREAOCTEN* FILX, DKADD, ACT, Fl» AEXP#X 



*«F 

*WF 
*WF 



000 
000 
OOP 



10 200 
IO3OO 
1040Q 



T 0000*0 
T QQQQtO 
T 0000»0 



ARRY* EOFL* PARL, UKAQR* CODE* TANK))* 



VALUE ACT, Fi, «EXP, DKaUR, CODE' TANK;* 

NAME FlLX* TANK)* 

ARRAY TFhfJ* ARRYC*])* 



*WF OOOIO3OO T 0000*0 

START OF REu SEGMENT* OlSK aDORESS « 00002 

*_Mf- Q001Q6Q0 T QOQOtO 



*WF 
X.wF 
*WF 



000 

000 

QUO 



REAL OKADD, EOFL* PARL* DKADR, CODE;X 
INTEGER ACT, fit AEXP;X 

FQRWARD;i C QDE l3«QQ0QQQ , I NTR INSIC N U m BE R»^ 2J 



XWF 

XWF 
*WF 



000 
000 

OOP 



10700 
10800 
109Q0 



T QQOQ'O 

T OOOOJO 

_I 0000*0 



11000 

moo 
112QO 



0000*0 
0000*0 
QQQQ*0 



PROCEDURE ALGOlSELECtcACti, ACT2, TANK, 1),** 
VALUE ACT1, ACT2, TANK, lit 



START 



*WF 

OF REl 

Xw F 



000 

segment; 

Qua 



U300 

disk 

1UQC 



T OOOO'O 
ADDRESS * 

ji ooon'n 



00002 



name tank;* 

integer act1* act2* u* 

FORWARD!*- , CODE* 



INTRINSIC NUMRFRqg?4 



*WF 
*WF 
*W F 



000 
000 

QOQ 



11500 
11600 
1 1 7Q0 



T 0000 to 

t 000010 
t onontn 



PROCEDURE COBOUFCR;* 

"forward * * . . 



COOf 43000000.' INTRINSIC MUMBER»e2b 



START 



*WF 

of Rel 

-iWJE 



000 
segment; 

OOP 



11800 

DISK 

11900 



T 0000*0 
ADD R ESS m 

T 0000*0 



00002 



proceoure cobolioi 
forward;* 



* GO TO 02700000 
CQ0E«4323Q000* INTRINSIC NUMBER*P26 



START 



OF REl 

*WF 



000 
segment; 

OflP_ 



12000 

disk 

12100 



t 0000*0 
address * 

1 0000*0 



00002 



PROCEDURE P0LYMERGECT1, T2, T3, ENoQ, BINGO* IPFIUX*X *WF 00012200 T 0000*0 

START OF REL SEGMENT*- DISK ADDRESS « 
OUTPRQ* INPRO, OUTF, INF, QPTOG* IPTQg* UKO, pKi>> *WF 00012300 T 0000*0 



90002 



VALUE 



TPl* TP2# TP3, TP4* TP5* NT* HIVALU* EQUALS,* 

R, ALFA, CORESIZE* DISKSIZEH* 

OPTOG, IPTOG, NT* HIVALU* EQUALS, R, ALFA,* 



*WF 
*WF 
*WF 



000 
000 
000 



12400 
12500 

12600 



T 0000*0 
T OOOOIO 
T 0000*0 



NAME 
REAL 



COBfc&UE* DISKSIZEU 

TP1, TP2, TP3, TP4* TP5;* 

Tl* T2' T3* ENOQ* BINGO, IPFIDX, OUTPRQ* INPRQ,* 



*WF 
*WF 
%WF 



000 

000 
OOP 



127PP 
12800 
12900 



T 0000*0 
T 0000*0 
T 0000*0 



45 
46 
»7 
48 
(9 
50 
51 
52 
53 
54 



QUTF* INF# OKO* DKi» W* MlVALU' EQUALS* R# CORESUe; *WF 

boolean optog, iptqg, alfai* *wf 

integer oisksue;* *w^ 



000 
000 
000 



13000 
13100 
13 20Q 



T 0000*0 
T 0000*0 
T 0000*0 



FORWARD)* CODE»«01«0000» INTRINSIC NUMBER««'27' 
PROCEDURE STATUSINTCT, C»% 



START 



*WF 
*WF 
OF REL 



000 

000 

segment; 



13300 

13400 

DISK 



T 0Q00*0 
T 0000*0 
AOQRESS s 



00002 



VALUE T, C** 
REAL T;* 
INTEGER CJ* 



XWF 
*WF 
XWF 



000 

000 
OOP 



13500 
13600 
13700 



T 0000*0 
T OOOOIO 
1 00 00*0 



forward;* code* 
real procedure haxl'ntc x>**" 



INTRINSIC NUmBER=$3Q 



START 



*WF 
*WF 
OF RE L 



000 
000 

segment; 



13800 

13900 

DISK 



T 0000*0 

T 0000*0 
ADDRESS » 



Q0002 



56 

5. 



VALUE XJ* 
REAL XI I 
F§R»iA«0** 



CODE* 



INTRINSIC NUMBER»P31 



*WF 
XWF 

iwf 



000 

000 

JIM 



1*000 
14100 

142J0JL 



T 0000*0 
T 0000*0 
T 00 0*0 



• • 



10 

11 

12 

13 
14 
IS 
16 
17 



18 

19 
20 



21 
22 



23 
24 
26 
28 



27 
28 



29 
JO 



31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 



41 
42 



45 
46 



47 
48 



49 
SO 
51 
52 
53 
54 
SS 
56 



REAL PROCEDURE MINI NT C X ) ; X 



VA LUE 



xjjj 



START 



real x;x 

forward;* CODE" 

PRQCFDURF DEI AY INTC ARRY* MASK, 



*WF 

OF RE|_ 
»HF 



T1 M DJX 



INTRINSIC NUMBER"* 32 



*WF 
XWF 
*HF 



000H30G 

segment; disk 

QOQHflQO 



0001*500 
00014600 
00014700 



T 000010 
ADDRESS * 
JL 0000 *n 



00002 



0000 1 
O&OO > 
OOQOtf) 



VALUE ARRY# MASK/ TIME/* 
ARRAY ARHYC»i;» 



real masku 
integer time** 
forward;* 



START Op REL SEGMENT; DISK ADDRESS « 00002 

*Wf OOOHaOO T oooo»o 
Ui£ OOOHQOO t ononin 



CQDF.« 



.PR8.CE0U.RE SUPERMOV£HlNT(SORCEr DEST* AEXP);* 



INTRINSIC MUMBFR*g33 



XWF 
XwF 

JML. 



00015000 
OOOlSiOO 
000l5?0fl 



000010 
0000 to 

QQQOtn 



— ■ i fc..ft,L» W ilp 1 



afxp;* 



ARRAY S08CE£*U DESTC*];* 
INTEGER AEXPU 
FORWARD* CDDF» 



*WF 00015 300 T 0000*0 
START OF rel segment; DISK ADDRESS * 
— — — X-w-E Qnois/inn j ooooiq 



00002 



TNTRTNSTC MUMBCR«» ? tt 



PRBCEDURE SISq; FORWARD; *LNT#35,S£QfOe«Q0Q00 
INTEGER PROCEDURE QElT A( PI , P2 j ; « I NT* 36* SEQ#000>g^o >VV^ 



XWF 

XWF 
»WF 



00015300 
00015600 

nonivno 



START OF REL 



00015800 

segment; disk 

0001590C 



0000 >0 
0000*0 
0000*0 



T 0000*0 
ADDRESS « 
T 0000*0 



00002 



VALUE P1*P2; 
PROCEDURE ICVO; 



integer pi#P2; forward; 

FORWARD; *lNTg37,SEQ*00Q225nn 



start of rel sEqment; disk adoress ■ §0002 

06015950 T 0000*0 
Q00l6n0n t onnntn 



PROCEDURE DYNAMICDlALERCBf A, X, F); 



value b# a» x, f; 

integer b, a* x; boolean f; 

FORWARD;* COOE»O0Q227Q0> 



INTRINSIC nUmBER«E40 



PROCEDURE SCAN(UPDPOD#PTR#yPDCpU,hISCpuNT#CASECOOE#CHAR); 
VALUE PTR* MISCOUNT/ CASECGUE, CHAR; 



START Of REL SEG M ENT; DISK aDD r ESS « 80002 

00016100 T 0000*0 

START Of REL SEr.MFNT; nrSK Ap R f SS » ?nr)C) ? 

00016110 T 0000*0 
00016120 T 0000*0 
00016130 T 0000*0 



name updpdd# 
Integer ptr» 
forward; 



upocdd; 
miscount* 



00016200 t 0000*0 

START QF REl SEGMENT; DISK aDDRE s S ■ 

-^ 0001621 t onoofn 



00002 



CASECQDE, CHAR; 



procedure repl; forward; 

PRQCFDURE COMPARE JFURH'aROJ 



*INT#42,SEQ*08420000 
XInT#43»SEQ* 08430000 



00016220 
00016230 
0®0l6g40 



00016300 
START OF REl SE S MENtJ DjSK 

QOO16/1OO 



000010 

OQOOlO 
0000*0 



T 0000*0 
ADDRESS * 00002 
I OQ0Q*0 



PROCEDURE BASICPRINT(TVPE); 



VALUE TVPt; 

real tyre; 
forwaRd;* 



START OF REL SEGMENT* DISK ADDRESS * 00002 

00016500 T 0000*0 
START OF REl SEQUENT* DISK aOQRSSS ■ Q0QQ2 



CUDL*0flSOO00Qj> INTRINSIC NUrtBER s 044 



PROCEDURE SWAP; FORWARD; XI NT#45VSE0*O0O2370O 
PROCEDURE BASICINPUT(TYPES); 



00016510 
00016520 
00016530 



0000*0 
OOO'OIO 
0000*0 



value types; 

real types; 

forward;* 



00016600 t 0000*0 

START Op R£L SEGMENT* DISK AOD R ESS ■ 

0Q0167Q0 T OOOOtQ 

START OF REL SEGMENT; DISK ADDRESS 



00002 



CODE*08?00000# 
PROCEDURE READATA^TTPE); 



INTRINSIC NUM8ER»t?46 



DISK 
00016710 
00016720 



a 
0000*0 

0000*0 



00002 



value type; 
real type; 

FORWARD)*"" 



START 



00016730 T 0000*0 
00016sO0 T 0000*0 

Of rel segment; disk adqRess « 60002 



PROCEDURE FTlNT f 



CODE S08600000/ INTRINSIC nUmBER«?4? 



F 



'A:.*'..-.rAJ 




* 050 

* 031 



00016810 
00016820 
000168 30 



000010 
0000*0 

0000*0 



06016900 T 0000*0 
START OF REL SEGMENT! DISK ftBOKfS' - 60002 

09017000 T OOOOtQ 



12 

13 

,4* 

15 

16 

, 7 I 

18 



20 ' 

21 

22 

23 ' 

24 

25 

26 I 

27 

28 

29 ( 

30 

31 

32 i 

33 

34 

35 4 

36 

37 

38 i 

39 

40 

4,1 

42 

43 

44 ( 

45 

46 



47 
48 
49 
50 
51 
52 
53 
54 
55 
56 

_3 



11 



• • 



START OF REL SEGMENT* DISK ADDRESS = «0002 

OOOl/jOO T 0000*0 
ST A RT U F REL SEGMENT/ DjSrt ADDRESS s 0Q002 



00017200 f 000010 
START OF REL SEGMENT; DiSk aQ0RE Ss » Q0002 

nnm 7 3 nn > .fl0ani-«v 



START UF REL SEGMENT; DlSK ADDRESS ■ 00002 

00017400 T 0000*0 
ST A RT U F REl, SEGMENT* PiSK aPQReSS ? QQQ02 



00017500 t 0000*0 
START OF REL SEGMENT; DISK ADDRESS m 80002 

00017^00 t QOQQ*n 



STAR! OF REL SEGMENT; DjSK ADDRESS » 00002 

00017700 T 0000*0 
START OF REL SEfiMENTJ DTSK ADDRESS s QOOQ? 



00017800 T 0000*0 
START OF REl SEGMENT; DISK ADDRESS » Q0002 

00017000 T Q0QQ?0 



START OF REL. SEGMENT* DISK ADDRESS * 80002 

08018000 T 0000*0 
STA RT O F HEl, SEGMENT/ DISK ADDRESS s 00002 



00018100 T OOOO'O 
START OF REl SEGMENT; DiSk ADDRESS 8 00002 

" QOOiagO O T 0000*0 



START UF REL SEGMENT; DlSK aODRESS. * 00002 

OOOU3OO T 0000*0 
S TART UF REL SEfiMENT; PjSK aQnRFSS ■ Q0QO2 



OOOI84OO T 0000*0 
START OF REL SEGMENT; DISK A DD R ESS ■ 00002 

00018*00 j 0000*0 



start of rel segment; disk ADD R ESS b 00002 

00018600 T 0000*0 
START OF REL SEGMENT; DTSK ADDRESS » 00002 



00018700 T 0000*0 
START OF REL SEGMENT; DISK ADDRESS * Q0002 

OQOlBflOO T 0000*0 



START OF REl SEGMENT; DISK ADDRESS = 00002 

080)8900 T 0000*0 

start of rel segment; disk address » 00002 



00019000 T 0000*0 
START OF REL SEGMENT; OiSk ADDRESS « 00002 

00019<00 T Q QQ Q* Q 



start of rel segment; disk address s 00002 

00019200 T 0000*0 
STA RT Q F R EL S EGMENT; DiSK aQDRFSS ■ 00002 



00019300 T 0000*0 
START OF REL SEGMENT; DISK aDOReSS « 00002 

00019400 t 00 00*0 



start of Rel segment; disk ADD r ESS a 00002 

00019500 T 0000*0 
START OF REL SEGMENT; D T SK ADDRESS m 00002 



000 19600 j 0000*0 
START OF REL SEGMENT* DISK ADDRESS * 00002 

00019700 T 0000*0 



START OF REL SEGMENT* DISK ADDRESS s Q0002 

00019800 T 0000*0 

START OF REL SEfiMENT; DTSK ADDRFSS « 00002 

00019900 T 0000*0 

START QF REL SEGMENT* DISK ADDRESS • 00002 

onoaoooo t ooootn : 



• • 



ft 

2 
3 
4 



10 

11 

12 
13 
14 
15 



16 
17 
18 
19 
20 



21 
22 
23 
24 
25 
26 
27 



30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 



49 

SO 



51 
52 



PROCEDURE DABS ; FORWARD; % 052 



PROCEDURE CABS ; FORWARD; * 053 
PROCEDURE AINT * FORWARD; % 054 



PROCEDURE MATH ; FUNWARD; * 055 



PROCEDURE XTOI i FORWARD; % 056 
PROCEOURE IDIMT ; FORWARD; % 57 



PROCEDURE FLOAT i FORWARD; % 060 



PROCEDURE SNGL J FORWARD; * 061 
PROCEOURE OBLE ; FORWARD; % 062 



PROCEDURE AMOD ; FORWARD; % 063 



PROCEDURE TIME ; FORWARD; % 064 
PROCEDURE OMOO ; F QRWARD; % 65 



PROCEDURE OMAxl ; FORWARD; % 060 



PROCEDURE 0MIN1 ; FORWARD; % Q67 
PROCEDURE SIGNV i FORWARD; % 070 



PROCEDURE OSIGN ; FORWARD; % 071 



PROCEDURE DIIM i FORWARD; X 072 
PROCEDURE REALP ; FORWARD; % 073 



PROCEDURE AIMAG ; FORWARD; % 074 



PROCEDURE CMPLX * FORWARD* % 075 
PROCEDURE CONJG ; FORWARD; % 076 



procedure oexp ; fokward; x on 



procedure cexp ; forward; % 100 
procedure plog ; forward; % 101 



PROCEDURE CLOG ; FORWARD; % 10.2. 



PROCEDURE ALOGIO; FORWARD; % 103 
PROCEOURE DLOGIO; FORWARD; X 104 



53 

54 



Procedure osin ;' forward; % 10s 



55 
56 



PROCEDURE CSIN * FORWARD* % 106 
PRO CED URE PCQS ; FQ R WARQJ % 1 07 



PROCEDURE CCQS / FORWARD; * 110 



START OF REl SEGMENT* DISK ADDRESS « ©0002 

00020100 T 0000*0 
START OF RE.L SEGMENT* DISK ADDRESS s 000Q2 



1 
2 

3 

4 
5 

6 
7 
8 

9 
10 
11 
12 



PROCEDURE TANF * FORWARD; % 111 
PROCEDURE CQTAN i FORWARD; % 112 



00020200 T 0000*0 
START OF REL SEGMENT; DISK ADDRESS * 00002 
Q O0PQ3QO T OOQ QJO 



PROCEDURE DATAlSi ; FORWARD; " % U3 



START QF REL' SEGMENT; DlSK ADDRE.S5... *...QQ0.02 

Q0.020«00 T 0000 '0 
START DF RE[ , SEGMENT; DtSk ADDRESS * 80002 



PROCEDURE ATAN2 ; FORWARD; X \\k 
PROCEDURE DATAN2; FORWARD; % 11& 



00020500 T 0000*0 
START OF REL 5EG»ENT; DlSK aODRESS » 80002 

QQ 020 600 T OQQ QtQ 



PROCEDURE ARSIN ; "'Fu'RHAHD; ' ..* 116 



START Op REL SEGMENT; DlSK aDD r ESS « 00002 

00020700 x 0000*0 
START Of REL SEflMENT; DtSK AnnRfSS a Q0002 



13 
14 

15 



PROCEDURE ARCOS ; FORWARD; % 117 
PROCEDURE SINH ; FORWARD; % 120 



00020800 T 0000*0 
START OF REL SEGMENT; OISK ADDRESS ■ 00002 
00020900 T 0000*0 



16 
17 



PROCEDURE COSH ; FORWARD; * 121 



START OF REL SEGMENT; DISK AODRESS * ©0002 

0002100C T 0000*0 
START OF REL SEGMENT; DISK ADQ RES 5 * Q -Q0Q2 



19 
20 
21 



PROCEDURE TaNH ; FQRWARO; % 122 
PRDCEpURE OSQRT ; FORWARD; % 123 



OOO2HO0 T 0000*0 
START DF REL SEGMENT DISK ADORESS ■ 00002 
Q00212Q0 T OOOOfO 



22 

23 
24 
25 
26 
27 
28 
29 
30 



PROCEDURE CSQRT ; FORWARD; % 124 



START OF REL SEGMENT; DISK ADDRESS a 00002 

00021300 T 0000*0 
START DF HEl SEGMENT? m$K ADDRESS = QQ002 



PROCEDURE ERF ; FQRWARO; % 125 
PPflCFnuRF GAMMA i FORWARD; % 126 



00021400 T 0000*0 
START DF REL SEGMENT; DlSK ADDRESS * 00002 
_ _ — _ 0Q021500 T 0000*0 



procedure algama; forward; * 12? 



START Of REL SEGMENT; DISK aDD r ESS * Q0002 

00021600 T 0000*0 
START Of REL SEbMfNT; DtSK A nnRfSS g 00002 



31 
32 
33 



PROCEDURE ANDI ; FORWARD; % 130 

PRncEnURE uri ; forward; * mi 



00021700 T 0000*0 
START OF REL SEGMENT; OjSK aODRESS » 00002 
. ono?i«oo t onoo*n 



34 
35 
36 

37 " 

38 

39 



PROCEDURE CMPL ' FORWARD; % 132 



START OF REL SEGMENT; DISK ADDRESS * 00002 

00021900 T 0000*0 
START OF REL SEGMENT* DISK ADDRESS s pQno2 



procedure equivp; forward; * 133 
PRpcEnuRE fqrter«;fqrward; % 13a 



00022000 T 0000*0 
START OF REL SEGMENT DISK ADORESS « 00002 

000?2010 T 000010 



40 
41 
•2 



PROCEDURE MAX; FORWARD; % 135 



START OF REL SEGMENT; DISK ADDRESS * 00002 

000 22011 I 0000*0 
START QF REL SEGMENT; O^k ADDRESS * 00002 



PROCEDURE MIN* FORWARD; % 136 
PROCEDURE IMOO; FORWARD; % 137 



00022012 T 0000*0 
START OF REL SEGMENT; DISK aODRESS » 60002 

0^O?2nl3 T Q O Q Q »Q 



46 

♦7 



procedure concat; FORWARD; % HO 



START OF REL SEGMENT; DlSK A DDRESS * 00002 

OC022olft T 0000*0 
ST ART OJLJRE X S&SM EM-J DlSK A D Q R ESS ■ Q0Q0 2 



49 
50 
51 
52 
53 
54 
55 
56 
B7 



PR8CEDURE CONCAT; 

forward; i 



CODE»06«00000, INTRINSIC NUMB£R»»1»Q 



00022.020 t 0000*0 

start of Rel segment; Disk aooRess » «ooo2 

"• 00022025 T 0000*0 



49 
50 I 
51 
52 
53 1 
54 
55 
56 * 



procedure ma.trixdioulerca.r b> c* type); 
value a* b* c, type; 



00022030 T 0000*0 
START OF REL SEGMENT; DjSk ADDRESS « 00002 
00022032 T 0000*0 



ARRAY 




At*}* bc*i« jcc*3; 



.:■#■„. 



C.QDEf08»P0QO0# INTRINSIC NUMBEft»»»«« 



00022034 T 0000*0 
T 0000*0 



• • 



2 

3 

4 

5 

6 

I 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



•0 
41 
42 
43 



44 
45 
46 
47 
IS 
49 
50 
61 
52 
S3 
54 



56 
5!_ 



PROCEDURE INVERTCA* B) 



VALUE 



B 



START OF REl 



ARRAY A[*3* BC *3I 

FQRWARDU C0DE»091000Q0, INTRINSIC NUMBER»*l42 
PROCEDURE TRANSPOSED B)J 



00022040 

segment; disk 

Q()02?n50 



VALUE 
ARRAY 



a, b; 

Af'3' 



START UF REL 



00022060 
00022070 
00022080 



T 0000*0 

address a 

X 0000*0 



00002 



B[*JJ 



FORWARD** ' CODE" 
PROCEDURE MATRI«MULTIPlYCA# 



089QQ000# 

B» cj; 



INTRINSIC NUMBEH*Pi43 



segment; disk 

00022090 
Q002?l00 



000010 
000010 
0000*0 



ADDRESS * 
T 0000*0 
4 0000*0 



00002 



VALUE A* B' C; 

array Ac*i* boj* cr*i; 

FOR^AKpiS C0Dts0900Q0Q0> 



00022 J 10 T 0000 '0 

00022120 T 000010 

START OF REL SEGMENT* DISK aOPRFSS » 



procedure rand0m(number# base); 
value number ; 



INTRINSIC NUMBER = P^ 4 



.00022130. 
00022140 



00002 



000.0*0 
00.00*0 

O QOQ'O 



REAL NUMBEH; 

integer baSe'j 
forward;* 



00022160 T 0000*0 

START Of REL SEGMENT* DISK ADD R £SS « 

00022^62 T 0000*0 



00002 



PROCEDURE FORTRANFREEREADi 
FORWARD;* COO£»09200000> 



C0DEsQ0022900^ INTRINSIC NUM8EN»ei45 



00022164 
00022166 

0002216a 



PROCEDURE BASICLOSt(FlLX); 
VALUE FILX; NAME FILXJ 



INTRINSIC NUMBER*gl46 



START OF REL 



00022170 

segment; DISK 

Q 2 217 5 



0000*0 
0000*0 
0000*0 



T 0000*0 
ADDRESS ■ 
T 0000*0 



60002 



START Of Rtl. 



BEGIN REAL SELECT^IA* AlGQLwH ITE»12; ARRAY 

REAL T#H ARRAY FIBt*J; NAME M«2; 
SUBROUTINE maybeprint; 



AIT*6C*3; 



00022180 

seqMemt; DISK 

002 218b 



T 0000*0 

aOdRlss. ■ 



00002 



BEGIN FIB**FH.X[not 2.3* 

IF F1BC53.C41 »3J«() THEN IN13T CLOSED-NOT INPUT 
IF FlB[43.[Bf43 NFQ 10 THFN XNQT OaTa rQM 



00022190 
00022J95 
OOQPSgQO 



0000*0 
0000*0 

ooon*o 



enq; 



IF FiB[203, [3*153*0 THEN * DATA LEFT 

P(MKSM'0»0*CFIBC203,C18*103+1)»fILX>aLGOLWRiTe); 



0002220b 
00022210 
00Q??21? 



IF .P(,FILA#LP0)«0 THEN »EOJ FILE CLOSE 

BEGIN I*»AITC03 + 1; WhlLE ( T ».= aIT t I * = 1-1 3 ) . C8 * 10 3 

1)0 IF T.mil THFN 



00022215 
00022220 
Q002?225 



0001*0 
0002*3 
0004*1 



NEQ 



BEGIN FILX*»MCMCT«C18«1533 
ENO ELSE XFILE RESTORE 
BEGIN MAYBEPRINT J 



Inx 43; maybeprint end; 



00022230 
0002223b 

00022241,! 



0006*1 
0008*1 
00tl*3 



end; 



PCMK3,2,0,CFILXCN0T 2 3 3 , 4, SELECT ); 
F I B L 3 I s F I B [ 8 3 * = F I B [ 2 3 : » F I B 1 2 1 3 * s ; 



00022245 
00022250 
00092355 



0012*0 
00 1 3 * 3 
0018*1 



END BASIC FILE RESTORE; ~~ ~~~ \ 

PROCEDURE FILEATTRIBUT£S(T»E>Q*V»G>I»TN); VALUE T»J#V»0>6; REAL D,G,I.EJ 



00022260 
00022265 
000222^0 



0020*0 
0025*2 
Q Q2 5*? 



T 

T 



0027*0 
0029* i 

0031*2 



00022275 T 0033*2 

SjZE" 0034 WORDS 

0rt02228o t ooon*n 



T , START Of REL SEqMENT; DISK ADDRESS - 

INTEGER V; ARRAY TN[*]; NAMfc Tj FORWARD; % CODE «• 0043000* JNT * P1S0 000?228l 7 0000*0 

00022282 T 0000*0 



00004 



PROCEDURE COBOLDECImAltOOCTALCQNVERt(A); % INT ' «»t)151» C0DEs09300Q00 



value a; name a; forward ; 

proceoure coboloctoltooecimalconvertca»u>h#r»n>s»t); 



START OF REL SEqMENt; PjSK 

00022283 
JLJNT *»Ei5g ooo?238a 



START QF KEL 
X C0DE«09*00000 

I* 



ADDRESS * 00004 

T 000010 

J QQ QOtO, .. _ 



value l>h,r,n,s,t; Real L#h*R,N*SM; name a; forward; ., -_--- UT . V w W u 

PROCEOURE FBRTRANFREEWRlTE(F»D*R*M»L*I*NtS); VALUE I'O'R'W'L; INTfGFR h 

... _ . _ ; START OF REL SEGMENT* DISK ADDRESS m 0000* 

ARRAY $E*J#Nt#3; FORWARD IXCQU *Q2976Gi9,INTei53 000222«7T 0000*0 



segment; disk address * 00004 

00022285 T 0000*0 
00022?86 T 0000*0 



w; real, i#o#l; n#me f; 
proceoure finnamE; forward; 



00022388 T 0000*0 



57, 



• • 



>r 



procedure fuutname; forward; 



START QF REL SEGMENT) DISK 

00022289 
START OF HEL Sj^jJEJjJJ DISK 



ADDRESS = 0000a 
T 0000*0 
D QHfSS * 0QQO4 



i 

2 
3 

4 

s 

6 

r" 

8 

9 
10 
11 
12 



PROCEDURE FTlNTFlXCFl,Dl>F2,F3,Ll>El#E2>Pl); VALUE 01 #F2,Ll »El#E2,Pl ; 00022292 T OOOOlO 

START Of HEL SEGMENT* OlSK ADDRESS » §0004 
REAL 01*F2*Ll»£l»E2*Pi; ARRAY F 3 1. * 3 i NAME fli FQRwAROJ % INTRINSIC P156 00022293 t 0000»0 

PROCEDURE FTOUTFIXCF'D/R*Q/L/E*£L v Pl); VALUE D>R>L#E>EL,PL' H EAL D'R'L'E. O.Q.0222«t T O.QU.QIQ 

START OF REL SEGMENT; DlS* aOQRe'SS m 00004 
'ELjPL' NAME F; ARRAY g C * 3 > FORWARD ; % CODE AT SEQ # 02666040. !MPl57 00022?9b T OOQO'O 



PROCEDURE FBlNBACKBL0CK(Fl»D'F2#F3,L'EWE2*Pl); VALUE 0* F2* L* El'E*' Pi * 

START OF REL 
REAL 0»F2*L*E1*E2»PU ARRAY F3£«3; NAME Fl# FORWARD; it INT » 9160 



00022296 

SEGWENT) DISK 
00022997 



T 0000*0 
ADDRESS ■ 9000A 
-I QQQ Q' Q 



PROCEDURE CpBOLVARS/i FORfcAKDJi CcDE*09500000 INT.#M16l 
PROCEniJRE COBPLIONOnDSk; UBMM11 CnDEs09600000 INT » g »l62 



00022298 T 0000*0 
START Of REL SEGMENT; DISK A QoR£SS * 

000?2?9tf T 0Q00»0 



00004 



10 

nl 

12 

13 

,4< 

15 

16 

17 I 

16 

19 

20 I 

21 

22 

23 I 

24 

26 

26 I 

27 

20 

29 ( 

30 

31 

32 I 

33 

34 

35 ( 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



13 
14 
15 



16 
17 
18 
19 
20 
21 



PROCEDURE COBOLIODSK/ FORWARD;* C0DE»0970Q000 INT #«*U3 



START Of REL SEG M ENT; DjSK aDOR£SS « 0000ft 

00022300 T 0000*0 
START OF REL SEGMFNTi DISK AOnRESS ■ 00004 



PROCEDURE FoRTRANMtMHANULERCA/h);VA|.UE h; RE A|_ H; ARRAY At *.) JFgR* ARD;*16ft 00022301 T 0000*0 

START OF REL SEGMENT DISK ADDRESS ■ 90004 
PROCEDURE CQBqLaTT; FqRhARD; % CUDE = 02650000 InT » = Pl65 *CJC 1031 QQ022302 T 'OOOQI Q 



PROCEDURE INTERRUPTER; FORWARD; * C00E»G98Q000Q; INT #*?166 



START OF REL SEGMENT) DISK ADDRESS * 0000* 

00022303 T 0000*0 
START QF RE L SE GME N T; DISK ADD R ESS * Q Q0Q4 




PROCEDURE CBBQLOO; FURwAHq; % CODE 3 02690000 INT #»*>167 
INTEGFR PROCEDURE DELTA <P U P? ) ; VA^UE H1,P?; REAL P_uii2i 



00022304 T 0000*0 
START OF REL SEGMENT; DiSk ADDRESS » 00004 
X»036 00022310 T 0000*0 



C BEGIN 



DffTNF 



START QF REl SEGMENT; DISk ADDRESS « 6000ft 

00022320 T 0000*0 

, 0002P330 T 0000*0 



DOT'Cleu33## AMPER=Cla:3SslJ]#; 

COMMENT P«000000"2*20* Which IS \ LaRgE r T H aN a NY 6500 
COMMENT D£lTAs2*2Q IF QLSC ( PI J XDESC ( P2 ? QR CSlZE-S ARE 



COUNT t ; 

*; 



00Q223«0 T 
00022350 T 
00022360 T 



0000*0 
0000 ! 
OOOOJO 



END 



IF CP2-Pl>. [31*173*0 

oelTa*p2.oot-pi,dot; 
oflTa; 



Then oelta*?40ooooo else 



00022370 
00022360 
00022390 



f 0000*0 
T 0003IJ 
X 00 07*1 



t^ 



PROCEDURE. ICVD/ 



JUL 



Sills 0008 WORDS 
00022400 T 0000*0 
QQQP25Q0 T QQQO*0 



37 
38 
39 



BEGIN 



START OF REL 
DEFINE OOT«U8ll33tf, AMP£R,C 18 :35 1 13 3», CS1ZE*C3H02 3* ,SIX»0#; 



segment; disk 

00022510 
00022S20 



ADDRESS * 
T 0000*0 
X OQOQtQ 



00005 



• 



40 
41 
42 
•3 



«7 
•8 



49 



53 
54 



55 
56 



ARRAY 5TRINGC*]! 

NAME M = 2; 

REAL PTR«-3* INTEGER N«»i; 



IF PTR.CSUE^SIX THEN P0HSH(M&iCl7»47l0n,9999»C0C^DEL); 
STRING ♦ MtPTRJi 

N»N; COMMENT MAKE SURE N IS INTEGERUEDJ 

IF N>8 THEN POLl Sri C M& 1 C 1 4 : 4 t i 01 3,N> CDC, DEL ) i 
PQLISH([STkTnGCCPTR,D0T + N-D.C35J10]]]# oed; 
STREAMCRESULf»QIS«-CSTR'lNfiCPTR.[iatlQ3 , ]3» N, __ 



00022530 

00022540 
00022550 



000225*0 
00022570 
00022575 



0000*0 
0000*0 
0000«0 



SKS«.PTR,[28«03)>J 
BEGIN . •' '' 

pi » loc sesult; 



00022580 
00022590 
00022600 



0000*0 
0004*0 
0005*2 



SI «« 
OS «■ 

end; 



s; si «■ 

n qct; 



si+sks; 



00022610 
00022620 
00022630 



0006*1 
0009*2 
QQl2»l 



0014*1 
0015*1 
0015*1 



PTR .■■'♦' Pi 



00022640 
00022650 
00022660 



0015*2 
0016*1 
0016*3 



EN0 ; 



00022670 T 0017*0 
00022680 f 0017*2 
nil* 0019 WORDS 






m • 



2 
3 
4 
5 
6 
7 
8 



PROCEDURE OrNAMICDlALEH(A»d»X#F) i 
V AL UE B' b> X, p; 



START OF KEL 



00022700 T 

segment; disk a 

_ 0002,2705 T 



OOOO'O 
DDRESS * 
0000*0 



00006 



integer b> 

BEGIN 



A# X; BOQi-EAN Ft 

% A*B'X>Y>Z ARE aS IN YS2U*8*X3. 

t F«TRUE a> X WAS LITERAL* AND TRB 



WILL BE DONE AFTER xlTlNG. 



00022710 T 
00022715 T 
QQ022 730 T 



0000*0 
0000 »0 

Qno om 



real y*-7# z»-6* c=+i > 
define q* v3hq3q0777777777/ #, 



MASK FOR 
REGISTER 



ZERO-ING 
PARTS Qf 



OUT 
-LHE- 



THE 
HCW, 



G#H»K&V- 



00022725 T 
00022730 T 

00022735 T 



0000*0 
OQOO'O 

oooo to 



JJL 



«■ 90053005500610065 •»' * NOP#OI A*0I8#TRB» 
Sa P0055703404.210435 *i X NQP#LlTC Y»S'TO»*lT, 
(a»awi n$ tB»aa<i na tx»xxi or x+a>48 nn x*a>4fl 



Q0022740 T 
00022745 T 

Q002275 T 



0000*0 
0000*0 
000010 



10 

11 

12 
13 
14 
15 
16 
17 



inc. 1 ' ru WJ'HO'Vunr » 

IF F THEN P(Q»ANU'04(B MOD 6 ) C4 : 9 I 33 * A MOO 6»DIB 7'TRB 3' 

- P&(6 JIV 6)il2:4b'33jA 01V 6*016 15MRB 3*QRj 0» Q> XI T ) I 

GO P(PtR)&(8 DIV 6H12'45*33»A OIV 6#0I8 24>TRB 3*P&(B MOq 6) 

Cl5l9j3]#A MOO 6, DIB 2/#TRB 3,P&X[ 3$ »42 t6], . A,*, S, •&> + » Y* l» C A J ) i 

EN D DYNAMKD lA U Eg^ : . 



000 22755 T 
00022760 ...T. 
00022765 T 



0006' 2 
000813 
Q 1 3 I 



00022770 T 
00022775 t 
0002283 T 



0016' 3 

0020U 

002512 



ZE* 0029 

OOOO'O 
000 2 2 65 T O O O O 'O 



si; 

000228.4.0 T 



WORDS 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 



PROCEDURE RANDOM(NuMBER> BASE); 



VALUE 



numb e r; 



START OF REL 



OOOO'O 
D DRESS * 

0002? 9? ST OOOO'O 



00022900 T 

segment; disk a 

12. 



00007 



REAt NUMBER* 

integer base* 

BEGI N IN TF. GfB !i*_ 



00022950 T OOOO'O 
00022973 t 000010 
0002^000 T OOOO'O 



REAL Ti 

IF CT is NUMBER MOD 1,0)>0 THEN 

BEG IN BAS E '» T, [9t 3 8i; P( RTN H 

IF NUMBER^O ThEN 
BEGIN T 8= H0LISHC1* 1* COM); 
N > = & T[ 10: 36*63 & T[ 16*42* 63 & T[22;3Q>63 



emd; 



00023025 T 
00023100 T 
Q OQ2315 Q T 



OOOO'O 
OOOO'O 
Q0Q?»1 



00023200 T 
00023250 T 
0002 3300 T 



0004»2 
0005' 1 
0007 '0 



& Cn,l30ll8 3)xPCDUP))C28t22»2Q3; 
END ELSE IF (N »* BASE)»0 THEN N »» P2631353020000* 
T *« 3 & (N«C10'26)X6137 + 21975 13 )[ 10* 12* 363 J 



00023350 T 
000234O0 f 
00023450 T 



G009»2 
00*2*3 
0017'p 



END 



POLISHCCUBASE 

RANDOM/ 



*■ T) OR 0.5) - 0,5) + PCDUP)* RTN)* 



00023500 t 

00023550 T 

Sjl 



0020«3 
00 23' 2 
ZE» 0028 



WORDS 



PROCEDURE SWAP* 



% 045 



START OF REL 



00023600 T 

00023700 T 

SEGMENT* DISK A 



OOOO'O 

OOOO'O 

OOBESS * 



9 00 8 



40 
41 
42 
»3 



BEGIN 



ARRAY A = "-2 [*#*], B = -1 [*>*]/ 

STREAM(A/ ti> CA*0/ C6<-0' F a* A . [ 18 > 15 3 > FB + B . [ 18 » 15 3 ) ; 



00023710 T 
00023720 T 
00023730 t 



0000*0 
0000*0 
0000*0 



«5 

46 
47 
48 
49 
50 
51 

52 

53 
54 



BEGIN 



SI 
SI 



a; 



CA 
CB 



si; 

AIL 



00023740 7 
00023750 T 

00023760 T 



0004*0 
0004»0 
0004*? 



46 

46 

47 I 

48 

49 

50 { 

51 

52 

53 I 

54 

55 

56* 

57, 



DI * LQC B; DI «- D J + 5 ; SKIP 3 DBI 

si * loc ca; si «• si+5; skip 3 sb; 

3C IF SB THEN PS » SET ELSE PS * RESET; 



SKIP SB)j OS » 2 CHr; 



00023770 T 
00023780 T 
0002379Q t 



QQOS'Q 
0005»3 
00 , 6 , ' 2 



oi * fb; si ♦ loc b; ds > 

DI ♦ LOC A> DI * DI+5; SKIP 3 DBI 
Ji ♦ _LOC_ CB>__S1 ♦ SI»5; SKIP 3 SB? 



00023800 T 
00023810 T 
0002 3 820 T 



000813 
0009*2 
OQ l O'l 



3CIF SB THEN DS ♦ 
DI'"* Fa* SI «■ LOC 



set else ds «■ 
a; ds «• wds; 



reset; skip sbj; ds *■ 2 chr; 



end; 



00023830 t 
00023840 T 
00238 5, T 



0011 10 
0013* 1 

0Q 1 4'0 



56 



eno swap; 



" ■:;■• 



■ •.-," .'•*''' »• - 






00023860 T 

5| 

00 2 3900 T 



0014*1 
Ze*?0Qi3 
OOOO'O 



WOROS 



>T 



COMMENT ALGOL WRITE INTRINSIC;* 

PROCEDURE AlGOLWRITECTEN* F1LX* CHSkP* LNSKP* FI# A£Xpf 



00024000 r 
0002^100 T 
0002420,0 T 



OOOO'O 
OOOO'O 
QQQQ'O 



%WF 



00100000 T 
OOlOOtOO T 



000010 
000010 



ST A RT QF R E|„ SEG M FNTI DISK frOQRESS m 00009 



AKRY* LINE5KIP* CHANSkIP* SUPRS* NUMWDS* TANK); 
VALUE LINESKIP* CHANSKIP* Sl'PRSf UU.MInDSj- TANK* 
CH$KP; LNSKP, FIf ARRYI 



*wF 
*WF 

JUf- 



00100200 T 
00100300 T 
00100/lOQ T 



OOOO'O 
00 00 JO 

ooooto 



INTEGER CHSKPf LNSKP, f\, AEXPf 

LlNESKIP# CHANSKIP* NyMWDS* 

n am e F ii x* tank; • 



SUPRSi 



XWF 
*WF 



00100500 t 
00100600 T 
Q1QQ7Q Q T 



000010 
OOOO'O 
0000*0 



12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ' 

32 

33 

34 

35 

36 

37 " 



ARRAY ARJ5YC*J» TEN[*J; 
BEGIN REAL SELECT >lVREEDsl 3, ADDRESS; % 

NAMF MEM*?;* 



XWF 



ooiooaou t 

00100900 T. 
Q101 Q P T 



00 001 
0000*0 
O O OO'O 



LABEL ABACTION; 

LA8EL 0S#WIN0UP1; 

ARRAY FPB»3r*}>FIB[*3 < HFADERt*3;% 



OOlOllOO T 
001 01200 T 
OMOHOO t 



0000*6 
000010 
QQQQ'O 



INTEGER If B.S.I2.EJ!* 
INTEGE R SPOUT> 

ARRAY TINK = "1 ANK[*3 j 



%WF 



OOlOUOO T 
O010U5Q T 
00101500 T 



0000*0 
0000*0 
0000*0 



real chnskp*chan3kip; 
real algqlwrit£*12; 

OFFINE FNUM » F l& C 4 3 . £ 1 3 : 1 H 



XwF 



#; 



00101550 T 
00101600 T 
QQ 1Q16 5Q T 



0000*0 

ooooto 

QQOO»0 



DEFINE IUD = C*7A|\K)#;s 
$ SET OMIT = NGTCTlMESHARIlvG) 
S SET CJMIT = 7lMFShARli\G 



00101700 T 
00101750 T 
00101799 T 



0000*0 
0000*0 
OOOO'O 



SUBROUTINE WAIT; PC TANK/ e2000Q00000#2*C0M* OEL»OEL ); % 
POP OMiT 
LABEL ERK,LP1,MT1,CL0SED,QK1>SP1,CP1,0C1,PP1;s 



0010*800 T 
00101801 T 
00101900 t 



OOOO'O 
0004*0 

0QQ4 ; Q 



label dcni»dcn2#spin; 

$ SET UMjt = NOT ShAREOISK 

SWITCH SWi«-ERa>LPi>Mfi*CLOSEDfOKi»SPl»CPi»LPl»PPl>ERR'OCi» 



00101910 T 
00101919 j 
00102000 T 



0004*0 
0004*0 
0004*0 



£RRfLPl#DCNi; 
LABEL LP2*MT2,DK2fSP2,CP2*0C2,PP2lX 
SWITCH SW24- ERR^LP2»MT2f ERR^QK2*Sp2*CP2»LP2f PP2*ERHf QC2f ERRf 



0O102010 T 
00102100 T 
00102200 T 



0004*0 
0004*0 
0004*0 



LABEL DSl»D 
SWITCH DSwl 



LP2f DCN2) 

Ri/bui;*" 

*D'si# DHif uli* Closed; 



ITfUWTf 019fR£LEASEfSTA*EXlT*Ll#WlNoUP'DBlT;X" 
» TYPEAfTYPEC;* 
♦TYfEU#TYP£A#ERKf TYPEC;* 



00102210 T 
00102300 T 
0Q1Q2400 T 



0004*0 
0004*0 
0004*0 



LABEL UTfPB 
LABEL TYPEU 
SWITCH TYPE 



00102500 T 
00102600 f 
00102700 T 



0004*0 
0004*0 
0004*0 



40 
41 
42 
43 



LABEL DS2*D 
SWITCH DSW2 
SUBROUTINE 



R2f0U2;* 
<-DS2#DR2f DL2;« 

block;* 



BEGIN GO TO TYPECI*FIBC33.U6*2J3;X 
TYPEC* STREAM(DUI00'S*(nUmwD5«-NUMW0S + 1)x8#X 
Q2<-(TANK[Q3»NUMWPS INX IQ0));» 



00102800 T 
00102900 T 
00103QQO T 



0004*0 
0004*0 
0004*0 



00103100 T 
00103200 T 
0Q1Q3300 T 



0004*0 
0008*1 
0010*3 



46 
47 
48 
49 
50 
61 
52 
53 
54 
56 
56 



BEGIN Sl*LOc S; DI*0I-8; DS*-4 DEC; DUDU* 
SI*C2; SUSI-8; DI«-DI-4j DS*4 chr;% 

Ei\d;e 



00103400 T 
00103500 j 

1 " i f iiMi A m W i n n ? 11 M i.M "" *■' " ■ ■ ' ' ' 



f ijpi A m W iiiW f 11 M jj ff ff ' " ' 



0012*2 
0013*2 
Q0,H*,2 



OWTI 



IF (FIBn7 3«-FIBH?3»NUMh0S)>RSliiE*i THEN BEGIN* 

Fi»t?3^FlBC73*il P(XIT)JX 
IF (FlB£l73»FlBC173fHSU£)2RSlZ£ THEN! 



O«UO370Q T 

00103800 T 
00103990 T 



00H«3 
QQ18U 
0020*2 



NUMWD 
TYPEUt END BLOCK; 



BEGIN TANKC03«-KSIZE INX 100/ GO OwT EnD EnOU 
S*FlBtl8), C18*lb3-FIBC173*CI«3);% 

% 



00104000 T 
00104^00 T 
00104200 T 



0023*0 
0025*2 
002 9 »0 



0029*1 
003010 



REAL JvSROUTlNE 

™* x 



OISKAOOSESSi* 



~Mi 



&mmi^M0JA iL_mj&w8Mis&tei m>**zm*wu t* z**i>* 



,04300 T 
00104AO0 T 

JL 



JJP 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



22 
23 
24 
25 
26 
27 
28 
29 
30 
31 



32 
33 



34 
35 
36 
37 " 



38 
39 



42 

43 ~ 



45 
46 



•8 

«9 
SO 

61 



IF (SUPK^AODRESS Q I V HE AOER C 1 ] ♦ 10 ) 2 30 

BEGIN PCOJJ GJ TO EXIT END; 
IF HEADEHCSuPRSJsQ THEN 



THEN 



IF HEAQERC9J>CSUPHS-10) THENX 

P(FP8tFNUM*3)*FP8tFNUM3#FPBCFNUM+13,SuPR3,HEA0ER# 
«M t » CON » PEL n QEL * DEL > DEL* DEL > DEL 1 ELSE 



00104600 
0010^700 
001048,00 



0033*1 
0035*3 
Qf)37tf) 



00104900 
00105000 

ontosoio 



0036*0 
004010 
0046*0 



BEGIN P(Oj; GO TO EXIT END** 
ADORE.SS*»lEADERtSUPRS3+5uPRS«-AODR.ESS MOD hEADERCUJX 
STRriM(U»rAf.DRESSl); BEGIN Sltp; DS»8 0£C LtiOJ P(1?J» 



00105100 
00105200 
00105300 



0048-1 
0049« 2 

QQ52U 



EXIT» OISKADORESS*P;X 
END OISKADDRESSJX 

TF TlNKsfl THEN 



*WF 



00105<|00 T 005410 
00105500 T 0054*1 
001 5 6 00 T 0054*3 



BESIN FIB ♦.. FILXCINUT 2U XWF 

IF FldC5].Cll:2]<2 THEN P(.MKS»"WRl TNG»,F lLX>?> SELECT > i 

IF FIB[5].[43*1J THEN , 



00105700 
00105703 
0Q1Q 57 10 



0057*2 
0059*3 
QjQ6_ 3 *0 



i SET OMTT 



PCMKS* CHSKP* 0# FILX# if SELECT)* 
IF LNSKP>1 AND ARRYSQ ANO C I»FJB[43 • [814] }'l 
NnT(TlMESHARlNG) 



00105720 
00105750 
00105752 



0064*0 
0066*0 
0069*2 



$ RESET QMIT 



AND in AND 1X12 AND If 13. THEN 
P(XIT)J*CARR1AGE CONTROL ON NON-PRlNTER FILE 



00105755 
00105756 

0010.5/60 



0069 
0073 
00 7 3 



RSUe » PCMKS* LNSKP, CHSKP* SUPrS* 



1ML. 



00105800 
00105900 
OQ 1 Q60 Q 



0074 
0074 

0074 



C-l)> FILX* ALGQLWRITE); 
IF AHRY<0 THEN SyPRS <■ 1 ELSE 
BEGIN IF ARRYiCS: 10 3>PCDUP* AEXP ) 



*WF 
*WF 



00106i00 
00106200 
010 * 3 00 



0075 
0076 

oo ^a 



THEN PCOEL'AEXPH 
IF PCOUPJiRSlZE THEN PCDED 
STREAMCP4 » CARRYC033* P3 » 



EL S E R^IZE 
RSUE* 



Pi 



SWF 
XWF 
XwF 



P2 «• PCDUP).C36:63» PI ♦ *FlLX)j %WF 

BEGIN SI *■ P4; OS «• P3 WDS; *WF 

P2CDS «. 32 *nSl PS 4- 12 wnsw Mz. 



00106400 
00106500 
00 106*00 



0082 
0083 

0086 



00106700 
00106800 
00106000 



0087 
0088 
0089 



end; 
end; 

IF RSIZE>0 



THEN P(MKS> LNSKP* 



XWF 
XWF 
*WF 



00107000 
00107100 

00107200 



0090 
009$ 

0091 



CHSKp, 
FlLXCNOT 

pcxit); 



3UPH5» RSIZE' FILX» ALGQLWHUe" 
4] «• FILXCNGT 33 ♦ 0; 



*WF 

XWF 
XWF 



00107 300 

ooio7aoo 
O Q1075QQ 



0092*3 
009«*0 
0097*1 



UT* 



end; 
fib*tankcnot 2j;x 

I»FlBt43 f CQ«43; RSIZE+F IBC 18 3 . C 33* 153 ;X 



XWF 



00107600 
00107700 
0Q107fl00 



0097*2 
0097*2 
0099*1 



SP0UTJs(Is5); 
$ SET OMiT s TIMESHARING 

IF PCI *DUP)XU AND PCXCH3/3 



AND CHNSKP.C2U3 THEN CHNSKP , [ FF 3 * *0> 



00107820 
00107840 
O0107fl50 



0102*1 
0103*2 
0103*2 



POP OMIT 

IF CHNSKP, £4*13 THEN 
BEGIN CHNSKP. [4U3»Qi 



00107851 
00107860 
00 1 07870 



0108*1 
0108*1 
0l09t0 



SET OMIT 

end; 

IF NUMWpS<0 



= NOT SHAREDISK 

then go to switiij go to sw2cn;x 



00107fl79 
00107890 

O01O7gOU 



LP1* 
X 

P 1 9* 



PP1* 



MTlt SPU CPU 

IF TOn.Cl9*l3 THENX 



00108000 
00 1081 00 
00108200 



0111*1 

0111*1 

.PUl'l 



0128*2 
0i28»2 
012 8* 2 



52 

53 
54 

55 

56 



PBIT* IF IOD.C2H3 THEN P(RSlZE'KTN) ELSEX 

IF 100. [25* 13 THENX 
CL O S E D* BEGIN 



00108300 T 
OOIO84OO T 
00108410 T 



0129*2 
0132*0 
Ql33«? 



FIBtl33.C27«l3«-0; 

IF U*<FPBCFNUMV33 ANO 

AND T/13 AMn 1«26 THFN 



31)3*10 ANO 1*12 

rmt33-t*5ni»o FfSg 



00108420 T 
00108430 T 
0B10fl44Q T 



0l34*0 
Ol36«2 

0i40*n 



• • 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 



Fia[53.U5U]«-HUANK[NOT 3J>DUP)/0 AND P(XCH)M5j 

P( MNK,0,li,,C0M/DEL>0EL) ; 

TF NOT FTBfS]. [451)3 ThEN GO UT 1 



PCTANKCNOT 33)1 TANKCNQT 33«-TANKtN 
PCMKS#9>8LKCNTRL*QEL) IX TAKE PARlT 
P(l); GO TQ ds; 



OT 4]»0 ; 

Y ACTION LBL BKNCH. 



00108^50 T 
00108510 T 
0mf)fl5l!i T 



00108520 T 
00108523 T 
00108*30 T 



0l45*3 
Olbl * 2 

Q 1 5 3 * 



015412 
15910 
l 60 < 



END ELSE 
IF ldo.«C27»l3 AND C 1 = 2 UR 1 = 7 OR I»8) 
B EGIN IK NDT FI6 U J y L2tl3 THEN* 



THEN* 



0Q10853S T 
00108600 T 
00108700 y 



016QJ3 
1.6. 6. .13 
l 6S »l 



BEGIN HEADER*TANKtNOT 13/HEA 
IF 1*7 THEN FIBC93.Cl»13*n X MULT 
l»FlBtl33.E28U03 + H» : 



DERC43.C42163«-i END/ 
I-REEL PBT FILE 



00108800 T 
00108850 t 
00108900 T 



016710 
Ol?l«3 
Q l7S* 2 



P(rtKS,6#0»Ci\lOr 2) INX 

FIBCU3 ,caa: ioi*i; GO 
END £LS£* 



tank, a, select );* 

TU CLUSEOU 



00109000 T 
00109100 T 
00109200 T 



0l77>2 
Q179.I 3 

9442X3 



ERRI 
OSt 



BEGIN 



P C 3 ) i 

P(TANK»XCH»11»C0H)J 



00109300 T 
00109310 T 
00109320 T 



016213 
0183H 

1 8312 



end; 

WAIT* GO TO PlilT/* 
HEAQER«-*CFIBCH3 J; 



OKU HEAQER«-*CFIBCH3 J; GO TO J^W 1 [ F I g [ 4 3 . 12 ( 1 3 3 ] i % 
DK2» HEAD£R**CFIBC1<»33J GQ To D*W2CFIBC4 3 , [27 l 3 3 3* X 
CP2« BLOCK; TANK[03*FLAG(FiB£16J)«CHANSKlPt32l47U3 
LP2* IF SUPRS THEN STREAHC RSIZ£jQ»I QQJ } BEGIN RSIZe 

CHANSKlP*CHANSKIP + LlNESKlP.C4b« I3i 



00109330 T 
00109^00 t 
00109500 T 



0l84»2 
0l84*2 

0l86<2_ 



; GO TO RELEASE** 
CQ$»8 LIT » ") ENDj 



00109600 T 
00109700 T 
00109fl00 T 



019112 
0l96'0 
019913 



CHANSKlP*CHANSKIP+LlNESKlP.C4b« I3i 

IF CHAiMSKlPXO THEN* 

BEGIN IF (i*FmU73"RS I Z E>> THEN* 



00109^50 T 
00109900 T 

oolioono T 



OgO^SO 
0205*3 
02 06 12_ 



STREAM(I*d*RSIZ£ INX lOo); BEGIN I(dS«-8 
END ELSE BLOCK;* 
TANKE83»FLAGCFlBCl6 3)4LlN£SKlP[27t47: l3&LlNgSK 



lit « ") end;x 

lP[28»46*l3* 



OOllOlOO T 
00110200 t 
00110300 T 



0209*0 
0213J2 
0215* 



SP2» 



GU TO 
PP2 t % 



4chanskip[29»44»4j«numwds18i38i10jj% 
release;* 



OOHO4OO T 
00110500 T 
00110600 T 



0217*0 
0.220*1 

220*3 



MT2I block;* 

PCTANKC0 3*FLAGCFIBCi6 3)&NUHW0SC8«38«lQ3>NUMWDS»XCH*INX*X 
t»37OQQOQ000000000»XCH>»);X 



OOHO7OO T 
00110800 T 

O Q 110 90Q T 



022013 
0222*0 
0325*0 



IF SPOUT THEN * 5P0 OUTPUT 

P(0#0#N0T*I00#INX#15#C0M,XIT) 



00U0910 T 
00110940 T 
0Q1 1099Q T 



0225*3 
0226»o 
0?2fl>3 



RELEASE* PCFL*G(FI8C193)4I 

WlNDUP* I«-Flgtl9J.C33U53 

FIBIi $ 3» [33»153 »S 



0DL3I3S53,TANK 
-FIUtt63,[33»l 
UPRS»MFWCPtDUP 



#PKL#OEL) 

53;* 

) INX NOT 



;* 

13.Cieil5]J» 



OOlilOOO t 
OOllHOC T 
O Q 1112 00 T 



0228*3 
0234*0 
02 361 3 



to 

41 
42 



FIBI193 ,133»1534.S 

WINDUP1S 
FiB[6]»FlB[63*j; 



UPHb+i;X 

FIBt73»FIBL7]+l* F I B [ 1 7 3 »F I B C 183.1 18 I 153;* 



0011130C T 
00111400 T 
00111500 T 



024152 
0244*0 
0244*0 



43 
44 
45 

46 
»7 
18 
49 
50 
51 
52 
53 
54 
55 
56 



PcxiT);* 

oun* 

osu if linesk|Pxo then* 



00111600 T 
00111700 T 
00111800 T 



0250*1 
0250*2 
0250*2 



BEGIN IF I0D»127U3 TmE 
IF FlBCinsFlBClS 
BEGIN CHAN_SKIP*FI 



XF OIpADOft 
IF IO0U19* 
IEQIN 



N GU to ab; 

3 . C IS : lb3 THEN 

b c / J ; * 



00111900 T 
00111950 T 
00112000 j 



0251U 
0253*2 
0255»2 



u* 



ess thenx 
13 Then obit* 



IF I0D.C2U3 THEN* 



08U2100; t 

08112200 T 
00112300 T 



0257*0 
0258*0 

26* *0 



S SET OMIT = NUT 



SHAREUISK 

MEM[F 
PCRSI 



IBC 16']]*'A00RES 
ZE'RTN); 



s; 



00112309 T 
0O112340 T 

00112350 T 



0261S2 
0261*2 
0263*1 



-■4"'' •■ *■■ 



T « 



ENO 

IF I0B»C25*13 THEN GO TQ CLOSED ELSE 

I SK : 



00112360 T 
00112400 T 



0263*3 
0263*3 



1112409 T 0265*1 



1 

2 
3 
4 
5 
6 
7 
8 



t SET OMIT = NOT 



BEGIN 
SHAREDISK 

GO ro 



AQi 



00 

00 

JUL 



2420 T 
2429 T 
244Q T 



0265*1 
0266»0 
0266*0 



END ELSE 

begin wait; 

BEGIN 



GO TO DBITJ END ELSE 



00 
00 
00 



2450 T 
2460 T 
2470 T 



0266>2 
0266(2 
026612 



$ SET OMjT = NUT 



ShAKEUlSK 

GO TO 

end; 



ABi 



00 
00 
OS. 



2479 T 
2490 T 
2 50^ T 



0269»0 
026910 
0?69lp 



end; p<rsi*e#rtn);x 

ENDJX 

P(MKSjCHANSkIP*4*TANKj1*SEL£CT>; GO TO LI J 



00 
00 



2600 T 
2700 T 
2fl00 T 



026912 
027010 

027010 



7 

9 

10 

" < 

12 
13 

M < 

15 
16 

."< 
18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 4 

27 

28 

29 { 

30 

31 

32 4 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 ( 

42 

43 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20^ 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



DS2; IF FlBC/]>HEAO£RC/J THEN HEADE 

BLOC*; TANKC0J<-FLAG(F1BC16J >; 
ORll IF LINESKIP/O THEN CHaNSK ir»F I 



RC7J*FIBC/];» 

go release;* 

bc7] else fib[7]»chanskip;x 



.Q.e 

00 
J3X1 



2900 T 
3Q00 T 

ALttfLX. 



Q272J0 

0275*1 
Q277I3 



IF HEA0ERC7KCHANSKIP THEN HEADER t 7J*CMANSK IP;X 
SET OMIT * NOT SHAREDISK 

IF FIBC53.U6123»0 THEN GO TO Llll 



IF DI.SKADD.MES.5. THEN* 
BEGIN FI6Cl6 3,t24U3ti;* 
SFT OMjT = SHAREQISK 



00 
00 

J3J1 



3200 T 
3249 T 
3?Q0 T 



028113 
028412 
QgSti'? 



00 

00 

-ttfl 



3400 7 
3500 T 
35 99 T 



028612 
028810 
0g9l»n 



POP 
S FT 



OMiT 
QMIT 



PCMKS#CHANSKIP+1M»TANK,REED»RTN);* 



1 iStflT SHA.RmlBK 



00 

00 

JXQ 



3600 T 

3601 T 
3649 t 



029i»0 
029310 
029310 



end;* 

SET OMIT 
G O TO 



■ NUT 

ab; 



SHAREO.ISK 



00 

00 

-Oil 



3700 T 
3749 j 

3800 T 



029310 
029310 
0293*0 



DR21 

$ SET OMiT ■ NOT SHAREDISK 
TAN«r;ni»ri kSk££lkUJtXlBJU2&L2Al 



1XL 



00 

00 

-00. 



3900 T 
3909 T 
3980 T 



029312 
029312 
029312 



P(FLAGCFietl9.J.)*I0DC3i 31 5Jfc.lt 271.47 U)»TANK#PRL»OEL);* 

SET OMIT * NOT SHAREDISK 

GO TO WINDUP;* 



00 
00 

Jin 



4000 T 
4049 I 
<HQQ T 



0295*3 
0299! 3 
Q 2 . 9 9«3 



0U2H FIBC51, t43123*2;* 

IF FlBC73>HEAOERC73 

block;* 



THEN HEADER C7 3*F1BC7 3; X 



00 
00 

-on 



4 300 T 
4*00 t 
4500 T 



030011 
030312 

030613 



CHAN SKIP*FIBC7J+FIBC13], C10I9] 

IF DlSKADDKESii fHENX 

BEGIN P(TANKC0J»FLAGCFIBC16])A 



xHEADERC03,[30»i2]i» 
0C24»24» 13*CNQT ) *XCH» 1NX , it 



00 

00 

00 



4600 y 
4700 T 
4600 T 



030810 
0311 J 2 
0313*0 



END 



ADDRESS, XCH#*) 
P(FLAGCFIBC193H 

EL SE* 



}% 

1£2<H47S13*TANK'PRL*0EL>J* 



08 

00 

-QJ1 



49OO T 
5000 T 
51 QQ T 



031613 
031712 

Q 320 M 



BEGIN TANKt03«-FLAG(FlB 
P(FL*GCFiHtl93)(i 

fnd;x . 



C 16 J 3&0t24l2«ll3;* 
1[24U4:43,TANK#PRL#0EL);X 



00 

00 

jm 



5200 T 
5 3 00 T 
5aOU T 



32011 
032310 
0325*3 



♦5 
46 
47 
48 
49 
50 
51 
92 
53 
54 
SS 
56 



GO TO 
$ SET OMrT 
DC 1M tf_ 



windup;* 

» n0t(timesharin 

mo.ci9m THEN 



G) 



00 

08 
-0J1 



5500 T 

5501 T 
560 T 



0325»3 
0326*1 
0326*1 



IF 100. C2* U THEN PCRSU£,R 
$ RESET QMIT 
ABI 1 8EGIN lF(ADORESS»TANKtl\UT 4 



TN> ELSE 

])8Q THEN GO ERR; 



00 

00 

-Ofi 



5700 T 

5701 T 
SflOO T 



032810 
033012 
3,30*2 



ACTION* t 



TANKCNOT 33*TA 
TANKt03 I* I0D 
P(AODR£SSjMKS, 



NKCNOT 4 

or mem; 

9>JUNK); 



3 *o; 
go to err; 



00 
00 

JLO. 



5900 T 
6000 T 
61 90 T 



033313 

033? 1 1 

0338 '3 



end; 

if tankcnot 43*0 then begin 

IF P(CHANSKlP.CCF3x60, CHANS 



wait; go to dci enq; 

K I P, TANK, 18 ,11 jCOM> DEL* DELUDED 



00 
00 
00 



6200 T 
6 3OO T 
64OO j 



0340U 
0340*1 
034412 



Then p<rsjze#r 

GO TO ABJ 
> SET OMIT « NOTCTIMESHARIN 



tn); 



00 
00 

-OQl 



6500 t 

6600 T 

6601 T 



934713 

MH « 3 

g 349H 



• • 



h 

I 2 

3 

4 
I S 

6 

7 
i 8 

9 

10 
11 
12 
13 
M 
IS 
16 
17 
18 

19 ~ 
20 
21 
22 
23 
24 
25 i 
M 
27 
28 
29 
JO 



DC2** IF P(IF TANK[N0T 4j*0 (HEN (NOT 0). 19139] ELSE CHAnSKIP, [ CF 3 
x60,ChANSKIP,TANK,17MWC0M,DEL>0EL#DEL»UUP> THEN 



BEGIN TANKLNQT 3UTANKLNQT < H»OJ PfXTTi; F N n: 



IF P«2 THEN 
BEGIN ADD8ESS«-TANKCNCT 3}} 
TANKENQT 33»TANK[NQT a3»0; 



00116700 
00116800 
Q01169QO 



OCNili 
0CN2I I 



jm. 



IF .AP.QN.ESS«0 THEN P(XJT).J 
P< ADDRESS* MKS# 9, jONK) 
ELSE GO TQ AB; 



00117000 
00117100 

01 17 2 



0349* i 

0353*3 
0357*1 



P0LlSH(RSI2E#RTN); ~ ~ ~ 
I* IF CHANSKIP.C2J13 THEN C HANSK IP . [ FfUtO ELS £ (NOT 0),[VJ3 9 3J 
IF CHAnSkIPiCCF3*0 THEN CHANSKIP* ABSCCHANSKlP&l CCTF 1) 

ELSE CHANSKlP* C8X(HNE3KiP*Z|)+LlNESKiP # [45t3]) 
i.CN.gT LlNESKiHH32«43i Jj; 
I 4- PULlSHfRSIZE A SUPRd'Cg«g7l1]. TANK, I. CHANSKIP, 



00117250 
00117300 
O Qll7a00 



0361*1 
0361*3 



00117500 
00117600 
00117700 



367*1 
0368*3 
0369*? 



I00# 1* 36# COM# QEL# DEL* DEL# DEL* DlDi 
A00RE5S* TANKCNOT C4-U«2))3i 
TANKtNOT 33* TANKtNOT 43» 01 



O0H78O0 
00117900 

00119000 



T 
T 

-X- 



036913 
0370*2 
037510 



.IF. I THEN PC XI T); 
IF AQURESSXO THEN 

P(AQ0hESS^MKSi.9*BLKCNTRL); 



00118100 
00118200 

oonflioo 



0377*3 

380*2 
36 3*1.. 



0385*1 
0388*1 

Q39U0 



SPINI P(TANK»3-I#U,cQM)l 

S RESET QMIT 
ENID Al GQI WRTTTJ 



GO spin/ 



00118400 
OOU85OO 

00118^00 



00118700 
OOU87OI 
QOllflgOO 



0394.11 
0395*1 

0396*0 



0397*2 

0399*2 
039912 



PROCEDURE 0UTPUTlNT(TEN,FlLX*CH5KP>LN5KP'FI,FKMT>LlSXm 



VALUE 



NAME 
ARRAY 



COMMENT ESPOL VERSION OF A|.GQt WRITE INTRINSICX 

6* L.R, GUCK 12/l/64i* 
CHSKP.LMSrtP.FT.. TS Xtg , 



SIZE* 0400 
00200000 T 0000*0 
START QF RFj. SF G MENTi DiSft A DDRESS s 



filxj* 

TEN.L* J** 
FRHTr*Jl» 



002 00100 
00200200 
00200300 



WORDS 
00023 



REAL Ll s *;x 

INTEGER CHSKP#LNSKP#Fi;X 



002.00400 
00200500 
00 2 00600 



T 
T 

-?- 



0000*0 
0000*0 

opnoto 



REAL ALGQLW«lTE»l2iX 
ARRAY HEALRQWaTtN-H*];* 
PFAL SELECT*14;* 



00200700 
00200800 



real 

integer 

intege r 



INTEGER 
INTEGER 
INTEGER 



JUNK2*9JX 
V2*l i 
TE»PD»7 ; 



00201Q00 
O02CU00 
on2nl?f)0 



0000*0 

0000*0 

000 *0 



0000*0 
0000*0 
ooon > n 



JUNKlsl7;X 
LSTRN*19;X 

aexp »f'rmt;» 



00201300 

00201310 

00201320 



0000*0 

0000*0 

ooon»n 



ARRAY ARBY ■Ll"Sx"C*m 
INTEGER TLSTRN*+1 IX 

REAL UTTP ■ TLSTRN + 1 ; 



O02OI4OO 
00201500 

00201600 



0000*0 

0000*0 
0000*0 



0000*0 
0000*0 

0000*0 



DEFINE UTIP S 0TYP.[47*1] *> %%%% USED 
FFTYP'UTYP#[46 ll] », %%%% FLAG 
STOR^i g UTYP t [4o:63 ** %%%% USED 



IJE^ »UTYP»C39*13 *, 
UDC sUTYP. (38*13 *» 
USD «UTYp. [36*23 ** 
UMO sUTYPtC35»U *> 
STDRD*UTYP, [29163 *V 
U8UFF = UTYP.C16*UJ»* 



FOR NOn-bUOLeAN USE OF UtYP 
TO SHDw USING FREE FIELD, 
TO STORE PRIG VALUE OF W . 



00201700 
00201800 
00201900 



UTOp »UTYP,U5*13 *p %%%% 

U5.tllP«UTVPf [09*63 .** %%%% 
FFCHRwUTYP, [03*63 *j %%%% 



%%%% FLAG TO INCLUDE EXPONENT SIGN. 
%%%% FLAG TO INCLUDE 0ECj,MAL POINT, 
%%%% NUMBER OF EXPONENT OlGITS. 

%%%% FLAG TO INCLUDE MANTISSA, 
%%%% USED 'TO STORE ORIG VALUE OF D, 
%%%% ADJUSTED BUFFER SUE. 



00201905 
00201906 
00201907 



0000*0 
0000*0 
0000*0 



00201908 
00201909 
00201910 



0000*0 
0000 JO 
0000*0 



T 
T 

T 



0000*0 
000010 

0000*0 



FLAG TOINCLUOE TRAILjNq BUNK, 

# xtra leading blanks FOR I OR F 

FtEE FIELD DELIMITER (» OR BLNK) 



00201911 
00201912 
00201913 



00201914 
002 01915 
00201917 



0000*0 
0000*0 
0000*0 



T 
T 

t 



0000*0 
000010 

0000*0 



T< 



1 

2 

3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 I 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

«3 

44 

45 

46 

47 

46 

49 

50 

51 

52 

53 

54 

55 

56 



t 
i 

i 






to 



n 

2 

3 



10 
11 



16 

17 



19 
20 
21 



23 
24 
26 
26 



28 
29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 



40 
41 
42 



43 
44 
45 



48 



49 
50 



53 
54 
55 
56 



INTEGER SuPRS s UTYP+i; 
REAL 8UFF»»SUPRS + i;* 

I NTE GER aiUE£ME£±UJ 



00201<?20 
00202000 



0000*0 

0000*0 
qnotun 



ARRAY 

REAL 

RfAL 



FI8«@SIZE4-1C*3;X 

wH2*Fia4i;x 



00202200 
08202300 
QQ2Q24QQ 



0000*0 
0000 10 
Q Q QQ* 



REAL 
INTEGER 
REAL 



uhi=whi+i;* 

UH2=DHl+i;% 

H«QHg+W% . 



00202500 
00202600 
00202700 



O0P0»0 
0000*0 

onon»o 



REAL 
REAL 

...It fc ft lw 



W1*W+1** 

W2«wi + nx 



00202800 
00202900 
0Q203Q00 



0000»0 

0000*0 

0000*0 



REAL 
REAL 
RFAL 



OsWT + iU 
01*0+1'* 
P 2*D1 + U * 



00203100 
00203200 
00203300 



0000*0 
0000*0 
OOOO'O 



REAL 
REAL 
REAL 



0A»D2*1JX 
SKI.P«CA*JJ* 
r.aRaSKlP + i;* 



0020*400 
0020350Q 
00203600 



0000*0 
OOOO'O 

nonnto 



INTEGER 

REAL 

REAL 



e=chr+i;* 
2eR0S=e+i;x 

CODE=lEROS+i;% 



00203700 
002C3800 

on ,? 3.0 0.0 



OOOO'O 
OOOO'O 

QQOO?0 



REAL 
REAL 
I NT E GFR 



FAWsCUUE + UX 
SgNbFAW+IJX 

S(*ftr*§sn+itx 



00204000 

0020MOO 
00204200 



0000 * 
OOOO'O 

0000*0 



REAL TPHRASE-aCFTR+i; 

label rtnp«nt,efa>efoeeRtn,rna»Rnb»* 

startjIsfrm,aexl*i^a»isb>aSlSt*bs,br»bb,error,* 



00204210 
002C430C 
00204400 



fm0ut*s>1#s#lfpar^rtpar»slash#scale#strng'* 
phras,inlqop#astb,asta#ast,fldw,jmp,x 

LOGl>ALFA«DDTYPE>XTYPg,lTYPEj* 



0000 to 

OOOO'O 
OOOO'O 



FTYpE»HFlN*FA#FB*FC»FD'UTYPE*UI»UF'ESUBTYpE»ETYpEl'CUMMM' 
FORM A TERR, TTYPE* BACK* 
ETYPL»REIN»EA>ERTN»REQT>EB*HaXN,TENB>X 



00204500 
00204600 
00204700 



00204800 

00204810 
Q02 049 00 



0000*0 
OOOO'O 
0000 



0000 

0000 
OOQO 



rtype,kc»tRye,rrtn*maxm,comm;x 

COMMENT LABELS ARE LISTEO IN SaME ORDER THEY APPEAR;* 
OFFINE L0G8 « g 1 157l6303476l674»>* 



00205000 
00205100 
00205POO 



T 
T 



0000 

0000 

0000 



MAX =PO0077777777777^7#»X 
SAVEBUFFsT PHRASE. [30* 18]** 
MAXCHR «TPHRASE.[18*l23f» 



00205300 
00205305 

00805,110 



0000 

0000 
0000 



P 



* polish*;* 

SUBROUTINE CKPBi* 

BEGIN* 



00205400 
00205500 
00205600 



IF FILX. [18115] S 1 THEN* 

BEGIN IF NOT FILX,[18»15J THEN% 
BEGlN;STREAMCA»[REALRQn[Q3]*B»0m 



00205700 
00205800 
00205900 



0000 
0000 

0Q01 



0001 

0002 

00 03 



BEGIN $I*AJ Ol**i SUSI-J6* 
SKIP 2 sb;» 
IF SB THEN TALLY » jjjj 



00206000 
00206100 
00206300 



0005 
0006 

0006 



IF 



a ♦ tally;* 

end;* 
not p then* 



BEGIN PCFILX,14*C0M»DEL);X 
FILX t U8«151 ♦ U* 

end;* 



00206300 
00206400 

Q2Q650P 



0007 
0007 
0Q08 



00206600 
00206700 
00206fl0Q 



0008 
0009 
0011 



END 



END'* 
BSIZE «• REALROm, [8*1031* 

ELSE* 



BSIZE*PQHSH(MKS,LNSKP,CHSKP,SUPRS,<-i),FILX,ALGOLWRnE>; 
BUFF*(*FaX)4BSI2Et8*38»103 J 



00206900 
OQ207000 
00207100 



00207200 
00207300 



0011 
0011 



0012*2 



0012*2 
0015*2 



ENDIX 



002n7/<00 T 001712 



n 

2 

3 
4 
5 

6 

7 
8 
9 
10 
11 
12 
13 
14 1 
15 
16 
17 



19 
20 ( 

21 

22 

23 ( 

24 

25 

26 { 

27 

28 

29 ( 

30 

31 

32 i 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 4 

42 

43 

44 < 

45 

46 

47 < 

48 

49 

50< 

51 

52 

53 ( 

54 

55 

56< 

5? 



• • 



n 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 

27 
28 
29 
30 
31 
32 
33 
34 
36 
36 
37 ~ 



subroutine prnt;* 

begin comment release buffer;* 

CQMMEMT„S" RETURN LJTFRAL 



S-t « IF TRUE THEN RETURN 
IF FALSE THEN EXITJX 



AFTER RELEASE,* 



00207500 T 

00207600 t 
00207700 T 



0017*3 
0018*0 

00 16 *0 



PCXC.HMX 



00207800 T 
00207900 T 



001810 
00*8*0 
00808000 T 0018*0 



If- FILX. [18.8153 > 1 THEN* 
IF BSIZE>Q THEN 
PQLISH(MKS,Li\SKP,CHSKP*SUPRSjBSIZE»FILX»ALG0LHR1U); 



00208100 T 
00 20 8 20 Q T 
OQg.OQjOO t 



00 1.8-1. 1- 

0019*2 

QQgO»3 



COMMENT WRITE RELEASEU 

IF P THEN CKPBX 

ELSE B.ECIW LSTRN » TLSTRNJX 



00208400 T 
00208500 t 
00208600 T 



002310 
0023*0 

Qoaatt 



If FILX..C18*15J>1 THEN 

FlLXtNQT AltFILXCNOT 
IF FII„X, [18*151 s 1 TH 



P(FILX*14»C0M)jX 
P<X*T)ji 



£M 



3H0 
% 



ELSE 



00208700 T 0026*1 
00208800 T 0027*2 
02 08900 T 0031*1 



EJUUX 



00209000 T 
00209100 T 



0Q2p9a00 T — 00-14 » 2 



0033*0 
0034*1 



RTNPRNTJENDiJ 

SUBROUTINE DEBLANK; IF CHR<132 THEN 
STREAM(P3»PCBSI/e-CHR/D>JP)»P2«-P OIV 64*Pl»RUFF) i 



00 209300 T 
00209 310 t 
00 809380 T 



0034*2 
Q34 * 3 

03 5* 3 



BEGIN P2(2(0S*32LiT« »)}; P3(DS«-LIT« «) END i 
SUBROUTINE PRNTAJX 

BEGIN COMMENT BLANK TQ END OF BUFFER OR TO 132 TH CHARACTER,* 



00209330 T 
00209^00 T 
00209500 T 



0038*2 

0045*3 
0046*0 



WHlCh EVER IS LESS;* 
PCXCH)* COMMENT S= XIT KEY IF TRUE THEN RETURN. X 

I F FA LSE TH EN EXI T }% 



00209600 T 0046*0 
00209700 T 0046*0 

00209800 T 0046*1 



IF TPhRAS£>0 THEN DEBLANK ELSE CHR*MAXCHR j 



XVOIO 

xvoio 



00209900 T 
00210000 T 
00210100 T 



0046*1 
0050*3 
0050*3 



XVOID 
XVOID 
*VQ ID 



00210200 T 
00210300 T 

ooaioaoo T 



0050*3 
0050*3 
0050*3 



XVOID 

xvoio 



BSIZE»(IF CHRgp THEN BSUE. ELSE CHR+7) OIV 81 



prnT; comment release buffer;* 
chr «■ d;x 

BSIZE + BSIZE * 8iX 



00210500 T 
00210600 T 
00210700 T 



0050*3 
0650*3 
005 0*3 



00210800 T 
00210900 T 
00211000 T 



0021U00 t 
00211200 T 
002U300 T 



0054*2 
0056*0 
0056*3 



39 

40 
41 
42 
«3 



tPHRASE*BUFF*P( ,BUFF*L0D#0»INX) ; 
END' X 
SUBROUTINE FlNPEJX 



BEGIN COMMENT DETERMINE THE EXPONENT OF A REAL NUMBER;* 

if wHi * (Zeros ♦ o'j then go to efc;x 

E «• ((. 0&^Hit42> 3»6UwHi[ H2* i3» 12) * LQG8? + ,5 ;* 



0058*0 
0060*0 
0060*1 



00211400 T 
00211500 T 
00211600 T 



0061*0 
0061*0 
006 2J 3 



EFA* 



IF 



>CHH1) i ( IF E4 THEN TENCEJX 

ELSE l/TENt-E3)X 
THEN GO TO EERTNjX 



08211700 T 
00211800 T 
00211900 T 



006710 
0069»0 
0071*0 



w 

47 
48 
49 
50 
51 
52 
53 
54 



EFC* 



E * E " i;* 

GO to efa;x 
e «• o;x 



00212000 t 
00212100 T 
00212300 T 



007U3 
0073*0 
0076*0 



eeRTniend;* 
subroutine undgffjx 
comment adjust 



NUMBER TO 12 SIGNIflCAT DIGITS PLU5X 



00212300 T 
00212400 T 
00212500 T 



0076*3 
0077*0 
0077*0 



# 



TRAILING ZEROS, NOTE DA * ADJUSTED <DECIMAl PLACE**;* 
RNA* BEGIN IF AflSC P( C JUNK2 ♦ TENCDA]) x HHl#buP))'"S MAX* 

THEN GO T O RNB; COMMENT DA » ADJUSTED DECIMAL PLACES; 



00212600 T 
00212700 T 
002 128,00 T 



0077*0 

0077*0 

0079*1 

■ . — ■ ■ ■ ■ ■ ■ * 



56 
56 



Liila. 1 



- : -- 



PcDEDi* 
* 



V<v 



til COMMENT 
COGENT 



TRAILING; ZEROS + W* 

1 FROM DECIMAL PLACESiX 



00212900 T 
0011 1000 T 



0080*0 
0080*1 
0Q*H«2 



2 
3 



RNB» 



GO TO 

DH2 ♦ 



kna;* 
p; 



COMMENT ROUND OFF NUMBER;* 



E ND?* 

REAL SUBROUTINE LISTELEMENT; 

BEGIN IF lSTRN<0 THEN QO TO ERROR* 
PfHHl..«H1»lSMU WHKMTSXJ 



002 
002 

-002- 



Ll3TELtMENT«-P; 
END USTEUEMENT; 
SUBROUTINE SETMAXCHR; IF MAXCHR<CHR THEN MAXCHRtCHK i 



002 

002 
002 



002 
002 
002 



3200 T 0082*3 
3300 T 0085*0 
3 ^ 00 T Q85» 2 



3500 T 
3600 T 
3700 T 



008513 
0086*0 
00H7H 



3fl00 T 
3900 T 
HP 10 T 



0088*3 
0089*0 

ooagt 1 



7 

a 

9 

10 

11 

12 
13 
14 
15 
16 
17 
18 



LABEL L*X#A#Z#I> 

COMMENT STA 

START** PfLSTR 



G*R»C»0#ZW2 

RT OF code; 
NoQ>Oj.Q);x 



*^o»swt; 
% 



002 

002 

_Q_02 



4Q00 T 
4J00 T 
4?QQ T 



009313 
009313 
009 3* 3 



P(0)i 

IF FILX.C18U5] > 
BEGIN P(FIIX[NQT 21)t% 



1 THEN* 



002 

002 

_0J)2 



IF FlitS3.Cili2)<2 THEN P (MKS*"WR ITNG W #FILX> ?> SELECT > I 
IF FIBC53.U3I13 THEN POLlSH( MKS,CHSkp,Q ,FlLX»l SELECT >; * 
COMMENT CALL SELECT TF FILE NOT tN WRITE STATUS;* 



4210 T 
4300 T 
4400 T 



0095*0 
0095? 1 
0Q 9 6»? 



002 
002 



4420 T 
45OO J 
4ftQ Q T 



0098*1 
010112 
010412 



END EL 

ckpb; 
cqmmfnt che 



*E PCO 
COMMEN 

Cr" FQR 



);* 

T CHE 
TYP E 



CK FOR PRESENCE BlTU 
QF fr ii llE J J , 



002 
002 
OOP 



4700 T 
4800 T 
4900 T 



0104*2 
Q 106*1 
01,07*0 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

«0 

41 

42 

43 



If FRMT * THEN GO TO ISFRM;* 
IF ARRY * THENX 

If ARRY < THEN GO TO ASLST* 



002 
002 
002 



5000 T 
5i00 T 
5200 T 



0107*0 
0108*2 

01091? 



COMMENT 



CASE s FORMAT 

suprs»i;» 



ELSE GO TO AEXL;* 
= LIST - EMPTY;* 



002 
002 

002 



5300 T 
5400 T 
550 T 



0111*0 
0112*0 
Qll?»0 



go to bb;x 

iSFRMt IF NOT P(FRMT#TOP 
IF FI*0 THEN *** 



#XCH,OEL) THEN GO TO FMUUT/* 
FREE FIELD* L F 13/ CTEmPO* AEXP-1 1 . 



002 
002 



5600 T 
5700 T 
5 7 ,1 T 



0112*3 
0U3»1 
Q U5 J0 



AEXLi 



COMMENT 
IF 



BEGIN TEMPOS- 
CASE = AEXP»AR 
PCARRY.C8»103* 



AEXP-i; FRMT*0; GO TO FMQUT END ; 

RAY ROW;* 

PUP) * AEXP THEN GO TO ISA;* 



002 
002 

_on2. 



5720 T 
5800 T 
5900 T 



0115*3 

one* 3 

0118*3 



IF AEXP<0 THEN P( 
P(OEL#AEXP);X 

COMMENT STAC 



ARRYCAEXP3) i 

K » SMALLER OF ARRAY SUE R AeXPJ* 



002 
002 
002 



6000 T 
6 tOO T 
6200 T 



Oi2i*0 
0122*3 
0123*1 



ISA* 



IF P(LUP) < BSIZE 
P(OEL.BSUE);* 

COMMENT STAC 



THEN GO TO ISB/X 
K «• SMALLEST OF BUFFER SUE* ARRAY J1Zf.I 



002 
002 
002 



6300 T 
64OO T 
6500 T 



123*1 
0124*2 

01 25*0 



IS8* 



or aexpjx 
bsize * p;x 

comment bsize** of words to transfer;* 



002 
002 
002 



6600 T 
6700 T 
6flQ0 T 



0125*0 
0125*0 
0125*2 



COMMENT 
STR 



TRANSFER ARRAY 

EAMCP4 * CARRY 

P2 <• BSIZE D 



to buffer;* 

[03], P3 «- BSUEiX 

i v 6<j> p i «• * r u xm 



002 
002 
Q02 



6900 T 
7000 T 
7lO O T 



0125*2 
0125*2 
012 6*2 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



BEGIN* 

Si 
P_2- 



♦ P4;x 
rns » 3? 



w{jS,;i 



002 
002 
002 



7200 T 
7300 T 
7 400 T 



0128*0 
0i28»0 
0128* 



ir- 



DS * 32 WDS);* 
OS * H3 *i[)S}% 

£ND;% 



002 
002 
002 



7500 T 
7600 T 
7700 ,T 



0129*0 
0129*2 
0130*0 



GO TO 8B 
COMMENT 
ASLST* P_LQ 



1% 

CASE * *#LIST 



i* 



C OMMENT S»I«QJ* 



002 
002 
002 



7e00 J 
7900 j 
flQOO T 



0130*1 
013013 
0130* 3 



BS» 



p(Oup^lisx); 

IF LSTRN i THEN 
BSIZE » PCOELjDEL 



COMMENT SsVALUE#S-l*I#S-2=Ii* 

go to br;x 

11 COMMENT BSIZE «• I m% 



002 
002 
Q0 2 



8100 r 
8200 T 
63 QO T 



0131*2 
132*0 
0133*1 



55 

56 



BR* 



go to 8b;x 



# of words in buffer;* 

COMMENT S«I , S- 1 » VALUE » S-31 T ; * 



002 
002 

002 



8400 T 
8500 T 
8600 T 



0134*1 
0134* 1 
0134*3 



• • 



> 



10 

11 

12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 



26 
27 
28 
29 

30 
31 
32 
33 
34 
35 
36 
37 
38 
39 



40 
41 
•2 
43 



45 
46 
47 
«8 



49 
50 



51 
52 
53 
54 



55 
56 



PUBUFF J,STD); 

IF PC1*+*DUP) < BSIZEX 

then ii n Tfi nh;s 



COMMENT VALUE TO BUFFERCI];* 



BBI 



BSIZE 
P(0)1 
PRNTJtt 



COMMENT 



FLAG TO EXIT ON CALLING PRNTU 



ERRORS PCQ)JJ 

..PHNjAj COMMENT CALL PRNTA ANO EXITJX 
COMMENT CASE Of FORMAT'LIST OR FORMAT EMPtYjX 



FmOUT* LSTRN *•-( AfiRY * 0)JX 

COMMENT LSTRN * «i IF NO LIST;* 
PlO»Q»0*0»0,0, 0,0, 0,0, 0,0, 0,0 ,0, 0.0.0.0,0.0 i;g 



P(0) / 

DH1 * tempo ; 

WHl » LISXi COMMENT GFT FIRST LIST ITFM;X 

S. .C . ... ftt *: I W* ««» .*...<*■» * ..1*. .P.h *■ 1 «■**-:*. fc, • ■."».. •»...... am » . ... _ 



TPHRASE*8UFF*P<0#CBUFFl).C33U53 i 

COMMENT BUFF «• ABSOLUTE CORE ADDRESS;* 
BSIZE » BSIZE x 8JJL 



COMMENT BSIZE NOW * OF CHARACTERS IN BuFFERU 
IF KRMTsO THEN XX* FREE FIELQ WRITE* WHICH IS EGUIV A UeNT 
^W *** TO <INHNITY>U OR <INFTN<rT Y>UX.X. 



coocoii; junkubsize; ifuempo*dhi)>63 then tempd*63; 

FFCHR*IF FKO THEN " " ELSE "," ; 

IF (FUABS(FI)»1)*Q THEN XXX WE HAVE AT LEAST rFU/. 
BEGIN IF TEMPD'O THEN XXX W E hAVE CFI]/[0], 

BEGIN IF CTEMP0«-BSIZE/Fl*2 f 49VV999999>SO 
THFN TEMPQtl ELSfr IF TEMpn*?! THEN 



JUNM*CCTEMP0 + 21) + 2)xFl END 
ELSE IF CV2«.FIX(TEMP0 + 2))<B5IZE THEN JUNKj*-V2 ; 
V?»TFMPf) FNn XJLX A RQVF f > SF WAS r f ll ifTHipDi. 



ELSE IF (V2«-TEMP D )sO THEN TeMPd*63; XXXhAVE [Q3/l,03 OR 
U.T.Y.p«.C.U.TYP*jUNKltl6.U5.ll33.) OR 2 ) XXX tO J/ [ TEMPO J , 
FAW»i&TEMPDr6Ugt6]&VPr.^l<t3i61 * 



St« 

_5J_ 



JiU 



GO TO PHRAS ; 
END ELSE 
TO S3X 



FI * FI ♦ l;* 

COMMENT SET INDEX TO NEXT EDITING >HRaSE;X 

CODE «• (Faw «• FRMrCFin.r?iaiii 



UTYP ♦ 0&8SlZEtl6:35»l33 > 

IF FAW > THEN GO TO PHRAS;* 

COMMENT IF S«Q THEN GO TO PHRASEfX 



GQ TO P(CODE).; 
GO TO RTPAR/X 
GO TO strng;x 



COMMENT SWITCH ON CQOEfX 



GO TO lfpar;* 
GO TO SLASHjX 
GO TO SCALEJX 



COMMENT LEFT P ARENTHES \H} % 
LFPAR: IF FAW,[12U3 THEN 

BEGIN IF PCLISTELEMENT*DUP)<Q 



THEN 



BEGIN PCDELU FI*FAW , C2S i 10 j^r'l i ENO; 
END ELSE PCFAW, £38*103); 
CflMWEWT MASK OUT REPEAT ANO LEAVE IN STACK** 



GQ TU Si;* 

comment right parenthesis;* 
_R.tpar: p(i,sub); comment subtract one from lfpar repeat;* 



IF PC 



•■ " >: "*■ 



..■<■>'' 

■ ■*■•■' 



■■ ■ ■'•>- 



#<Dft); COMMENT DELETE REPEATJX 
GOfi Si; COMMENT PICK UP NEXT PHRASE! 



00218700 
00218800 
00218900 



00219000 
00219100 
00219200 



00219300 
002194100 
0021 9*50-0 , 



0135*0 
0U5»? 
Q 1 36 I 1 



0137M 
0137*3 

oneto 



00219600 
00219/00 
ongi9fton 



0139 1.0 
013911 

QH0!O 



00219810 
00219900 

00220000 



T 
T 



140*0 
OHIO 
1 4 1 » 3 



00 220 fOO 
00220200 
00220300 



00220400 
00220405 
02 20 41 



0147*0 
0147*1 

Qi4p»n 



0l46»3 
0150*3 
Ol$0«3 



00220415 
00220416 
00220418 



015210 
0152*0 
01 53* 0. 



00220420 
00220422 
002204?4 



00220426 
00220428 
00220430 



0153*2 
015710 
Ql6l*l 



00220432 
00220455 

QQ22046Q 



T 

T 

-T- 



0163*1 

0164*2 
0l66»3 



Ol7o*3 
Ol73»2 
01771? 



00220465 
00220470 
Q02PQ50Q 



0178* 1 
0181* 1 
0lB3*2 



00220600 
00220700 

OQ2P060Q 



186*1 
0l86»3 



00220810 
00220900 
00221QQQ 



0186*3 
0188*0 
Ql6fl*0 



0022U00 
00221200 
0Q22U9Q 



0l90*0 
0191*3 
0l93*0 



00221400 
00221500 
00221600 



0193*0 

0193*2 
Ol94*0 



T 
T 



0194*2 
0195*0 
0195*2 



00221700 
00221800 
Q2 2 19Q0 



00222000 
00822100 
00*22300 



0196*0 
0196*0 
0196*3 



0198*3 
0201*1 
0202*2 



OQ222300 
00222400 
Q 22 Z5p ,p„ 



QeX'gffOG 



0202*2 
0203*0 
0203* 



T 
T 



0203* 

080*13 

2Q?tp 



¥!• 



2< 

3 
4 
5< 

6 

7 

8< 

9 

10 

nl 

12 

13 

14 ( 

1B 

16 

17< 

18 

19 

20 I 



21 

22 

23 I 

24 

25 

26 * 

27 

28 

29 I 

30 

31 

32 I 

33 

34 

35* 

36 

37 

38 ( 

39 

40 

41 4 

42 

43 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



m 



ft 

2 
3 
4 
5 
6 
1 
8 



10 
11 
12 
13 
14 
15 
16 
17 
18 



FI 

Jifl. 



4- FI -CF 
TO Si J» 



AW AND 



end;x 

1023); 



COMMENT SET FI BACK TO LFPaR> 



COMMENT SLASHU 
SlASHJ P0UISHC(USTRN20) CjR NOT FAW)>* 
PRNTAJCOMMENT RELEA5E BUFFER;* 



00222900 T 
00223000 T 
00223100 T 



0205«2 
0205*2 
0207*1 



00223200 T 
00223300 T 
Q223ft QQ T 



020? I 3 
0207*3 
2 . 911 



COMMENT EXIT IF KQRMaT & LIST EXAUSTEO;* 
GO TU oi; COMMENT Si IF (.1ST OR FORMAT NOT ExAuSTED'* 
C OM M E N T S CALE FACTORS 



SCALE; SCFTR*IF FAW.U2UJ 
60 TQ kill 



THEN LISTELEMENT 

ELS£ 04FAW£38l38t jOHFAWCl»lHi3l 



00223500 T 
00223600 T 
00223700 T 



0210*0 
0210*0 
21 0*2 



00223800 T 
00223900 T 
00224000 T 



0210*2 
0212*2 
0216*1 



COMMENT STRINGS;* 
STRNG* IF P(CHR + tw«-FArt,C6!6])#DUP) > BSIZEX 

THEN GO TQ ERROR; COMMENT BUFFER OVERFLOW;* 



00224100 T 
0022*200 t 
22* 300 T 



0216*3 
0216*3 
0218'3 



CHR * P ; COMMENT CHR ♦ W4CHRJX 
SETMAXCHR ; 
STRFAMfPfl » 0* P3 » TAW»P3 » W.P1 «. RUFF)li 



00224400 T 

00224410 T 
0022 4 50 T 



021913 

0220M 

0221 *0 



«EGIN% 
Si 

si. 



LOC P2;* 

si-P2;s 



002246 00 T 
00224700 T 
Q02?4 a no T 



0222*3 

0222' 3 
Q?23*Q 



19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43" 



OS 
P4 



f-Nn;x 



P2 chr;x 
on* 



huff «■ p;x 

GO TO Si;* 
COMMENT BREAK APART 



00224900 T 
00225000 t 
022.5 iQ.O T 



0223*2 
0224*0 
0224*1 



FQHMAT rtQR D; % 



00225200 1 
00225300 T 
00225400 T 



0224*2 
0225*0 
0225*2 



PHRASl IF FAW, [12*13 THEN P(LlSTELEMENT) ELSE P(FAM« (381 |03> J 

'IF C0DE*13 THEN COQEMF < COOE*LlSTELEMENT )S"D" THEN £ L SE 
IF C QP F»"T" T HE N 1 ELSF 



00225500 T 
00225600 T 

0022561*0 T 



0225*2 
0229*1 
0233*3 




IF CQDE="X" 
IF COOE« M A W 
F CUPF*"!" 



-X 



THEN 2 ELSE 
THEN 4 ELSE 
THEN 6 USE 



00225700 T 
00225800 T 
00225900 T 



0236*1 

0238*1 
0240*1 




IF CQDE« W F W THEN 8 ELSE 
IF COOE^E" THEN 10 ELSE 
F CODEa"U" THEN 1 1, ELSE 



4. 



00226000 T 
00226i00 T 
00226110 T 



0242*1 
0244* 1 
02461 



4- 



IF C ODE*" B" THEN 
IF CODE*"G" THEN 
IF COQF~"L" THFN 



110 ELSE 
12 ELSE 
14 ELSE 



00226120 T 
00226200 T 
00226300 T 



0248* 1 
0250*1 

025,2 8 1 



IF CODE«"R" 
IF COOE-110 THEN BEGIN CQDE*1W 
W»IF FAW.C13M3 THEN LlSTrLFMENT' 



THEN 15 ELSE 16; 

FAW#C3l*13«-l ENO ; 
LLOflllEJJJ Fi.SE FAW,r 6 »61 



00226*00 T 

00226^10 T 
QQ2265QQ T 



0254*1 

0257*0 
036ft** 



Qf-IF fAw«[1451] 



THEN LISTELEMENT 

ELSE IF COOE'U THEN .FAW, [32161 

ELSE (Dl + FAH .t2 Q*4 3) + (02»FAWiU6*43 



ii- 



00226600 T 
00226610 T. 
00226700 T 



0264*2 
0267*3 

0269*3 



•5 
46 
47 
48 
49 
50 
51 



IF 
IF 



P«DUP)$0 
W<0 THEN 
I* CODE* 



TAIEN GO BACK; 
'1 AND rtpfl) THEN 60 BACK 



00226000 T 
00226810 T 
00226815 T 



0274*1 
0275*2 
Q27 6I1 



E.LSE IF i\OT(CUDE*0 OR 
IF D<0 THEN IF N0TCCQDEX15 
THEN GO TO FORMATE*R ; 



COOE-12) THEN GO FqRmATERR; 
AND CODECS AND CQOEXiO) 



00226820 T 
00226830 T 
QQ 226a 40 T 



0278*3 
0281*3 

-p3faiW>Jt>-^ m> 



BACK* 



IF W«0 THEN IF 
IF CQ0E»11 THEN 



M ANO CODE*! THEN 
8E6IN PCOEDf GO Si END ; 
> Ct N UTQ P» DH , l»FAh, [ 31U 3 I.0 



00226850 T 
00226852 T 
00226860 t 



028611 
02891 l 
02 90*2 



52 
53 
54 
55 
56 

62. 



IF CWH2*-UBUFF*"0H1-FFTYP)<W THEN W*WH2 ; IF D>WH2 then 
GO to ERROR; UTyP*-UTYP&W[40*42*63&D[29»42*63 OR 1 ; 

GO TO INLOOP END ; . 



00226865 T 
00226870 T 
00226875 T 



0295*0 
0300*1 
Q3Qq»0 



IF FAW,C13*23*Q OR PAH,C2*43al3 THEN 
BEGIN 

60P( IF CODE* 15 THEN 8 ELSE IF flQOE«l THEN 2 rLSE 



00226900 T 
00227000 T 
Q 22 7Q6Q T 



0304*2 
307*1 
307 *3 



IP 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

28 

27 

28 

29 

30 

31 

32 

33 

34 

35 

38 

37 ~ 

38 

39 

40 

41 

42 

♦3 



CODE) ; 

go c; gq x; go a; 

GQ TO FURMATERR ; 



go i; go r; go g; go q; go l> 



LI Wi*iF W$5 THEN W ELSE 5J GO TO 
XI Wl«.W OIV 64i W«-SKIP*W.C42«63* 
^_ 60 TO ZW?t 



21 



00227065 
00227100 
00227200 



00227300 
00227400 

002 27^0 



0311*3 
0312* 1 

0316*1 



0316*3 
0320*0 
0323*0 



A* W.1*.IF rtS6 THEN ft ELSE 6* 

Z» SKlPoH-mu QU TO 2W2; 

JJ <L1±1Z W S 8 THEN w ELSE 8* 



0022 7600 T 
00227700 T 
Q022790Q T 



0323! 2 
0326' 1 
03 28 *0 



JLL 



SKiP*IF WS16 THEN 
W2*W«»SKIP-W1> GO TO 
P» P + <UT l P Qft FAH .[2 



ELSE W*16; 

zu; 

*43«13 OR 



EAh 



C00E*6 ; 
.C UM?)- 1 



00227900 T 
00226000 t 
0Q2?9lQQ T 



0330*3 
033413 
P337I0 



02 tD 
SKIP 

JLLfcH 



-D1*IF 
*IF (W 
2±0J 



wS8 THEN 
-Q.?.$5. THE 
COPF»lO* 



D ELSE 6*. 
N ELSE H-D- 

Gn to swt ; 



5; 



00228200 T 
08228300 T 
00228400 T 



.A3 "11.1.1 
034510 
0349*1 



Rl 



02*0 
SKIP 

(1U1 



#01*IF 
♦ IF CW 

F (wn 



0*8 THEN 
-0)S17 TH 

■«<a Tur»t 



else e; 

EN ELSE H«»o"17J 
wn«i ELSE fl* 



00228500 T 
00228*00 T 
00228700 t 



0351*3 
0355*2 
03Sq*3 



JCJL 



W2«-I 
CODE 

o* w»a* 



F Cw-D 

•81 G 

HUSK 



-SKlPiSV 

TO.ShT 



THEN ELSE WQ-SKlP-9; 

; 



00 228800 T 

00228900 t 

00229000 T 



0364*0 

369*1 

Jl32flX2- 



ZW2* 

ZOI 

SwTl 



W2«-0 
0»Dl 
WT«.W 



*02*o; 

UW2* 



00229^00 T 
0022*200 T 
002293QG T 



0372*2 
0373*1 
0375*0 



IF UTYP THEN 



BEG 
W«-T 

IJSK 



IN IF NOT 
EMPO ELSE 
IP?+CHR>U 



C<O.Hi*TEMPO-W 
. DH1*0* IF CW 
RUFF THEN HEfi 



)SQ OR CQQEM0> THEN 

H2«-W+UTqP + FFTYP + 

I N PC I?; PR MA EnO- 



00229310 T 
00229320 T 
002?93.3| 



'0 T 



0376*1 
037953 

03a*m 



CHR 
SKI 



«-chR*i«h2; 

P+SGN+DH1 



setmaXchR; i 

* G8 ETYPE1 E 



FNO ELSE 



f cooe«io then begin 

NO ELSE GO JMP ENQ ; 



00229340 T 
00229350 T 



0390*0 

039213 

00229400 T 0395ip 



BEGIN 

end; 



W T . «• C W 1 *F AW * 1 28 * 4 3 ) + C W2 «■ F A W . C 24 * 4 
SKIP«-FAW, [32*. 6.3* 



3)* 



00229500 T 
00229600 T 

0022V700 T 



0395*0 
0398*3 
0400*0 



IMLOOP* 



IF COOE i 

UTYP.C>3*5 
USKIP»0 ; 



2 THEN GO TO FLD«;X 

3*27 ; XXX SETS UM0"00C*UeS»TrUe* 5£TS UE0*2. 



00229800 T 
00229810 T 
00229w20 T 



0400*0 
040 1 1 1 

040310 



IF LSTRN>0 THEN IF UTYP THEN GO TO UTYPE 

ELSE GO TO FLOW ; 

H (Q3J co mm ent s e t key ■ fx i t ;* 



00229900 T 
00229910 T 
00230000 T 



0404* 3 
0406*1 
04 07*1 



pr«ta; 
comment fill fi 
a sts* pc de d; astat 



COMMENT LIST EXAUSTEO. RELEASE BUFFER ANO txly* 

ELO WITH **X 

PCQFLH*. 



00230100 T 
00230200 T 
Q02.1Q3Q0 T 



0407*2 
0409*0 
0409*0 



AST* 



STREAM (P 3*,o * P2«-W#PU«-UTIP^PUU«-UT0P*PS*USKIP# 
PFF*FFTYH# 

PCH*FFCHH, 



0023.0400 T 
00230410 T 
00230415 T 



0409*2 
0412*3 
0413*2 



P1*BUFF) J 
BEGIN 

P3CPS»LlT" 



J_J_ 



00230420 T 
00230500 T 
00230510 T 



0414*1 
0414*3 
0414*3 



46 
»7 
•8 



P2CUS«-LlT"*"; PUCDI*DI 
PFFCSULOC Pi; Si*Sl-l; 
PUUCDS»LIT" w ) ; 



-l; DS*LIT"x">) ; 
DS<-chHj ; 



00230600 T 
0023O605 T 
00230<S10 T 



0416*0 
0418* 3 
0420*1 



•9 
50 

51 



end;x 



P3 * oi;x 



00230700 t 

00230800 T 
00230900 T 



042112 
042l»3 
042210 



52 

S3 



GO TO COMMM ; 
FORMATERR* IF F ILX , I 18 * 15 3> 1 THEN 

BEGIN XX* NOT ARRAYRQWBUFF* 



SO TRY PAR LBL BRANCH, 



00231000 T 
00231020 T 
00231025 "f 



0422*0 
0422*2 

0423*3 



55 

56 
57 



i^_ 






PCFILXCNOT 33) 
FILXCNOT 33 ♦ 
P(MKS>9^4UNK3 ; 



43 



* js 



■0023104/'** 

00231030 T 

00231040 T 



0424*1 
0425*2 



>T 



(16 



20 
21 
22 
23 
24 
25 
28 
27 
28 
29 
30 



33 



34 

35 



36 

37 " 



38 



40 
41 
42 



46 



48 
49 

50 



52 



55 
56 



fc_ 



end ; 

TEN*U; TEN*P{ [ Tfc.N[ l]]»CFX#SFB) & 10C8»38»10J 
STREAMCTEMJ PS* 1/L I T"-FMT ERR NO LBL* *" i 



»UTfcNC0n.C33U5j,34,C0M) 
FLDWl IF cQOE»t THEN GO TTYPE; IF P(W+CHR# DUP )>B5 IZE 
THEN 60 TO ERROR; COMMENT BUFFER OVERFLOWS 



00231045 
00231050 
P0231CI6Q 



0429*2 
0^29*2 

043 2 { 3 



002310^0 
00231100 
00231?00 



0436*2 

0438*0 

044011 



chR *■ *"> 
setmaxchr 

COMMENT SELECT 



CUMMENT CHR * CH.H ♦ W*X 



EDIT IlSiG PHRASED 



JMP* 



IF CODE * 15 THEN GO TO RTYPEJX 

IF CODE THEN 60 ERROR i 

t;n tq Pir.nnritx 



00231300 
00231350 
00331400 



0441*1 
0441* 3 
0443*0 



go to ootype; comment code = 0;* 
go to xtyhe; comment code * Zt% 
gd to alfa i comment code « u;% 



00231500 
00231510 
00231600 



00231700 
00231800 
OQ23190Q 



0443*0 
04441 1 
04 45*1 



0445*3 
04 46* 1 
044613 



GO 

GO 

JiH 



TO 
TO 

JLGL 



itype; 
ftype; 
etype; 



comment 
comment 

COMMENT 



CODE 
CODE 



6;x 

an 
101* 



00232000 

00232J.00 

ooaaggnn 



GO 

GO 

COMMENT 



TO 

TO 

__L_ 



oqtype; 
log 1 ; 

PHRASEi* 



CUMMENT 
COMMENT 



CODE = 
CODE s 



1 2* % 
14/X. 



LOGI* 



5TREAMCP5 * 0*P4 '* IF WH1 THEN "TRUE "X 

ELSE M FALS£« 
P3 » ttXj P3 .«. SKIP.P1 «. HurrWi 



O02323OO 
00232400 

00 23 2500 



0447*1 
0447*3 
04481 1 



0448*3 
4 49* 1 

4 49*3 



»% 



00232600 
00232700 
00?3?B00 



0449*3 
0451*2 



BEGIN* 

P2C0S «• LIT " 
SI t LOG P4*X 



')JX 



si 

DS 
_E5_ 



si+3;x 
P3 chrjx 



00232900 
00233000 
00 2 3310 



00233200 
00233300 
QftZliUOO- 



0453*1 
0453*1 
04 54 8a 



ENDJX 



fill TQ CQMMM / 



UTYPE* COMMENT THE U <EDITING PHRaSE TYpe> CU# UW Or UW.M) SElEC^S THE 

<£0ITING PHRAbE TYPE> » »« I / F / (SPECIAL) E# 
ANU FOR THE CHOSEN PHRaSE TYPE IT SELECTS A SUITABLE 



00233500 
00233600 
0Q?33r00 



0454*3 
0455»0 
0455*2 



00233703 
00233706 

00233709 



0455*3 
0456*0 
0456*0 



0459*0 
045910 
0459*0 



<FIELD PART> 
ANJ A SUITABLE 

<DECIMAL PLACES> 



* *= FP; 



** D. 



SUCH THAT THE FOLLOWING CONDITIONS ARE SATISFIEOl 
1, FP MUST SATISFY THE INEQUALITIES* M S FP i H f 
IF M > W THEN INITIALLY FP S W AND LATER FP IS 



00233712 
00233715 
O QS 3 3 719 



0459*0 
0459*0 
Qq59*0 



ADJUSTED SUCH THAT M-W LEADING BLANKS ARE SUPPLIED 
SUBJECT TO CONDITION *1* THE SELECTED PHRASE 
S H A LL OUTPUT* IN A HIGHLY READABLE FORMAT* THE 



00233721 
00233727 
0n23373Q 



MAXIMUM AMOUNT OF MEANINGFUL NUMERIC SIGNIFICANCE 
IN THE LEAST POSSIBLE FIELD WjOTH, a SUNK SPACE 
IS POSTFIXED TO THE EOITED LIST ELEMENT. 



00233733 
00233739 
OQ2 337t 2 



0459*0 
0459*0 
0flS9*0 



00233745 
00233746 
00233747 



0459*0 
0459*0 
0459*0 



T 
T 



0459*0 
0459*0 
0459*0 



note: wh1 = value cf list element to be edited* and 
in the following comments, "full word" is used in the 
context of condition *2 unrestricted by condition »1. 



END OF COMMENT J 

WH1*TENCoJ*ABSCWH2*WH1>** %%% RETAIN ORIG WHl*NORM WH1 FOR FInOE 

if cw»stqbw?$i then go m; xxx restore w, ui is sent to i»type. 



00233748 
00233751 

P0233734 



FlNDE ; %%* FINDE SETS E = ENTIERC LQG1 OC ABsC WHl ) ) ] , PESwHl<PE* 1 ♦ 

tempd*-stoRo ; **x decreases use of partial words, 

IF C(WHl*A6S(WH2))sO %%% ZERO IS INTEGRAL* REGARDLESS OF ExPQNT 



00233797 
002 33760 
00233765 



0459*0 
0459*0 

04 59*0 



00233775 
00233778 
00233781 



045910 
0459*0 
0461*1 



OR (WHl,t3*63»0 AND E<10>> XXX 
AND (V2*CSGN«-WH2<0) + 1+E)SW %%% 

THEN M - XXJL 



WH1 IS INTEGRAL AND NOT BIG 
V2 - MINIMUM WIDTH REQUIRED 
FOR FULL WORD I»TYP£. 



046312 
0465*0 
0466*1 



00233784 
00233787 

0n3337flfl 



0467 * 2 
0470*1 
047,380 



• • 



>r 



i 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
26 
26 
27 



BEGIN W*V2 ; %%% WE NOW USE FULL WORD I-TYPEt 

Up IF W<TEMPD ThtN USK IP*T£MPD-W J XXX PHRASE GETS flLNKS 

W Ht»WH2j GU TO I » %%% RESTOR E W H1 A ND EXIT TO I' TY PEt 



END ; 

$KIP*(W1«-IF 



00233790 T 0473*3 

00233791 T 0475*0 
00233793 t &jl7_BJL2 



DH2*E<0 THEN WHlxT£Nl»E3 ELSE WHl/TENlEJ )25 I 



00333796 
00233800 



0479*3 
047913 



JUNKlMF PHl<.fO»l.»fW1>5.4Q75*fl13ftflfm<F THEM toHt/TEMfF»n3 



00233802 T 0485*3 



ELSE 



WHixTENtD' 
%%% JLNK1 
%%% ■ t 



E3 ; 

« MANTISSA 
DIGITS' 



4-ih 



OF WH1 
, JUNK 



AS AN 11 OR 12 DIGIT INTEGER, 



U 



00233604 T 
00233806 T 
00 2 33809 T 



0490*0 
0493*0 
4 93* 



XX* Hi ■'■• MANTISSA OF WH1 AS N»NN.,,N, 

XXX DWi * TRUE IF *»Hi > MaX INTEGER* ELSE OHi * FALSE* 

Xl% DH2 i TRUE IF WH1 < 1. ELSE 0H2 * FALSE. 



002338i2 T 
00233813 T 
0023381 5 T 



049310 
0493)0 
0a93*O 



XXX SKIP * TRUE IF WHi WOULD ROUNo UP* ELSE SKIP s F A LS£, 

IF DHL DR..D.H2 THEN IF COltjUNKl MOD 10X3XXX HERE wE HANDLE ANY 
THEN JUN*i+JUNKi-Di EtSE, IF Pl>7 THEN %X% CONVERSION THUNCA- 



00233816 T 
00233818 T 
00 2338 2 1 T 



049 3 .10 
0493*0 
0495*3 



junkujunki-01+10 ; 

IF JUNKi«TENt 1J3 tHEN IF 0M1 THEN 
«F G * M WjjLfeLLE lE^LgJj rutru Trwfr»n 



XXX TJON PROBLEMS, 
ELSE 1/TEN[*CE+1)3) 



00233824 T 

00231825 T 
213826 T 



0500*3 

0503*0 
0*0* it 



&SMU* 47*111 

end; 



GO TO UTYPE * 



m»i 



0023 3 e2 7 T 
00233828 T 
Q023382 9 T 



0510*0 
051212 
Q*il2?-2- 



WHILE viUNKi MOo TEMD13»0 o° Dl*tfl*4l**X.0i* l+*TR AlLN IN UUNKl 
UES«-0H2* IF NOT JUNKl*ABS(E)>9 THEN UED*1; U0C*0A*Dl -Dxl i 
HT»CW2«-2»S6N+Qn2) + i+0A + JUNKl ; XXX WT IS MAIN FIELD WIOTh FOR E 



00233830 T 

00233831 T 

0023383 2 T 



0513*1 
0517 to 
0526*0 



IF OHI 

OR (C2 + 0A<(-EJ 
UR CO*Of 1"Q1 >tDA<;E), 



XXX WH1 BEVOND 
XXX OR WHl HAS 
%%% E-TYPE THA 



MAXIMUM F-TYPE RANGE 
LESS WIDTH IN THE 
IN THE F-TYPE> 



00233833 T 
00233836 T 
00?33839 T 



0529*3 
0529*3 
05311 1- 



ANO U»4CC)'t4 OR 

+ (Di*-tf DH2 THEN 
BJEGJJH 



W<2*SGN XXX ANO IT WOULONT LOOK 
ELSE E)+D2*IF DSE TH£N 1 £LS£ 
it* THEM WE SHALL TRY E- 



BETTEH IN F 
[TE>) TH£N 
TYPE, 



002 33»40 T 
00233841 T 
QQ233842 T 



0534*2 
0536*0 
543 *? 



29 
W 



XXX IN THE ABOVE* D » » DECIMAL PLACES FOR FULL WORq £TYP£ 

IF D+WTSW THEN XXX D + WT • MINIMUM FIELD WIDTH REQUIRED 

bEGIN W_tM£Ll**J FOR FULL WORD F-TYPE, 



00233845 T 
00233848 T 

233851 T 



0544*0 
0544*0 

545 *1 



31 

32 

33 

34 

35 

36 

37~ 

38 

39 

40 

41 

42 

«3 

44 

45 

46 

47 

18 



IF 



GO TO G t XXX EXIT TO FIRST PHASE OF E-TyPE PHRASE, 
END i 
NOT C0H1 OR XX* £»TY P £ WIDTH WAS TOO SMALL TO HANDLE 



00233854 T 
00233857 T 
00233860 t 



0547*0 
0547*2 
0547*2 



ESU 
IF 



V2/W) THEN 

BTYPE* 
CD+W-WT320 



GO Ui i 

THEN GO TO _G_ * 



XXX NN, ,.N00.,.0»0> SO DROP ,0' GO 
%%% wHl FITS ROUNDED E-TYPE, 



-WT)*Q THEN GO TO G ; XXX WHJ FITS ROUNDED E-TYPE, 
XXX NO ROOM FOR DECIMAL POINT* 50 W£ RESET FLAG, 

■0*0 THEN GO G } XXX FORM IS <SlGN>N?<EXP>*GO TO E 
XIX NO ROOM FOR MANTISSA* SO WE RESET FLAG. 



00233863 T 

00233864 f 
Q233 a 65 t 



0547*3 
0549*1 
Q5«9U 



uoc 

IF 

UMD 



♦0 ; 

+ OA 

♦ ' xxx 



00233866 T 

00233867 T 

00233868 T 



0551*2 
0553J1 
0555*2 



W1<-N0TCW2 + JUNK1XW Uh ( JUNK1 «-Wl )* 1) > 

IF DH2 THEN BEGIN IF (DH2* (-E> 10)+W2) SW ANO SKIP THEN 

BEGIN XXX WH1<1> ROUNQ UP TQ <S IGN>E<EXP+1> *G0 Tq ETYPE 



W*W-(0H2<»)| IF ti*E*l >«<•*> 
ELSE IFtWI THEN GO TO G XXX .._ 
END ELSE IF (E>8)*W2*W AND SKIP THEN BEGIN E 



THEN UEQ<-1J GO TO G END 
t IN <SlGN>ie<EXp>*G0 E 
.. -,,.,.. -» £♦!* GQ TO G 



00233869 T 

00233870 T 

00233871 T 



0557* 1 
0560*3 
0564*2 



END XXX WHl>l7 RQUNq UP TQ <S IGN>P<EXp+l>* GO To E'T^PE, 
ELSE IF Wl THEN GQ G I XXX DEL "1 IN <SIGN>1 $<EXP>, GO TO 
D»Wl"(W»E*SKiPslJ><SGNf GO TO UF * XXX GO TO F-TYPe FOR 



00233872 T 
002338^3 T 
0Q23 3 874 T 



0565*0 
0971*2 
0572*1 



00233875 T 

00233876 j 
00233A77 T 



0577*2 
057810 
0579*2 



49 
so 

51 
52 
93 
54 



ENO XXX **,,t*/C0),OQ.,,0 

ELSE IF^*oWD*Q2>*02*2*S$N*Dl THE* XXX HANqLe VARIOUS F"*TYP£S 
XXJ *$ DECIMAL PLACES FQR FMLL WQHQ F»T'YP£. 



00233878 T 

00233879 T 

00233883 T 



0983*3 
0583*3 
0588*0 



%%% Dl s MINIMUM WIDTH REQUIRED FOR FULL WORD F-TYPE, 
XXX D2 ■" 1 ♦ JUDIGITS TO THE LEFT OF THE DECIMAL PLACE, 
BEGIN W » Dl i XXX FULL WORD F'TYPE, 



00233886 T 
00233889 T 
00 233B92 T 



0588*0 
0588*0 
0588*0 



55 

56 



' if w*Tempd *. 



1 



USKIP*T£MP0-W J XXX PHRASE GETS BL N KS 
RESTORE WHl AND EXIT TO F-TYPE, 






■ •■■'— '''■' ' -■■ 



|93 T 
00233 8 95 T 



0589*1 
0992*3 

Q 59 fl*n 



N 

2 
3 
4 

5 



IF DH2 THEN IF SGN THEN XXX DH2 S 
02*02-(mHl<,b OR W'2)«XZ CANNG 
-C H + fc < 1»S HI P ) % U TH EN 



AYS WH1SO.NN...N* SQ SlNCt WE 
T FIT FULL KURD IN F-TYpt, WE 
DELETE LEADINfi ZERO CIF OQ NOT 



002338 Q 9 T 
00233900 T 
002 339.0 3 T 



0594*0 
0595»0 
059712 



ELSE D2+D2-1 ; XXX HAVE 

XXX HAVE 
tf cn»H-n2)feo thfn r.o TO uf i %%% 



TO ROUND- INTO 'It )# AND IF SHALL 
TO ROUND TO 0»DELETE -SIGN TOO 
aftfr Aflnvr surgery, tf pam 



00233906 T 
00233909 T 
00213912 T 



0599*2 
060311 
060 3 1 j 



IF D2"1 S W THEN GO TO UI * 
1 Q Tn F^U BTYPF * 11% AS a 



COMMENT A 



ALFA I 



PHRASE ; 
STREAM(P5 



XXX ROUND THEN SEND WHl TO F-TYPE 
XXX TRY WH1 ROUNpED TO AN INTEGER, 
LAST DITCH EFFORT* Try RQUnPED fc-TyPF.' 



00233915 T 
00233918 T 
00,233921 T 



0605 » 2 
0605 « 2 
0607*1 



«• oi P4 «• whi# P3 * wi# P2 * skip* 

.El » BUFF) IX 



00333994 T 060713 
00233997 T 060713 
0Q234Q00 T 0609 M 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 " 



BEGINS 

P2CDS «• LIT " 
S j t L OG P 3 ^ X 



" );x 



002341-00. .T 
00234.200 T 
00234300 T 



060913 
060913 
0611*0 



10 

»< 

12 
13 
14 ( 
15 
16 

»l 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

3b { 

36 

37 

38 { 

39 

40 

41 4 

42 

43 

44 ( 

46 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

56 ' 

5} 



SI 

DS 

_P_5_ 



si - p3;j 

P3 chr;x 

E LU* 



00234*00 T 
00334500 T 
00234600 T 



061111 

0611*3 
0612*1 



end;x 



G Q TO CQMMM ; 



00234700 T 
0023*800 T 
00234900 T 



0612*2 
0612*3 
0612' 3 



COMMENT 
DOTYPEf 



D & PHRASES;* 
STREAMCP4 * 



0* P3 * IF COOE « 



THEN 0* 
ELSE WHl / X , 



00235Q00 T 
002 39 100 T 
0023520 T 



0613*1 
061 3*1 
0615*2 



P2 «■ SKIP* PI ♦ 6UFF)>X 
BEGIN* 

Pti(OS <■ L I T !! "?;* 



00235300 T 
00235a00 T 
00215500 T 



0616U 
0617*0 
Qfel7»0 



SI ♦ LOC P3>X 

os «• 8 chr;x 
P4 » oux 



00235600 T 

00235700 T 
00235ft00 T 



0618*1 
0618*2 
061fl*3 



end;x 



GO TO COMMM ; 



00235900 T 
00236000 T 
00236100 T 



0619«0 
0619*1 
0619M 



COMMENT 

xtypej if 



x phrase;* 

P{CHR+(Wix64)#0UP) > BSI2EX 
THEN GO TO ERRQRJ COMMENT 



BUFFER OVERFLOW 



00236200 T 
00236300 T 
00236400 ? 



061913 
0619*3 
62 111 



CHR*P> SETMAXCHR ' 

STREAMCP4 «■ 0* P3 * Wl* P2 «• SKIP* PI * BUFFjiX 

BEGIN* 



002 36 590 I. 
00236600 T 

002 36700 T 



0622' 1 
0624>0 

625* 3 



39 
40 
41 
42 
43 



P2CUS ♦ LIT " ")JX 
P3(32C0S * 2 LIT •» "));X 

P4 •■* di;x 



00236800 T 
00236900 T 
O Q 2 37Q 00 T 



0625*3 
0627*0 
062fl*3 



end;x 



GO TO COMMM ', 



00237100 T 
0Q2372Q0 T 
00237300 T 



0629*0 
0629*1 
0629'! 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



COMMENT T PHRASE * , 
TTYPEI IF TPHRASE>0 THEN bEGlN OEBLANKi TPHRASE*-TPHRASE END i 
IF (CHR*W + H1X64)*BSIZE THEN GO ERROR / 



00237305 T 
00237308 t 
0Q 2 37 31 Q T 



0629*3 
0629*3 
63 3*0 



&TREAM{P3€>SAVEBUFF*P.2*W*P1*W1)I 

BEGIN Sl«-Pj; Si*>Sl+P2^ PlC2(Sl«-Si + 32)>; P3<-Si END 
GQ COMMM ; 



00237315 T 
00237320 T 

00237325 T 



0635*3 
0637*3 
0640*2 



COMMENT 
ITYPEI 



I phrase;x 

IF- A8S{P(WHl#DUP)) 
THEN GQ TO ASTAI 



> P(MAXN)X 

CO MME N T F ILL 



FIELD WITH TJX 



00237400 T 
00237500 T 
00237600 T 



0641*0 
0641*0 
0642*0 



P(,WhlMSN*DUP); 

sgn «■ p < o;x 

*H2 »(*H1 » A B S(P?? 



COMMENT ROUNO NUMBER** 
V PCT FNQ)iX 



sa 



00237700 T 
00237800 T 
00237900 T 



0642 '3 
0643*2 
0644*2 



IF WH1 S TENtwT-SGNJX 

THEN.*4Q TO AST* COMMENT NUMBER > FIELD WlDTHJX 

STRFJMtPR » 01 P7 » WTH. P6 ♦. fWHin^PS » Sr.H.% 



00238000 T 
00238100 T 
0023fla00 T 



0646*1 
0647*1 
0648*1 



• • 



n 

2 
3 

4 
5 
6 
7 
8 
9 
10 



P4 * w2#P3 * Hl>H2 * SKIP+USKIP*PU*UT0F# 

PFF«-FFTYP, 

PCH»FTCHR» 



PI * BUFF) i 
8E6INX 



00238300 T 
0023830b T 
00 23 83 ? T 



0650 
0652 
63 3 



'1 
3 



00238310 T 
00238400 T 



0654 
0654 



00838500 T 0*54 



PI «• .0.1 J COMMENT SAVE STARTINQ ADORESSU 

SI «■ P6>* 

0§ t P4 UECi COMMENT CO NVE R T H tQH HAL F ;* . 



00238600 T 0656 
00238700 T. 0656 
00238800 T O&iA 



Sl » P6i* 

si * si*s;% 

OS » P3 DFCJ CQMMFNT CONVPRT LOW HALF;* 



00238900 T 0657 
00239000 T 0657 
QQ239iQQ T 0657 



11 

12 
13 
14 
IS 
16 
17 
IS 



PFFCSI4-LUC PU SI*SJMJ OS*CHR) ; 
PUCDS «■ LIT" ") ; 

pa t on* 



00239105 T 0658 
00239H0 T 0659 
Q0239200 T 0660 



01 4. Pti* 

OS ♦ P7 FILL; COMMENT LEADING ZERQS*BLANK5 }% 

P5(0I * 01-li PS » LIT**"") ; 



00239300 T 0661 
00239400 T 0661 
0O2395QQ T 0661 



00239600 T 0663 
00239700 T 0663 
QQ 2 3W Q T 06 63 



19 

20 



21 
22 



00239900 T 0663 
00840000 T 0663 
0024Q1QQ T UMi 



23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

»7 

18 

•9 

50 

51 

52 

53 

54 

55 

56 



end;* 



00240200 T 0663 
00240300 T 0663 

OQ?40400 T 0663 



GO TO COMMM ; 
COMMENT F PHRASE;* 
FTYPEf IF ABS(WH1 » WH1 * 1,0) > P(MaXN)* 



00840500 T 0663 
00240600 T 0664 
0240700 T 0664 



then go to ast* comment insure number is real and nqtx 

to big;x 

IF NOT UTyP THEN FlNDE JXFlNOE SETS E = C L0G10C ABSC WHl ) ) J . 



00240800 T ° 665 
00240900 T 0666 
00241000 T 0666 



RFINI IF a * COA ♦ 0)) > 10 THEN GO TO FDU 

COMMENT DA * DECIMAL PLACES, IF D+£>10* MORE TH£NX 
11 DECIMAL PLACES SO MUST DO SPECIAL ROUND;* 



0024U00 T 0669 
00241200 T 0671 
0241 3 00 T 0671 



DH2 *■ WHl x (JUNK2 «- TENCD3};» 

COMMENT SHIFT NUMBER LEFT PLACES THEN ROUND IT* 
"FF BY O ^ I N fi I NTE Q E H STORE I N DH 2/* 



00241400 T 0671 
00241500 T 0673 
00241600 T 0673 



fa: 



SON ♦ DH2 < O;* 

QH1 ♦ (DH2 «. ABS(0H2)) OIV P<TEN8);» 

IF 0H2 i JUNK2 THEN GO TO FBiX 



00241700 T 0673 
00241800 T 0674 
00241900 T 0676 



COMMENT NUMBEK 13 LESS THEN ONE* WILL SIGN FIT;* 
IF P(wT-SGN# OUP) < THEN GO TO ASTA;* 
COMMENT ASTA IF SIGN PONT FIT;* 



00242000 T 0677 
00242100 T 0677 
00242200 T 0679 



JUNK1 «• P * i% 

COMMENT JUNK1 « * OF INTEGER DIGITS TO PRlNTt* 
IF HT-5IGN m Q THFN JUNKl«0» nQNT PRINT LgApTNfi 



00242300 T 0679 
00242400 t °680 
00842500 T QjbJtO 



ZEROf* 
IF WT-3IGN > THEN JUNKlxi» DU PRINT LEADING* 

Z E RU J* 



00242600 T 0680 
0Q242700 T 0680 
00 24 2,800 T 0690 



go fc ; 

MAXNUt P0007777777777777 ; 

COMMENT NUMBER i 1. CHECK IF ON ROUND WE QvERFl OWEn* 



00242895 T 0680 
00242900 T 0685 
002 4 30Q0 T QuiiA 



FBI 



INTO NEXT POWER OF T£N;X 
IF CCJUNK1 * E + C IF JH2 i TEN[ E+l+DA ] THEN 2* 

ELSE 1))% 



00243100 . T 0686 
00243200 T 0686 
O 02433OO T 0689 



*1 



11 ■%■< 



to ast;x 



. , . v.. ';"■.'.' 
i- , Vi- -■,-;',, 1 






' ■'■'■■■' ".' > 



COMiftgNT #?fl*, NWMHERS ,i l# E • ONE LESS THAN THE* 



■■■■■ ■■'- M ■ • ' '■■ 



OF QiaiJrS LEFT OF THE OECIMAL* 



mz^m® r 



_i^ 



0690 
0692 

0692 



• • 



>r 



POINT, IN JUNK1 HE SAVE EITHER E + l OR* 
E+2'DEPENOING UN IF ROUND OVERFLOW* 
OCgUREn. ALSO HE COMPARE ^LNK l + S IGN* 



00243700 T 069210 
OO'eiU'iQOO T 0692*0 
00243900 T 0692*0 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



WITH WT, THIS TELLS US 
WILL FIT THE FIELD, WT 
OF POSITION S AVA ILABLE 



IF THE NUMBER* 
• TOTAL NUMBER* 
FOR InTEGFR DTGITSX 



0024^000 y 069210 
00344100 T 0692*0 
Q02442QQ T Q6?ff*0 



FC» 



+ sign;* 
comment now we convert. note 

13 NUH AN TNTFQFR IN 



THAT NUMBER* 

THE FQRM N— -N»N--Ni 



00244300 
00244400 

00244500 T 



T 0692 »0 

T 0692*0 

069a«0 



* OENOTES TRUE DECIMAL POINT* 

, DENOTES MACHINE POINT* 

Z EROS CONTAINS » OF TRAILING ZEROS* 



00244600 T 069210 
00244700 T 06*2*0 
0Q244W00 T 069P*0 



JUimM CONTAINS * OF DIGITS EE F T OF *% 
QA CONTAINS # OF DIGITS BETWEEN * &f * 

NOTE THAT WH2 + ZEROS ALWAYS s P.* 



00244900 J 
00245000 T 
00245^00 j 



0.6.9.21.0 
0692*0 
069310 



13 
14 

15 



THE STREAM PRQCEOURE WILL CONVERT THE* 
NUMBER IN TWO PARTS (ALREADY 8£T UP jN* 
PHI AND DH2). IT WILL THEN MOVE JUNKj t» 



00245200 T 0692*0 
00245300 T 069210 
QOiflSflQQ T 069ain 



16 
17 
18 



OF DIGITS LEFT AND INSERT THE OECIMAL* 
POINT, ALSO THE SIGN AND TRAILING ZEROS* 
ARE INSFRTFOf* 



O02455OO T 0692*0 
00245600 T 0692*0 
00345700 T 0692tQ 



19 
20 



Dl*0A+JUNKl-(D2*IF PCjUNKl ♦DA,DUP) > 8 THEN PC8,SUB>* 

ELSE P(DEL#0));» 
STHEAMCP9 ♦• OlPB » JUMK1«F7 <-Z£RQS,P6 »£0Hn*P5 ± Sr.N, % 



00245800 T 
00245900 T 
00246000 T 



0692to 
0695*1 
Q 697»? 



22 



25 



27 
28 
29 



30 
31 
32 
33 
34 
35 
36 
37 " 



40 



42 



Pa *■ 0l»P3*U2»P24.(SKiP*i(iiT-JUNKjL+USKlP)*Pu*UT0P# 
Pff*FfTYPj> 

PCH«-FFCHRt 



Pi * BUFF) ■'* 
BEGIN* 
P2(nS»LlT 



00246JOQ 
00246105 
002 46 107 



0699* 1 
0702*3 
0703*2 



n » 



pi*di; 
oi*oi + 1; 



)} COMM EN T INSER T LEADING Bk AMlxl 



00246H0 T 0704*1 
00246200 T 0704*3 
00246 300 T 0704*3 



COMMENT SAVE ADDRESS OF MSpiX 
COMMENT LEAVE ROOM FQR INTEGER* 

part;* 



SI «.R6)* 

DS*P3 QECl 



002464 00. T 0706*0 
00246500 T 0706*1 
00246600 T 0706*2 



COMMENT CONVERT HIGH PART;* 



si*si*.a;.* 

DS«-P4 dec; 
P7(0S«-LIT"Q"); 



00146700 

00246800 

00246900 



COMMENT CONVERT LOW HAuF;* 
COMMENT INS ERT TRAILI NG ZE ROS;* 



00247000 
00247100 
0Q 247?0Q 



0706*2 
0706*3 

0707*1 



0707*2 
0707*3 
0708*1 



PFFCSI*L0C P1J SI»SI- 
PUCOS ♦ LIT" •») ; 



■11 DS*CHft) ; 



P9-DI1 



COMMENT ADDRESS OF NEXT FlFLDl* 



00247205 
00247210 
00247300 



0709*2 
0711*0 
Q712M 



45 



47 

48 
49 
50 



52 



55 
56 



si*pi;x 

si*si+i;» 

p i *p i ; 



DS + P8 chr;* 
ds<.lit". m ;* 
P5(ih t pi; 



COMMENT MOVE I NT EGFR p A R T L EFT , ;* 



00247400 
00247500 
Q02476QQ 



DT * m-u OS » LIT—") j 



00247700 
00247800 
00247900 



0712*2 
07*2*3 
0713*0 



0713*1 
0713*3 
07UH 



00248000 
00248100 
Q024B2QQ 



FO* 



lno;% 
go to cqmmm > 



00248300 
00248400 
002 4 85 Q Q 



0716*0 
0716*0 
Q 7 1 6 « 



071610 
071610 
071 6*0 



JttA. 



COMMENT MORE THEN 11 SIGNIFICANT DIGITS SO WE HAVE* 

TO 00 SfECIAL R0UND1* 
.0 »(ZERQS ♦ £+0*11)1* 



00248600 
00248700 
Q0248800 



00248900 
00249000 
QO2491Q0 



0716*0 
0716*1 
0716*1 



0718*0 
0718*0 
Q7lft*n 



46 



3 



• • 



n 

2 
3 



10 
11 
12 
13 



IS 
17 
18 



19 
20 
21 
22 



24 
25 

27 



29 
30 
31 " 
92 



34 

35 

36 

37 " 

38 

39 



40 



45 
46 



49 



52 
S3 



H 



CUMMfc.NT 

rndofm* 

fin Tfl lAJLi 



FIRoT GUESS AT TRAILING ZERQSU 



COMMENT 
ETYPE: 



E PhRASESiX 
IF (5GN*CWHi*WHlxlt0)<Q;K0+5>W THEN GO AST; 
FlN DEf COMMENT E «■ EXPONENTS 



ETYP£i» ..PCI.) i. X..X* RETURN L.IT.EBAU USED AT REDT. 

REIN! IF CDA'D-1) > 10 ThEN GO 7.0. EB; COMMENT SPECIAL ROUND OFF 
IF MORE THLN 11 Sir.NlFICANT DIGITS** 



P(0)i COMMENT SET LITERAL TO 

0H2 «■ (IF (E-D) 4 OX 
THEN WH1 / TEMrc»n»n> 



NOT ADJUST 02 AT ERTNJX 



EA« 



ELSE Whl x TENtD-l-E3)J* 

COMMENT NUMBER NOW In FORM OF N*N----N,X 
hhLhL » * TRUE OECIMAl HaTNTX 



E • EXPONENT* 

. * MACHINE PQINTX 

OA « $ OF DIGITS RETWFFN 



s .> 



IF ( Q H^ t 



DA + ZEROS * <DECIMAL PLACES>X 
STORING IN DH2 ROUNDS NUMBER** 
ABSCDH2)) > TENCDA+n* 



THEN 



BEGINS 

DH2 
F » 



TENCOAJJ* 
t \i% 



ENDiX 
COMMENT IF ROUND OVERFLOWED THE LEADING DIGIT FROM 9 
10 WE SET Q|,|R NUMBER TO 1,0 AND INCREASE* 



TQX 



EXPONENT BY ONEJX 
0H1 ♦ QH2 DIV P(TEN8);cOMMENT SINCE HARDWARE c*n C°NVeRtX 
0N< Y ft OlfiTTS WE SPl, IT NUMRER IN-UQI- 



IF. FALSE THEN 
IfJULLLl 91045/^3604000000 



PARTS AT 8 TH DlGjTJX 



STREAM(P10*0»P9 ♦ A8S(E)#p8 * ( £<0)*p7 «, Sqn»X 

P6 *■ ZEROS/PS * CDH13#P4 * 02*P3 * Dt*X 
P2 t SKIP, PU » UTQP ,PfS 4. ufs. 



PFF ...* FFTYP' 
PCH*FFCHR» 
FID t UFDfPPl 



BEGINX 

PgCOSoulT" 

mMu 



* IQCfPMD t UMn> PI t RUFF) } 



•»); COMMENT INSERT LEADING BLAN*S;x 
COMMENT SAVE ADDRESS Q£ INTEGERX 



P7(DI «■ QI-li 



digit;* 
ds<-lit-- w ); 



PPCcOUDUl i 



COMMENT SAVE ROOM FOR INTEGER 



si<-p5;x 

DS*P4 DEC) 



PMD(Sl<-P5 

S14.S1+8;* 
DS«-P3 dec; 



; 



oigitjx 
comment convert high half j 



COMMENT CONVERT LOW HALF;X 



P6C08*UT"O»));$CQMMENT INSERT TRAILING ZEROS ; 
OStLIT "9*t% 

K DS»HT"+wj PfCOI«-DI»i; D3»LlT"- w )) ; 



00249200 
00249300 
QQ?fl9/|00, 



00249500 
00249600 
Q0249700 



0720»3 
0720*3 
0722*0 



072212 
072212 
072711 



00249800 
00249900 

Qo?5Qono 



00250J00 
00250200 
On2SQqoo 



0728*0 
0728 J 1 

073012 



00250400 
00250500 

00250600 



0730*2 

0730*3 
Q73 U3 



00250700 
00250800 
00 25Q9QQ 



07 34*0 
07 37*2 
0737*2 



0737*2 

07 3712 
Q7 37J 2 



00251000 
00251100 

O Q2 51?O Q 



7 37*2 
07 37*2 
0737*3 



00251300 
00251400 
00251500 



00251600 
00251700 
00251800 



0739*1 

0740*1 
07 4 1*1 



00251900 
00152000 
002521 00 



0742*2 
074212 

0742 i 2 



0742*2 
0742*2 
7 4 3*3 



00252200 
00252210 
Q0252220 



0743*3 
0743*3 
0744*0 



00252300 
00252400 
00352500 



00252505 
00852507 

252^10 



0746*0 
07*8*1 

074O1*, 



0751*0 
0751*3 
0752*? 



00252600 
00252700 
00252800 



0755*1 
0755*1 
0756*2 



002529O0 
00253000 
00253100 



00253200 
00253300 
00253400 



0756*3 
0756*3 
0758*1 



00253500 
00253600 

OQ25 370Q 



0758*1 
0758*1 
0738 *1 



00253800 
00253900 
00254000 



0758*1 
0758*1 
075 8*1 



00254100 
00254200 
O02543OO 



075910 
0759*0 
0759*1 



oaasnoo 

0025450,0 



0760*0 
0760*3 
076^*0 



0761*2 

©763»0 



T* 



12 



18 
19 



25 
26 ' 
27 
28 
29 I 
30 



31 



33 



34 

35 ( 

36 

37 

3fll 

39 



43 



4E 



« 



48 
49 

50 < 



55 
56 
57 



h 



00254700 T 0766 
002548Q0 T 0766 
Q02549.00 T 0706 



2 

3 

4 

5 

6 

7 

B 

9 

10 

11 

12 

13 

14 

!5 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 _ 

38 



SI*L0C P?> COMMENT CONVERT EXPONENT!! 
OS 4. PEP DEC J 



00255000 T 0766 
00255100 T 0766 
Qn?15200 T 0766 



PFFCSIHOC. PEDJ Sl*Sl-i; DS«-CHR) ; 

pucos * lit" *) ; 

Pl O»D P COMM E NT Ann P- ESS Q F N K XT F tEt-D ^ 



00255205 T 0767 
0025521U T 0768 
00255300 T 0769 



Poccsi*pi ; 
si*si+i;* 

DI»P1I 



COMMENT M OVE INTEGER DIGIT LEF T i 



00255400 T 0770 
00255500 T 0770 
00255600 T 0771 



en d;* 



DS*CHR;X 
.DS*LIT" # " ) ; 



00255700 T 0771 
00255800 T 0771 
00255900 T — 0772 



BUFF «■ p;x 
ERTNI IF P THEN 02 * D-a;x 
Re QTi ir not P thfn an ro rrtn; tommfnt out if F RnM RTVPgtat 



00856000 T 0772 
00256100 T 07/3 
00856200 T 0774 



EBI 



go to cqmm;x 

comment more then u significant digits* 
heuufsteo so up spfciau rqunoix 



00256300 T 
00256600 T 
00256700 T 



0775 
0778 
0778 



DA «• 0-1-CZERGS* p-l2>i! 

WHl * (IF £>0 THEN WHl / TENCEU 

- — — — ELSE WHl x TENX*ent! 



00256800 T 0778 
00256900 T 0780 

00257000 T — 0*42- 



CUMMENT. NUMBER NOW l N FORM NtNNN WITH E*PQnE.nT In £/ 

rndqff; comment round off number;! 

02 » UA - 7U 



00257100 T 0785 
00257200 T 0785 
00 2 573 T 0-7-4-6 



PCI); COMMENT SET KEY TO ADJUST 02 AT ERTN;X 
GO TO ea;x 

COMMENT R PHRASr;i 



00257400 t 0787 
00257500 T 0787 
00257600 T 07flfl 



RTYPE: WHl * IF SCFTH £ THEN.Whl x TEN[SCFTR]X 

ELSE WHl / TENt-S C FTRj;x 

f in .de;* 



00257700 T 0788 
00257800 T 0789 
00257900 T — 0793 



sqn * wHi < o;x 

IF ABS(WHl) > P(MAXM) THEN GO TO TRYEiX 

IF E n TH FNX 



00258000 T 0794 
00258100 T 0795 
00258200 T 0796 



BEGIN.. COMMENT. CHECK. IF. IT WILL GO AS F FIELD/X 
IF (E + 2 + + SGN) <, W THEN! 
BEGIN COMMENT YES- IT HILL;* 



00258300 T 0797 
00258^00 T 0798 
00258S00 T 8QQ 



RC* 



SKIP * W*«D*1+WT»* 
GO TO RFINX 
END ELSE GO TO TRYEi COMMENT TO BIG FOR FjX 



00258600 T 0800 
00258700 T 0803 

on2qaflQO t QRQ3 



40 

41 

42 

43 " 

44 

45 

46 

47 

«8 

49 

SO 

51 

52 

53 

54 

55 

56 



END* 

ELSEX 
BEGIN COMMENT' NUMBER IS lSS THEN 1. SEE IF IT WIllX 



00258900 T O8O3 
O0259QO0 T 0803 
00259nOQ T 0B03 



GO AS F FIELD WITHOUT LOSS IN REQUESTED! 
ACCURACY;! 
IF ABS(E) i THEN GO TO RCfX 



00259200 T 0804 
00259300 T 0804 
00259a00 t 0804 



comment to re if it will go as f fields 
end;x 
comment see if number will fit in e field;! 



0025^500 T 0805 
00259600 T O8O5 
00259700 T 0805 



TRYEI IF W < (0+6+SGN) THEN! 

BEGIN COMMENT FIELD TO SMALL FOR E. IFX 
NUMBER < 1 PRINT AS F FIELO EVEN THQUGHX 



00259800 T 0805 
00259900 T 0807 
O Q26 O QO0 T 0807 



ACCURACY IS LOST. FILL FIELD WITH * IFX 
NUMBER i WX 
IF E < THEN GO TO RCX 



00260100 T 0807 
00260200 T 0807 
00260300 T 0B07 



^_ 



ELSE GO TO ASTJX 
ENOIX ' . 
COJMEJiT NUMBER WJLJL. FIT AS E FIELD, ADJUST PaRaMfTeRS SOX 



00260400 T 0808 
00260500 T 0809 
00 16 0600 T Q B Q9 



J? 



• • 



10 

11 

12 



16 
17 
18 



20 
21 



22 



24 
28 



26 



27 
28 



29 
30 



33 
34 

35 



36 
37" 



42 



44 
45 



47 
«8 



49 
SO 



52 



56 
56 



"•""!• 



JLfL 



ETYPE CAN HANULE^X 
SKIP 4. *|-(D + 6);« 

CD * + 1) > fl THFN RFfilN 



m+fi? 02 » n-8 endx 



ELSE BEGIN Dl*01 02 * EN01* 
PCO); COMMENT FLAG USED AT REOT TO RETURN 
RRTNiiH 



00260700 
00260800 
0026 0900 



Control to* 



RRTNt 



GO 
IF 



TO 
(0 



REI.N** 

* D-i.) 



00261000 
00261100 

noaMann 



0809*2 
0809*2 
OflUU 



> 3 THEN BEGIN 0.1*8* 02 
ELSE BEGIN 01 *n*. 



GO TO COMMJ* 
MaXMJj* #00077777777777771* 
COMMENT AFTER FORMATING A 



«- D-8 E'Nuas 
02 » ,ENnjl 



00261300 
00261400 
00261500 



0815*2 
081812 
081813 



081813 
08191 I 
Qfl?3*2 



CCMMM8 
COMMI 



BUFF*P 1 
IF CODE > 2 
IF P((FFTTP» 



PHRASE WE COME HERE,'* 



00261600 
00261700 
0O261W0Q 



P<D£L>1* 
GO TO SJIX 
COMMENT THE 



THEN rt.Hl * LISXI* 
0?>SUfl'DUP? > THFN 



gq to iNi.ngp ; 



00261810 
00261900 

00 262 000 



0825»2 
0826*0 
0ft27*n 



<REPEAT PART> OF PHRASE IS IN TnP OF STaCk.* 



IF . REPEAT -1 > THEN GO TO INLOQP TO USE SAME PHRASE 
AGAIN ELSE DELETE THE "O" REPEAT AND GO TO Si TO* 
PICK UP NFXT PhfiASFU , 



00262100 
00262200 
002*2*00 



0827*0 
082712 
0829*3 



ENO outputint;* 

CnMMFKT At GHL SFLFCT t MTR T MS T f 1 1 



002 62400 
00262500 
00262600 



0832*1 
0832*2 
83 *0 



08 34*0 

0834*0 

-0-844X0- 



PROCEDURE .ALG.0LSE.L.ECTCACT1»ACT?#TANK#I); VALUE 
INTEG E H ACT1»ACT? « I; NAME T A NK i* 



ACTl*ACT2»TANK,I;x 

START OF REL 



00262700 T 0834*0 

size* 0335 words 

00300000 T 0000 1 - 



begin array fibt*3i name mem«2j array fp8«3c*31* 
array header!*];* 

LARFL RFrt.LA,MYilSFRft I 



00 3 00l00 

segment; disk 
0010030.0 



REAL RITe»U»RE.ED»13».Sel£CT*14JX 

integer status*nbuffs#bsue»ti#inout#direc#uty>e;x 

LABFL OWT,EaSY»EXIT,F!I [J* 



00300300 
00300400 
00 300500 



T 0000*0 

aouRess ■ 

-f — QQOO tQ 



00051 



DEFINE IOO»<*TANK)#;x 
LABEL WR#E8R»RF*RRJX 
LAB E L PC19J 



00300600 
00300700 

003008QJ 



T 
T 

-T- 



0000*0 

0000*0 

OOOQIQ 



0000*0 
0000*0 
0000*0 



SWITCH CURReNT*WR»ERR#RF#RH;* 
LABEL CR>LP*MT>Dk/SP,CP#PP>PR.OC*X 

switch us*u cR»lp^mt»easy»qk*sp»cp*up>pp»pr»dc»cR>lp»oci9* 



00300900 
00301000 
0n3nlnlQ 



REAL SUBROUTINE COUNT;* 

BEGIN FOR 1*0 STEP 

8EGIN IF NOT 



00301100 
00301200 
QQ3Q13QQ 



0000*0 
0000*0 
Onoo*n 



1 UNTIL NBUFFS-i 00* 
TANKCI3«Cl9*n THEN* 



PUTANKC I ]],P2 000000000* 2 #COM#DEL#OEL>;» 
IF TANKU3. [27*13 THEN 
BEGIN 



00101400 
00301500 
0Q3Q1600 



0000*0 
0000*0 

oooo'Q 



end; 



I ♦ I + f<FlBC4J,C2»U 

pen; go owt; 



AND FlB[5].C44»l]>* 



00301700 
00301800 

00301805 



0000*0 
0001*0 

000 5 * 1 



END; P(0);* 
owt: counter;* 
end count;* 



00301810 
00301820 
00301830 



0007JQ 
0009*2 
0011*0 



SUBROUTINE SPACE! PC XQH, TANK , $,1 1 #C0M»DEL#DEL#0EL )1X 
SUBROUTINE MOVEUPl* 

ir <I*MEMCFIBC16) I NX U)*8SIZE THEN* 



00301900 
00302000 
00302100 



00U*2 
0015*1 
0017*0 



BEGIN T ANK [0] ♦ I0Q4 (P ( DOP ). [ 33* 153-BSIZE+I) £33*33*15 31* 
T1*FIBC16], [33*1531* 
STREAM (N«- 1 ♦1»L»0*S*T1*I»0»T1-BSIZe)1* 



00^022 00 
00302300 
00302400 



0017*0 
0017*3 
0018*0 



BEGIN Sl*LOC Nl SI*SU6; DI*LOC LI 01*01*71 DS*cHRlX 
SI*S1 DI*D1 ©S«-N WDS1 L(0S*32 W0S1 0S<-32 WDS);X 



00302500 
00302600 
00302700 



00*8*1 
0021*1 
0022 tO 



0024*3 
0028*1 
0029*3 



00302600 
00302900 

00303000 



0032*3 
0034*0 
0036*1 



1< 



12 

13 



16 

17 
18 

19 



20 ' 
21 



23 ' 
24 



27 
28 
29 ' 
30 



33 
34 

35 I 
36 

37 
3S< 



40 
41 
42 



45 



« 



50 ' 



52 
53 I 
54 
55 
S6< 



• • 



h 



12 
13 



IS 
17 



19 
20 



23 
24 



28 
27 
28 
29 



34 
35 
96 



41 
42 
43 



46 



48 
49 
50 



52 
53 
54 

55 
56 



subroutine; refill;* 

8lg1n for 1*0 step 1 until nbuffs-i dux 

TANK[lJ»TANK[I]ftU19»47H]*DlRFC[22l 47? l] 



Ufi M£>;a 



IF NBUFFS >i THEN* 

BEGIN; STREAM (T*>IOO»N*NBuFFSM#0«-TANK);X 

BEQIN Si»ni Sl»Sl+a; nS*M wnsi ST^nc t» nS«.wns t^ryi 



PC2&CN0T 
END END REFILL** 
SUBROUT IN E E MPTY * * 



CIREC)Uj47:13»TANK,10>11*CUM#DEl>DEL>0El);* 



BEGIN nBtl73*8SlZE-<lOD.C33*l53-(STATUS«3)»ACT2»FlBU63 f C33»i53); 
FlBCld3*Ft8U6 340[22*22tn&0C2<H2«»n>X 
FIB 1 1 93 »F IB H^UAC ??*??* 13*01241 241 21 H 



FI.BC 13.l*f 18 ..[ .13 3 .&Q 125 * 25 U 3 &0 [27 * 27 1 1 3 ;X 

F 18X5 3. 143*2 3*0;* 

TANK [NOT l3 4>PtDUP»L0D)>or2ai22llHOrgai9flllU« 



8SI2E*IF STATUSaO THEN MEMCACT2-13 ELSE lQD f C8»l0j;X 

FOR 1*0 STEP 1 UNTIL NBuFFS-1 OCX 

BEQIN TANKEUoTANKtlUlf 19147 11 IftOf 22t 2? I 1 1&0r24 I ?A > 1 ]X 



&Fiatl83t8«38«103 OR MEM!.* 

if i>o then* 

TANK Ml -TANK CI U((STATU.S»3)*ACT2U33I33H5 3*»- 



ACT2*MEM[ACT2 
END ENO EMPTY;* 
IF I « 6 THFN GD TO LM 



, 23.C18U53;X 



IF 1=7 THEN GO TO MYUSERR i 

TANK«-((I-1) INX *PC,TANK).)*0t8«8*253.;X 

FIB + TANKCNQT 23; STATUS»FlBL5i; UTYPF»FIB[4l.r8t4iit 



IF 1*4 THEN IF STATUS, C42ll3«0 TH£NX 

BEGlN;STREAM(S*tFPBtFI8C43f C 131 113*23 3#0*CN8UFFS3)jX 
BEGIN SI + SJ 0S<-3 nCT FNDIX 



IF FlBCl3sO THEN'FlBtJll-NBUFFSi 

BSIze*FIfl[133,t28u6j;» 

IF CACTI QR 4)»fi'jH6N U±gJL2 ELSE* 



IF ACT1»4 THEN Tl*822 ElSE* 
IF ACTt»8 THEN Tl»»#52 ELSE 

If acti»q then* 



IF FlbCl53tC24563 LSS 16 AND NBUFFS GTR FIBU3 

THEN TU»?12 ELSE T1»*IF NBUFFS EQL BSIZE 
THEN 6 ELSE gJLg ELSE 



IF ACT1 » 1 THEN 

BEGIN nbuffs»«bsize; ti*»7* 

BEGIN HEAOERt«*tFl8tla33; 



IF UTYPE * 4 THEN 



IF(DIREC»*FI8[73-13 
Dl8EC»*IN0UTMNOUr» 
END END ELSE T1I« 0; 



GTR CIN0UT»*HEA0ERC7J ) THEN 
(OIREC DIV HEADERC03tC30U2]) + l; 



P(TANK&TUl8»33ll5 3*6,a,C0M#DEL*DEL3)X 

FIB[133,C28»103**IF FIBC 153. C24 163 LSS \6 AND NOT acTi 
THEN FIBC13 ELSE N8y_F_FSJ IF ACT! AND UfYPE »4 THEN 
BEGIM FIB 1 63 l*IN0ur; FIBC73 J = DIREC! END! GO TO EXIT; 



END ELSE GO TO EXIT ElSEX 
IF STATUS. [4H23/Q THENX 



EASY! BEGIN FtBC 13 J-FI0C 13 3t< ACT2«3 )C25»47l U4C ACT2XQ )C27t 47 I n** 
GO TO EXITJX 

e nd;* 



00303100 
00303200 
00303300 



00 36 » 3 
0037*0 
004U1 



0Q303400 
00303500 
Q03036Q0 



0046*2 
004711 
0049*3 



00303700 
00303800 
00303900 



GU TO USIKCUTYPEJJX 
M T» NHUFFS«-FlBtl33,tl0t93; 3S IZl*FIBC 183 , [ 18' 15 J ;X 

lNQljT»ACT?^Qi QIREC»ACT2»3I ST AXul±lI AT u9 , L46 » 2 J i% 



CR* LP' CP* 
$ SET QMIT 



GO TO CURRENTtjriBC53*t43'23 3iX 
Fftt PR I GO TO ERR* 
* NflTfTlHESMAItltifli ■ 



00304000 
00 304 | 00 
00304e00 



005112 
005413 

ooa5»o 



00304300 
00 304400 
00304*100 



005510 

0059*2 
OQrtHS 



T 
T 



00304600 

00104700 
00 30ftftOQ 



006711 
007013 
0073»1 



00771 t 
008210 



00304900 
00 305000 
003q5lOO 



00305200 
00305300 
00305400 



0090 J l 
0093*1 
09 4 10 



00305410 
00305500 
00 305 600 



0098*1 
101*0 
1 01*3 



0l05»2 
0i06*3 
lQ9» 3 



00305700 
00305800 
0niO5QQQ 



00305950 
00306000 
Q0306i00 



0U4IQ 
0116*2 
Q 1 1 <? I ? 



00306200 
00306250 
00306100 



0120*1 
0123*0 
0124*2 



0127*0 
0129*2 
0|32*n 



00 306 350 
00306400 
on3n6snn 



00306600 

00306610 
QQ30662Q 



0133*1 
0^35*3 
0138*2 



00306630 
00306640 
00306650 



0141»0 
0142*1 

■0M*»» 



00306700 
08306800 
00306805 



014653 
0149*2 

01 53 *1 



00306810 
00306900 
00307000 



015412 
0l56*2 
015 9*0 



00307100 
00307200 
00307300 



0164*0 

0167*2 
. 1 6712 



00307400 
00307500 

0Q3076QQ 



0169*1 

0174*1 
01741 1 



00 307700 
00307800 
00307801 



017413 
0182*3 
0186*0 



0189*3 

0l93*2> 

019410 



• • 



DC 19 * POUSHCIOD' C TANKC 1 3 J# *PCOuP), TANK. <-, «• ) ; 

FIB[5] «■ (*PCUUP))&P(OUP# LNGH43»43» 13; GO TO 
S SFT QMIT = TIMFSHARING 



EASY/ 



OC* GO TO E«RJ 

S POP OMIT 
JtRJ IF NOT OIRFC THEN 



00307810 T 
00307820 T 
00107825 T 



0194*0 
01*6*2 
O l 99* 3 



00307830 T 
08307831 T 



0l99»3 
020011 
00307900 T — 020 *1 



ERR: s PC TANK* 8/ 11» COM.)** 
SP? PCMKS, 1,0,CNQT 2) I NX TANK, 4, SELECT ); 
_&Ht — , IF INPUT THEN* 



GO TO. EASY** 



00 308000 I. 0200*3 
00*08100 T 020310 
0030. 6 20 T Q2 U 5 » 3 



BEGIN mcGUNTJ PCC-I)); space;* 

IF U*ME«CFIBU63 INX NOT 03)*8SlZE THEN* 
BefitlUSTftf AM(NfrI + 1tNQTV64f(I + l) DIV 64.* 



00*0^300 T 
00308400 T 
00308500 T 



0206*0 
0210*0 
021310 



10 

11 

12 
13 
14 
IS 
16 



■JUIfciww*™*" 



s*Fiane>] inx (not q) inx j,x 

D«-FIBU6] INX (NOT ...0).. INX &SUE)J» 

sits; ncps+hos; susi-ia; ph-di-ia?;* 



00308600 T 
00308700 T 
0030R8QO T 



0215' 3 
0217*2 

021912 



N0IV64C2C32C0S4.W0S1 Sl*Sl-t6J DI*Dl«l6 ) ) })* 

enq.j* 

TANKtQ34.taStZE-i) inx ion;x 



00308900 T 
00309000 T 
Q03091Q Q T 



022ili 
022313 
P-22AJL0 



end;* 

fi8c173«-i-cif fibc17j"0 

♦<STATU5'0>«IPP . 



THEN I ELSE ,.FI.B[173j* 
C 8U 0] + UT ATUS*3?;» 



00309200 T 

00309 300 T. 
0Q 3Q940Q T 



022610 
0226*0 
02 29* 2. 



19 
20 
21 
22 
23 
24 
IE 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 _ 



FIBC163*CBSI«<E-1) INX FiBC 16341 [22* 471 13 Ji 
FIBtl93*FlBC193KFIBCl6] INX CSTATllS*3)X 
«(STATuS»i>xp iBn 83.f3 3»l5 3)r3 3»33U 5 3* 



00309500 T 
00309600 t 
00 3 09700 T 



0233*2 
023710 
239*1 



FIRC53 



&CIF STATUSa 

IF STATUS* 

[«3<23+3; rfri 



Then fimi93,c3I5j + 

1 then 5 else 7)[3U3 

[13J.r2SM3f.li* 



2 ELSE* 
I53&U22U7I X }}% 



00309800 T 
00309900 T 

Q031PQQQ T 



0241*3 
0245*1 
Qg49'3 



TANKtNOT 13*PC0UP»L0 
MEMCFIBC163 INX 13*1 
MEMCFIBC163 INX NOTC 



U)«lC22t47tl3;X 

;x 

i«m»i;» 



00310100 T 
00 310200 T 
QQ 1103 no T 



0254*3 
0237*3 
0260*0 



fill* Refill;* 

pc mk3,0,1, tank, heed, mks, 0,0, tank, reed);* 

END ELSE* 



00310400 T 
00310500 T 

0Q31Q6Q Q T 



0263*0 
0264*0 

0266*2 



BEGIN IF COUNT THEN IF 1*1 

BEGIN P(MKS#1>0#(N0T 

FIBC133. £25*13 



THEN* 

2) INX TANK»4>SELECT 

»i;» 



>;x 



00310700 T 
00310800 T 
00310900 T 



0266*2 
0269*1 

0272*0 



PCTAN 

PCMKS 

GO TU 



K*Q, 1 1 * CO 
* ACf l*6»f 

EXIT;* 



Mt deluded;* 
ank#i#sel.ecT);« 



OQ3H0O0 T 
003H100 T 
003112 00 T 



0274*2 
0276*0 

02 77* 2 



38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
18 
49 
SO 
51 
52 
53 
54 
55 
56 



eno;* 

pcc-D); space; empty;* 



end;* 



00311300 T 
00311400 r 
00311500 T 



0278*0 
0278*0 
0281*0 



RRI 



go ro 

IF INO 
BEGIN 



exit;* 

UT THEN* 

ti*count; 



PCI ); space; MQVEUPJX 



00311600 T 
00311700 J 
00311800 T 



0281*0 
0281*2 
0281*3 



FIB[173«-I-(IF FIB 

♦(STATUS* 

FIBC163»FI8£16UP 



[173*0 THEN I ELSE FIB [173 )♦ (3TATUS«3)X 

0)xiQD.ca*i03;x 

CDUP,1,INX,BSIZE,-)C 33* 33* 153*0C 22*22*1 m 



00311900 T 
00311000 T 
00312100 T 



0286*0 

0290*2 
0g93»p 



FIBC193«-FIBC1^)<4( 

&CPCOUP). 
. , TA'MK C NQT 1] 



FIBL163 INX (STaTUS«3))C33*33* 
C3|5]-STATUS4CN0T STATUS)! 46,4 

PCDUP*LUO)S0C22t22»l3;* 



l5U0t22!22*lJ* 
6 1 1 J >C3l43»5];« 



003i 
00 3 1 
00 31 



2200 T 
2300 T 
2400 T 



0297*2 
0300*2 

0305*0 



FIBC53. [43*23*2; FI8C 13 3 . [23* 1 3*0/ GO FILL;* 

endjx 

IF TOUNT THEN IF 1HTHFN* .-. \ 



0031 

0011 
0031 



2500 T 
2600 T 
2700 T 



030810 
0313*2 
0313*2 



BEGIN 
PCI-1 ) 
FIBC 1 6 



P(MKS,0,0, ( 

; space; mo 

3»FIB[ loJ&P 



NOT 2) IN 
VEUPi* 
CDUP, 1* IN 



X TANK,4,SELECT); GO 
X,BSIZE»-H33*33*l53J 



TO EASY END;* 
X 



0031 

0031 

_0£L3. 



2800 T 
2900 T 
3Q0Q T 



0316*1 
0319*2 
0322*0 




*1 



FIBCl* 

empty; 

PCMKS, 



3*(STaTUS«3 

X 

fl«0,0<C»U, 



) INX FIB£l6I*fIBCt83 t8*38*t0 
TANK, W1TE*MKS*Q«Q*0*.BSIZE«TaN 



);* 

*? R l T E?i * 



00 31 
0031 
0ft3l 



0325*0 



MMUL 



% 

OKt 



GO TL) EX1TU 

IF F I BC43 ■ C27I J J»l THFNX 



003 
003 



3400 T 
3500 T 
3.6QQ T 



033353 
03341 1 
OX3JLL4 



2 
3 
4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
18 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

(3 

(4 

45 

46 

47 

18 



BEGIN FIB(53.[43J23*ACT2;X 

FIBC163,C24*13*ACT2*ACT2*0JX 
FIBrl93»FlBri9 3&ACT2[24t47»l3&0C25*47>l 



UL 



003 

003 

-OJLI 



3700 T 

380G T 
3000 T 



0336»2 

0339*2 
03 3 10 



END El.SE* 
IF F I B C 4 J 



[27»3]=0 THtNX 



R pw>x 



003 
003 



1000 T 

noo T 

^200 T 



0346*2 
0346*2 
0348*2 



BEGIN IF ACT2»i THEN ACT2*F 18 153 . [43* 23ELSfX 

IF ACT2-4 THEN ACT2*0 ELSEX 
IF ACT2»3 THEN ACT 1»F IB C73>1 ELSEX 



003 
003 
003 



43OO T 0349*0 
44OO T 0351*3 
4 » S0fl t 035 4*1 



IF FlBt53.C43l2jB3 
ACTl*FIbl7JJX 
P(MKS»0»0'» (NOT 23INX 



THEN ACT l«-FIBt7 3 + 1 E 

TANKM*SE LECT ?;X 



l^ex 



003 

00 3 

Ml 



4600 T 357*2 
4700 T 361*2 
48 00 T 0363*0 



FIBCl33«-Fl8Cl33A(ACT2-3)C25l47it3 4<ACT2^0)C27»47»13;X 

FlBC73*ACTi;X 

Pf T ANKjO* 11. COMPEL, DEL UX 



003 
003 

003 



49OO T 0365*1 
5000 T 0369*3 
SjOO t 0371*0 



END ELSEX 
BEGIN IF ACT2=3 
IF A C T 2-1 



THEN GO TU ERR IX... 
OR ACTgsg THEN GU 



T Q H E W I* 



003 
003 
003 



5200 T 
5300 t 
5/|QQ T 



372*2 
0372*2 
3 7 4 *1 



IF ACT2*0 THEN BEGIN 



HEaOER**CFIBC1433;x 
IF FIBC73>HEA0ERC73 THENX 
H£ AnER C73»F IB C7 3; X 



003 
003 

003 



5500 T 
5600 T 
570 T 



0376*3 
0379*1 
03B0*2 



PCMK$#Q>l#TANK,REED>MKS>O'0'TANK,N£E0)> 
END LLSEX 
P(MKS»l»fljQ»(»l)»TANK»RlTE»» 



003 
00 3 
OQl 



5800 T 382*2 
5900 T 0385*0 
6Q0Q T 0385*0 



GO TO EXlTJ 

end ; go exu j 



MKS> l»0*0#FlBtl83.C33» l5 3 » T ANK,R jTe )|* 



003 

003 
JJiU 



T 0387*2 
T 0390*0 



6J00 
6200 
6?00 t Q39QI2 



L6» 



FIB «■ *TANK; TANK ♦[TANKC3J3J 
IF ACT 1 * 1 ThEN 
BEGIN X I/O COMPUTE ^ T NQ T PRESENT 



X.SOHT REEL SWITCHING 



003 

003 

_0JU 



64OO T 0391*0 
6500 T 0393*1 
6 6QQ. T 0394*0 



IF NOT (*TANK),C27»1 
PCl'CTANKtNOT 
ELSE 



3 THEN X PARITY 
2J3#19, 17#C0M) X TERMNATE ON PARITY 



003 
003 

Qn3 



6700 T 
6800 T 
ftpnn T 



039412 
03*5*3 
Q396M 



BEGIN X EOF OR EDR 
P(TANK»11*11#C0M 

IF MEH[TANK[NOT 



^CEL»DEL)I % READ E 
1] INx 43 .142*63 sO T 



NDING LABEL 

HEN P(1*RTN); XtUF 



00 3 
003 

JLOJ. 



7000 T 
MOO T 
7?QQ T 



398*1 
0398*3 

0100* 1 



Tl* FlBC133 f C28* 
P(MKS#4#0#CTANKC 
riH133.C2Bli01 



10 J + 11 X REEL # * t 
NOT 233#4#SELECT)I X 

» Hi 



CLOSE PURGE 



003 

003 

_Qjl2 



7300 T 
7«00 T 
7500 T 



0404*3 
0406*3 
0409*0 



P.Ct.T.ANK3»Q#ll.#C0M)i..P..(.0ART.N)l 

end; 



END. 



003 

003 

-043- 



7600 T 0411*2 
7 700 T 0413*0 
7800 T 4 1 3 *0 



IF ACT1 « THEN X REEL SWITCH ON OUTPUT 

BEGIN 
HEADER » TANKfNOT 13J Hr AnFRT A3 \ t*2 16 3 * 18 X FOR PI Afi 



0Q3 
0Q3 
003 



79©0 T 
8000 T 
fllOO T 



0413*0 
0413*3 
0414*1 



45 

46 

47' 

48 

49 

50 < 

51 

52 

53 i 

54 

55 

56 ' 

5? 



T.1 ♦ FIBC133.I28 
P{MKS*7#0» CTANK[ 
FIBE133.[28*1 



J 103 + i; 

NQT 233»4vSELECT)l 



J .» TW 



003 
003 

mi 



8200 T 
8300 T 
8400 T 



0418*2 
0420*2 

!■ M .. I f iC» p! " 3 



49 
50 
51 
52 
53 
54 
55 
56 
57 



JJL 



P( 

eno; 
A CTl » 2 



TANK,0#ll»eOH)i P(XlT)i 

IhSM x rewind output 



003 
003 
003 



8|0Q T 
8600 T 
8700 T 



Q425I1 
0426 1 2 

dta. 



BEGIN 
Tl «• IF 

,P.(HKSfTl*Q»[UNK 



FIBC133. 
JO. 



[281103 a 1 THEN ELSE 7i 
[NUT ,233«4>SELECT)| PcMT)J 



003 

003 



8800 T 
8900 T 
9Q0Q T 



0427*1 
0427*3 
43 1*1 



ENO I PCXlTJi 
MYUSCRRI*XX WfANeH TO HERE IF 
PrfANKCNflT 3 3)1 TANKffttST 



t»?l 

31»TANK(NnT ftltQJ fr(MK3»,9 » JUNK, DEL ) I 



003 
083 
003 



9100 T 
9110 T 
9120 T 



0433*3 
0434*0 

043410 



• • 



2 
3 



FlB*TANKCNOT 2li HEADERS C l HE AOERC 1 3 3 , CFX* SFB ) * IOCS* 38* 103 / 
STR£AM(PX*ACT2*p2*tFPB[FIBC4J,Cl3ill3]]#P3*FIBC5 3 t tni2]*HEA0ER> 
BKfilN OSf-jHT — FAEC"? SI*P2J SI»SI+1* PS+7CHRJ SI + ST + U 



OS*LlT w /«i TALUY*0; 7CIF SC» W "THEN JUMP OUT) S»Sl*i' 
TALUY*TALt.Y*i)l SI*P2i SI«"SI*9J P2*TALLYJ D5*P2 CHR J 
pS»7LTT w iMYUSF» w : Sl»LP C P3 l nS»DFC* PStBLI T*) T RIED w 



00319130 
0031V140 

00319150 



00319152 
00319154 
00319160 



0439»2 

0443*3 

044X14 



0449*1 
0451 t2 
045JJ4 



JEX 



SI*L0C Mil . .. SI.*5I*2J.. U3 + 6CHR; DS«-2LIT" :♦" I 
END OF STREAM l.„. 
[HEAPERCO]3tt33ii5},34,cOM) t 



00319170 
00319180 
00319190 



T 0456 1 
T Q457* 
T 04 ,57* 



CXItll* 

end select;* 



0G319200 
00319300 



T 0459*1 
T 046010 
SIZF« 4 61 tt ORDS 



10 

11 

12 

13 

14 

15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

26 

28 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

J9 

40 

41 

42 

»3 

44 

•5 

46 

47 

•6 

49 

50 

51 

52 

53 

54 

55 

56 



PROCEDURE INTHINSIClDUPE'prNUiviDlM^SlZEvTYpE);* 

value dupe,u/numqim,size/type;% 



START OF REl 



00400000 

segment; disk 

00400100 



T 0000 » i 
ADDRESS ' 
T 0000 » ■ 



00067 



BFGIN* 



ARRAY DUPEC*3JNAME 0;X 

integer numdim*si2e#type;x 



00400200 
00400300 
040 0400 



T 0000* 
T 0000* 
T 0000* 



name dumstype*a;x 

array DQPE=-8[*]JX 
ARRAY PRTPUINTER»10C*3;X 



00400500 
00400600 
0Q4O0700 



0000* 

odoo* 
ooco* 



REAL NUMBUFF«^7»l0T»«»2#M0DEs*6»FlLEN0»-9*BUFFSI2E«*5;X 
REAL DlSPOSITI0N»-l0»R0wSIZE»-U#NUMROWS«-i2*RECSUE«O;x 

N AM E Ff% 



00400800 
00400900 
00401000 



T 0000* 
T 0000* 
J 0000* 



INTEGER l»J'Ki% 
REAL C}% 
BOOLEAN Bi% 



0.04 0.UOO 
00401200 
00401300 



0000* 
0000* 
0000* 



ARRAY AlT*6C*3;» 
REAL RECURSE»5J INTEGER BLQCkCtR»16; % 
NAME M»2* 



00401400 T 0000*0 
00401500 j 0000*0 
00401 6 00 T 000 0* 



ARRAY FIBC*}; 
ARRAY FPBs3C*3'SEGDlCT=4C*3; 

I N T E G ER TIPE«-2»CYC LE 3 -3jpATE°-4,R £ ;EL«»5,F l Q*-6>MFIO a '»7 ; 



00401700 
00401800 
00401900 



T 0000* 
T 0000* 
T 0000* 



name fle--8j 
Label exit»aok#upoatefpb; 

REAL PTR»»U>APTRg-10*L80»-7»OlMQ»-6»LBN»»5,OIMN»»4,MAXLB,MINiiB, 



00*02000 
00402100 

Qq4q22Q0 



t 0000* 
T 0000* 
T onnni 



U6U*UBN»N# TP»H; 
ARRAY ARRY * MINUB C * 3 
INTEGER DIMl s UBO, 



di w 2 » ur n; 



00402300 
00402310 
00402320 



0000* 
0000* 

QOQO* 



ARRAY OATsHC*3#NEW«"8C*3#OLO«-9C*3; 

NAME MAT»»2#NATJ 

BPOLEAN QWNTQG*REDECLTQG>TASKARRAYTQG>AUXTQGI 



00402400 
00402500 
00402600 



0000* 
0000* 

oooo* 



LABEL FOUND, ARR0UNDFauN0,TYl2; 

name phile*-io; 

LABEL TY0>TYl»TY2»TY3»TY4jTY5>TY6»TY7»TY8f TY9MY10J* 



OQ402700 
004Q2800 
00402900 



I 0000* 
T 0000* 
T 0000* 



LABEL TYll, 

SWITCH SW*T 

T 



TYi3>TYi4#TYl5>TYl6#TYi7#TYi8#TYl9; 

Y0#TYl>TY2»TY3/TY4#TY5>TY6#TY7#TY8#TY9#TYi0#TYn* 

Yl2>TYi3^TYi4,TYl5>TYl6#TYl7»TYi8»TYl9i 



00403000 
00403100 
00403?00 



T 0000* 
T 0000* 
T 0000* 



45 
46 
47 I 
48 
49 

sol 

51 

52 

53< 

54 

55 

56' 



taskarrayTu 

GO. TO SW[TY 
TYflUT , Y l *TY 



G*TyPE.[l«l J>AUxT0G*T YPE, t 4 H U jT YPE*T YPE AinD *77} 

PE3;x 

3»TY3 «* 



00403250 
00403300 



T 0000* 

T 0008* 
J Q019* 



OWMTOG 

I 

E*P<NuMB*M«»l 



♦TYPE, 146* 13; 
*AItt^0j-)TYPE«-TtPE*4lX 

T0Gx(NUMPIM*U*NQT*£NUMPIM3,INX)J 



00403500 
00403600 
0Q4 Q37QQ 



T 0020* 
T 0021* 
T 0024* 



A«-PCSlZE-l+OWNTCiG#NOT# [£3MNX)HF P ( C EC 3 3 # DUP'LOP' XCH' JSN)sO Oh 

E£03>1023 THEN 
P(E[Q3,TRUEM»29#COM)J 



00403800 
00403900 
00404Q0C 



T 0027* 
I. 00 31* 
T 0012' 




IF OWNTOG THEN BEGIN 



H*OAn0J*NAT>P<0*N0T#tE3*INx>; 
rOB„:K»i,.»TCP,.l UNTIL H 00 



00404100 



IF ACJ].CCFJ"0AT[K].[1U5] THEN GO TO FOUND/ 
FOR C*l STEP 1 UNTIL SIZE DO 

QAUH + H + 13-Q1ACC13 LLOJJJL5JJ 



00404400 T 0039 
00404500 T 0044 
00404600 T 004ft 



FQfi C*l STEP 1 UNTIL 2XNUM0JM DO 
P(NATCC-13*CQAT[H*-H*13 3#ISD); 
QATfO )» h i6 Q AQtt i 



00404700 T 0052 
00404800 T 0057 
00404900 T 0X160- 



fqund*hedecltog«-trle; 

STREAM C R «-0 « NUMDIM' a *C OAT [TP*K + SIZE 

begin si + a;tally*i; 



33*B«-[NAT3 



>; 



00405000 T 0062 
00405100 T 0063 
00405200 T 0066 



NUMOIMCIF 16 SC*DC THEN TALLY*©*; R*TALLY i 
ENDi 
IF P(NUP) THEN GO TO EXlTi 



00405300 T 0066 
00405400 T 0068 
00405500 T D-QAfl. 



10 

11 

12 

13 

14 

15 

16 

17 

IB 

19 " 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 



arrounofqund* 

AOKtPC 



A[O]«.[PRTP0lMERCl733; 

end; 



00405600 T 0069 
00405700 T 0071 
00 40 5800 T 071 



BEGIN* 
B«.NUMDIMXJJC*((IF AUXTOG TH 
&ACJ3UTF3 & 



EN 3 ELSE (TYP£,C47»l3 OR 0>) 

E[ 0] [ e »39» i o n ; x 



00405900 T 0071 
00406000 T 007^ 
O Q 40ti lOO T Q 075 



IF NOT OWNTOG THEN 

Alf[I*I.*l3*.C I TY 

*MU*P IM[ 3H 3i5J< 



PEC2M6H]iaL0CKCTRC8*38ll0]% 
tilJLMlSLLiA UlLnJllll - 



00406200 T 
00406300 T 
QQ4»6400 T 



00/8 
0078 
0082 



IF TAS 

IF B T 

PfMKS»Fl.Ar,fr->.TF 



KARRAYTOG THEN AITCI3,C1«23 * 3; 

HENX 

M+tlWNTndl3«NUMOIM"ltEC0 3i 



00406450 T 0086 
00406500 T 0089 
00406400 T 0089 



TYPESAUXTQGC4H47 
END* 
UNTIL Uji-J+1 )sST7E) QR RED 



I1J»RECURSE) * 
ECLTOfii- 



00406700 T 
0Q406800 T 



0093 
0094 
00406900 t 0094 



IF REOECLT 

BEGIN 

PfHKS.TP+g.2«MCnAT[ 



OG THEN 
XREMAP 
K3.CU1533 



EPRTP0INTER[l733tLQ0t 



00407000 T 0097 
00407100 T 0097 
00407200 T Q&M. 



PAT[TPJ*0 
RE CURSE* I 
nEL)>K»K+ 



ATCTP + 1 
MlOATtK 
JJ 



3»NAT[03*NATC13'NUMDIM* [NAT 3, 12 
J.[lU53 3 3*L00#NUMDiM#25,CQM,0EL, 



00407300 T 0102 
00407400 T 0105 
00 4 075 T 0-1-08. 



IF J<5IZE T 

STREAM(NUMD 

BJLGJJi 



HEN GO ARRQUNDFQUNDI 
IM>A*£NATC0 3 3»8«-C0ATCTPJJ>; 
si»AtNUMniMfOS»3 wnsi ENDi 



00407600 T 0110 
00407700 T Olll 
00407800 T 0112 



end; 
gu to exit 

TYa: IU5IT 



MHQ3 4.UGQ 

;* 

t6(TY7U 



to exit; 



G*TYPE,[46U3i 

xchmsn^dup )S0 



00407900 . T. 
00408000 T 
00408^00 T 



0114 

0116 

-04X6 



OWNTO 

IF P(D*BUP*L0D» 

U Qfl 



OR P(XCH>>1023 THEN P(OtQ3>lM#29»c0 M 



00408200 T 0117 
00408300 T 0118 
Q04Q8flQQ T Ql22 



begins; 

B^NUMDIM^i; 

0UPEU3+FLAGCC + CCIF AUXTOG THEN 3 ELSE 



00408500 T 0123 
00408510 T 0123 
0040860Q T 01,24 



♦5. 
46 
47 
48 



(T 
«C0UPECK33CCTF3&0 
IF B THEN* 



YPE, £47113 OR B))* 
C03C8J38U03) )i% 



00408700 T 0126 
00408800 T 0127 
00408900 T 0130 



P(MKS»FLAGCC3fCDCl + OWNTOG33 
TYPE&AUXT0GC4H47 
.END * 



#NUMDIM-1,DC03* 
»13»RECURSe) X. 



00409000 T 0130 
00409100 T 0134 
0Q4Q93QQ j 0_U5- 



49 

50 



51 
52 



TY1 2* 



UNTIt(K*K*U«SlZEX 

GO TO exit;* 



00409300 T 
00409400 T 
04 6950 T 



0135 
01J7 
0138 



S3 
54 



55 

56 



IF LB0<LBN THEN MAXLB*lBN 

else ma*lb«-lbo; 
ub0»lb0 + dimq-1; 



UBN*L8N+0I 
IF UB0<U8N 



MN-U 
THEN MJNUB*UB0 

ELSE ttUfcUB-uBHJ 



00409600 T 0138 
0Q409700 T 0139 
O Q409B0Q T 01 4 1 



00409900 T 0143 
08410000 T 0145 
00 4 10100 f 01 46 



J& 



• • 



h 

2 
3 

4 
5 
6 
7 



N«-MINUB-MAXLB + U 

IF NU«DlM=l THEN BEGIN 

TF N <Q T HEN G Q T Q EJO Xi 



STREAM<N,K«-N.C38»4 3*A*(ULOCMAxl8-LBQ33#B*-(NEW(MAxLB*LBN3 3JJ 

8ESIN SI*a;M(0S*32 WDSJDS*32 H0S);0S*N HOS; END; 
EMfi 



O0'4lO20O T 
00410300 T 

QoqiQqQQ T 



00410500 T 
00410600 T 

onai070o t 



0148*2 
0iS0»i 
01, 51 , »? 



0152*3 
0156H 
Ql 5 6 > ? 



ELSE 
FOR 1*0- STEP 1 UNTIL N-l 00 
PcMKS«PTR»2*APTR + 2> [QlOCHAXLB»LBO + I]J,LQO* 



00410800 T 
00410900 T 
0Q4U000 T 



Qi58*2 
015812 
Ql63»l 



9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

26 

28 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

«2 

«3 

44 ? 

45 

46 

47 

•8 

49 

SO 

51 

52 

S3 

54 

55 

56 

57 



CNEWCMAXLB«-LBN+n3#LOO»OATCPTR3*OATCPTR*n> 
M*TCAPTR3»MATCAPTR*1J*NUMDIM«1,CMAT]#12»RECUR 
on Tfl £jgjy 



SEH 



0041U00 T 0t66*3 
00«U20'0 T Oi70*O 
aOflUJOfl T 017412 



TY8S »* 

PCIF NUMBUFF<1 THEN 1 ELSE. 
PCNL;MD1M>,NUM l ,IMi UP)? 



NU*BUFF> .NUMBUFF' ISD)i 



Q04U4OO T 0175*0 
00411500 T 175*0 
00411600 T 01/7*3 



<»<RECSI2E#.RECSI2EMS0}; 

P(BUFF8l2£*,BuiFFSUE*lS0)J 

P( RnWSI2Et*RnwSlZE»tSQ)l 



00411700 T 
004U800 T 



0178*2 

017911 

0Q4U900 T 0160*0 



IF PCNy.MROW§* .NUHRUWSj, ISn)>20 THEN 

P(NUMRQWSrTRUE*2*29rC0M); 
P(MKS,+P(,PQPEJ,CNUMflUFF?l)tNUMBUFF*?7» 



00412000 T 
00412100 T 
004122Q0 T 



0180*3 
018210 
0) 83*3 



IM'l'RECURSE); 
AlTCAlTC0n*-AITCAITCO3 3;X 

Q Q PE»* (0 0PF3/ * 



00412210 T 0i66*l 
0Q412300 T 0187*1 
00612400 T 0189*? 



.D0P.Et2.ltIODPEUN.CMB.MF.F«t.}.+NUMBUFFt5]]422C8«38»iO3; 
DOPEH3>[DOPEC5)];* 

nQ^Fr3?»o«no[8»afl»ioii» 



00^12500 T 
0Q41260Q T 



I*0;C* $20002020000000 &( I0T^1° )(24*47* 1 3&MQDE* 
(27147* l]t(CDQPEC63]J{CTC'3'X 

HtULF(I»I + l XNUMBUFF 001 



Ql?0«3 

0194*3 
00 41 2700 T — 01.96*4-- 



00412800 t 
00*12900 T 
00413000 T 



198 * 2 
0201*0 
0203*1 



QQPEU + 4J«-FLAU(em 
OQPE>*CQQPE(2 3 3U 
ST8EAHST«-CNUMOlM3>i BEGIN SUTJ 



OS «• 8 DEC END/* 



00413100 T 
00413200 T 
0Q413300 T 



0205*2 
0209*0 

024-044 



FJLENQ+CFILENGM )xETR<,NGJ* 
D0P£C4 3oNUM0lM&FlLEN0Cl3t37*ll]&U12*47(l]&3(8*44|4]X 
tf TQT«11 H6*4r*lUm5PQSlTlQN(25»46*23?* . 



00413400 T 
00413500 T 
Q04136QQ T 



0211*3 
0213(2 
Q21ft*2 



if recsize'q then* 
begin Recs.ize*buffsi2e; 

IF B Q FF S IZ ESRE CS UE THE 



1*0 E ND ELSE* 

ax. 



00413700 T 
00413800 T 
0Q4139QQ t 



0220*1 
0221*0 
2 23* 



b e gin i^suffsizej &uffsize*Recsize> r ecsue*u i«-i e n d* 

ELSE '1*3** 

DQPEC5UI 1 ClOT*lQ>t43*47<l3 & 1[42*47*13 & C IF TYPE»( 



00414000 T 
00414100 T 
Q4 142 P0 T 



0224*1 

0227*3 
0229*0 



TYPE«-FPBtFlLENO 
OR CTYPEM4 AND 
& (IF TYPE THEN 



♦3] t [43JS3)*l OR 1YPE*4 
TYPE<19) THEN 2 ELSE 3 
ELSE 3)[9146*23 & (I 



QR TYPE*6 
>( 11*46*23 
F TYPE THFN 



00414205 T 
004 14210 T 
00414215 T 



0232*1 
0236*0 
0240*3 



4 ELSE 0H13J45 
ST«EAMCFB»tFPBtFILEN033 
BEGIN SI-FB* SI*3I*161 



DOPE(l33 



*33 ; 

0S»3 OCT ENOJ* 



00414220 T 
00414300 T 
0Q41440Q T 



0244*1 

0247*0 
0248*1 



45 

46 

47 < 

46 

49 

50 I 

51 

52 

53' 

54 

55 

56 ' 

57j 



4NUMBLFFC1* 39 
&IC28I36* 103& 
*Cl0t>l0)(27l4 



00tEtl83*RECSlZE«6UFFSI 
. D0»EC8UR0«SI2E1NW«R0WS 
S SET OMIT » NQT SHAREOISK 



*93&M00E(24»47t 13* 
NUMBUFF (10*39*93* 
JJJJI*. 



00414500 T 
00414600 T 
00414700 T 



004J4800 T 
00414900 T 
00414949 T 



0249* 1 
0251*1 
0253*1 



2£(3*33»l5 3*BUFFSl2E(18*33«l5 3i* 
(15*38*103** 



GO to e*it;* 

TY9* *X 

BEGIN IF 



0256*0 
0250*3 
0261*0 



NUMDIM >"0 THEN 



00415000 T 
004i5l00 T 
004 15 200 T 



0261*0 
0261*2 
0262*0 



-i- _ 



NMHCIM J 

. : U**'CC- 
BEGIN 



BEGIN 
M) f (8»103) * BLOCKCTR THEN* 



♦ MUMOl 
BLOCKCTR »V>i;> 



00415300 T 
00415*00 T 




T 0266*3 



n 

2 
3 
4 
5 
6 
I 
8 
9 
10 
11 
12 
13 
14 
15 
IS 
17 
18 
19 
20 
21 
22 
23 
24 
26 
28 
27 
28 
29 
30 
31 " 
32 
33 
34 
35 
36 
37' 



PUOfCGMm 

end;* 



JKL 



IF (J «- C. [18*153) « THEN* 
J ♦ PRTPGINTER,U8*153*2iX 
UNTIL f*fPRTP0TNTEH&fJ»HtJMTfJ*1l 



004 
004 



INX 0)[33I33U53?)«1 



004 
0Q4 
004 



5600 
5700 
^800 



5900 
6000 
ftlOO 



0268:2 

0269*0 
0269 *0 



0269*3 
0271*2 
0274*0 



END 



£1*33=4 AND M[J3. [6*123 *0; 
PC(*[PRTP0INTERtCtt33ll5 3]])«JCl8l33ll5J#BRT) 

FNpH 



i% 



004 

004 
QQ4 



62OO 
63OO 
6fl00 



0277*0 
0280*3 
0282* 3 



nu*dim*o; 
GO TO exit;* 



004 
004 
Qpa 



6500 
6600 
6700 



0282 
0283 

0284 



TY 11 1 1 



AlT[AlU03«-AlT[03 + l3 

go td exit;* 

FIB»FLFCN0T 211 , 



♦ •2&l[ei.38»10 3t[StfE.Ul8»33«l5 3jX 



004 

004 

_Q0_4 



6800 
6900 

7Q0Q 



0284 
0288 
0289 



IF FIB[5] f t4it23 
IF FI8[53 ,[421 13 
TF FTBf41.[24<23 



* 1 



THEN GO TO EXIT; X FIuE OPENED 

THEN GO TO UPDATEFPB; X CL0SE0#REL,EaSED 

THEN GO Tfl FXIT; X R F H QUND 



004 

004 
_0_QJ. 



7i00 

7ltO 
7l20 



0291 

0293 
0299 



IF FIBl4I.l8l.ft3 * 2 
MFID * TIPE «• -O; * 



UPDATEFPB 



THEN GO TO EXIT; X MUST BE TA 
PREVENT CHANGE IN MFID QR TYpE 



PE 



BEGIN 



004 
004 



STREAM(A*OlMFlO*FID,REEt*REEL«-REEt#OATE* 
CVCLE«»cYCi L»CYcLE»TIPE»TlPE»TlPEt 



oate*oate*d*te* 



004 
004 
*3 4 



7i25 
7i30 



0297 
0299 

-0404 



7t50 
7200 

7-30S- 



0301 
0301 
303 



F«- I*. [FPBCFIBC 
BEGIN 3l«-L0C MFID; 
2( IF SCs"t" THF„N riLfilN 



4 3 . [ 1 3 * 1 1 3 3 3 ) ; 
$T+Slt3? DI»Dl+8 END LiM 



004 

004 
004 



7400 

7 500 
7/SOQ 



0305 
0307 
0307 



IF SC*"G M THEN DS*WD 

JUMP OUT TO ERR END) 
IF SC***" THEN BEGIN S 



S ELSE BEGIN TAlLY*i* A*TALLY; 
I»SI*fll DI + DI + 3 END ELSE DS»3 U ECl 



004 
004 



7610 
7620 
77Q0 



0309 

0310 

-0-3X4 



: " J. H 



IF SC = " + ' 
IF SCs"+ M 



then 

THEN 



BEGIN 
BEGIN 



I*Si+8; DI*DI*5 END 
li*Sl+e!Dll»QI*2 EN 
E6IN DS» DEC; DI-DI 



ELSE DS*5 DEC; 
D ELSE 

+ 1? enq; 



0Q4 

oo^» 

JL01 



7800 
7900 
7,910 



0312 
0314 

Q315 



IF SC*"+" 

err* end; 

IF P THEN 



THEN BEGIN Sl«-SI + 7; 0I*DI*5; DS*CHR END; 
P((-75),34,C0M); IDS' INVALD FILE NAME 



004 

004 

_0J14_ 



8000 
81OO 



0316 
0317 
0317 



IF REELED THEN FI.B 1.133 

I* P(.I#LOD) INX O; 

IF MCI INX 33.C43*53»l 



,[28*10l*REEL END; 

* MARK MFID OF REMOTE FILE 
9 THEN X rtHICH HAS BEEN FILLED 



004 
004 

004 



8200 
8210 

8320 



0319 
0322 
0324 



39 

40 
41 
42 
43 
44 
45 
16 
47 
48 
49 
SO 
51 
52 

53 
54 

55 

56 



Mtl3* P<OUP*lOD#S 

go to exit; 

TY13U C»i; I»AIT[J«-Q3; 



sn>; 



X SO FILE OPEN WILL «NQW 



004 

004 
00ft 



8230 
83OO 
8400 



0326 
0329 
0329 



DO AITCI*1+13*CM[[TYPE 
&HU46 

a it c ojm ; g o exit; 



3 INX NOT C3 )4BLQCKCTR[8I38«1 

*23 untilcc*c+1)> size; 



0] 



004 
004 
004 



8500 
8600 

87Q0 



0332 
0335 
Q340 



TY14*J IF TIPE<3 THEN TlPE*0 

IF TIPEXO THEN DO X OE 
BEGIN P(MKS,0,Q,3,CYCL 



ELSE IF TIPE>5 THEN TIP£*5; XA$ 
CLARE SORT FILES XAS 
£+I,CDCI3 3#2.1,lO,0.3,ll,8,*EcU«Sr 



004 
004 
004 



8800 
8900 
9Q0Q 



0342 
0346 
0347 



»D[j3#5#CDC#ei6i2-I*«0* 
END UNTIL CI*I+1)2TIPe; 
P(TIP£*RTN); 



XAS 
XAS 

X A $ 



004 

004 

JlOJL 



9i00 
9200 
9300 



0352 
0354 
0357 



COMMENT TY14 OECLARES SORT TAPE 

GO exit; 

TY15I* PHILECNOT 33 » lOTj PHUE[N 



FIt.ES FOR ALGOLS 
OT 43 » NUMpiM; GO TO EXIT; 



XAS 



0Q4 

004 

_00Jt 



9ftQQ 
9500 

9600 



0357 
0357 
0358 



TY16H TY17* TY18* 

E ♦ M OR (*CPC ,NUMQIM)+Sl2E 
I F S I ZE s THEN COMMENT 



)>, [18*153; 
F I SH PUT O L D S i Ze^ TO USf ; 



004 
004 
0Q4 



9700 
9705 
971 



0362 
362 
0364 



begin; STREAM? A*0 1 s«.*e); 

begin Tally*i; si*s; 

IF SB THEN TALLY* 



SI»SI«|6I SKIP 2 

2J a> ta l ly; 



sb; 



004 
004 



9715 

9/20 
9725 



0365 
0367 



036*19 



J57J 



• t 



13 



15 
16 
17 
18 



19 

20 



22 
23 
24 
25 
26 
27 



28 

29 



31 
32 



34 
35 
36 

37 " 
38 



41 
42 
43 



45 
46 



48 



49 
50 



t 53 
54 
55 

i. 



END 
END! 



END stream; 

IF(SIZElsP) THEN D1M2 :*C*E ) . C8 J 10 J ELSE 



ELSE BEGIN DIM2 ♦ 
IF NOT SIZE THEN 



NUMDIMJ 

D1M1 * RECSUEi 



IF TYPE a 18 COMMENT "ION" FUNCTION; 

THEN IF SIZE OR C D I w 1 NEQ D.IM2) THEN P((-54), 26, 
PQUSH.(Sl4U*EQ9»crM»p£LrOEt )F * RETURN Clip ARRAY. 



CQM) 



POLlSH(MKS* E); IF NOT SIZE THEN P(OlMl); 

P0LISH(DIM2, SIZE* 1* 0* RECURS£)J 
ARRY t »F; ntMl «■ DTMt*i ; 



IE TYPE s 17 THEN COMMENT "CON" FUNCTION; 
BEGIN IF SIZE THEN ...?£..*£'. 2* CCX* E' * ) ELSe 
FOR l*\ STEP 1 UNTIL nlMI DO 



POLISh(CARRYCI33* DUP* LOO* 2* CCX* XCH* ♦); 

end; 

tf typ£ » 18 then comment "idn" function agatnj 



FOR 1*1 STEP X UNTIL 01 Ml DO 

P..(* CARRY tlU, I, CDC* If XCH* 

gq ro exit; 



o; 



TY19JI X IMPLEMENTED FOR COBOL 68 
ARRY <• *C»RTP0INTERC173J; 
MCEARRYCQ]} INX NOT 13.[2>n 



FOR I * 1 STEP I UNTIL ARRY[0] DO 
BEGIN 
C <• ARRYCI3; 



ARRAY DECLARATION i OR 2 DIM 
» a II X MARK IT SAVE 



P(MKS,tPRTPQlNTERCC,CFFnj* 

PCDUP»LQO#P COUP). CFF3 #P( XCH), cCF])# 
IF C.C17I13 THEN P(XcH*nED n Sr v>* 



end; 

SEG0ICTCQ3 



PCCPRTPQlNTERcin) 
EXJTll 

end intrinsic intrinsic; 



C.C16»2J,WC.CCF],RECURS£>; 

*p(dup)-i; 



INX M,3,cOM#DED^ 



X DELETE TEMP AlT 



PROCEDURE F ILE ATTR 18 U TE S( TANK, ERRL*DUMi#VAL» NAM, INFO* TEN) 



00419730 
00419735 
00419740 



0369 
0369 
3 7 2 



004J9745 
00419730 
004197'**' 



00419760 
00419770 
04 19780 



0376 
0377 
0379 



00419790 
00419800 
00419810 



T 379 

T 0379 

-T 0344 



T 0384 

T 0386 

4 0387 



00419820 
00419830 
08419640 



T 0390 

T 0390 

J 0393 



00419850 
00419&60 
0ft<il9q70 



0395 
0399 
0399 



00419880 
00419890 
00419900 



T. 0400 

T 0402 

-I 0406 



00420000 
0Q420i00 

0042010') 



T O4O6 
T 0407 
J CUjQB. 



00420H0 
00420120 
004 2 01 3 



00420140 
00420150 
Q 4R Q16Q 



T 0412 
T 0416 
■T CU06 



T 0417 

T 0418 

J 0J12O. 



00420170 
0Q420i80 
0n42Ql85 



T 0422 
T 0424 

T 0425 



00420i90 
00429900 
OQ43OQ 0Q 



T 0427 

T 0428 

J 0«2fl 



VALUE TANK »DUM1#VAL* NAM* INF0*ERRL 

INTEGER VAL I 

REAL ERRL*0UM1»NAM*INFQ ; 



START QF REL 



Size* 04 

00430050 T 0000 

segment; disk address 



name tank ; 
array ten[*] 
begin 



00430100 
00430150 
0Q43Q2QQ 



T 0000 
T 0000 
T 0000 



X THIS PRQC HANDLES FItE , ATTRIBUTES (FOR MORE InFO*. REFER TQ THE 
X ALGOL COMPILER* PROCEDURE F ILEATTR iBgTENANDLER* FQR A DESCRIPTION 
* OF THE VARIOUS KINDS QF FILE ATTRIBUTE CALLS). DUM1 IS A DUMMY 



00430250 
00430300 
00430350 



T 0000 
T 0000 
T 0000 



X 

X 

X 



PARAMETER JESEKVED FOR POSSIBLE FuTURE USE. 

TO AOD A NEW ATTRIBUTE* FIRST MAKE THE APPROPIaTE CHANGES IN 
THE CQMPILIR(S). THEN, DECLARE TWO NEW LABELS* XN & XvN -- "X" IS 



00430400 
00430450 
00430500 



X THE FILE ATTRIBUTE* E.G.* ACCESS* AND "N 
X SWITCH LABEL NUMBER, E#Gf» THE 4 IN HFID4 
X 6ETFILATT, AND ATTACH XVN ONTO THE SWITCH 



IS THE CORRESPONDING 
"»• AND ATTACH XN ONTO 
SETFILATT. THEN INSERT 



00430525 
00430550 

QQ43Q600 



0000 
0000 
0000 



X XNi AND ITS CODE BELOW THE LAST XN-TYPE CODE* AND INSERT XVN* AND 
X ITS CODE BELOW THE LAST X.VN-TYPE CODE, THE XN-TYPE CQD£ SETS THE 
X FILF ATTRIBUTE (AFTER MUCH CHFCKlNiG TO ASSURE THAT THE FII.E IS nF 



00430650 
00430675 
Q Q4 3Q7 QQ 



0000 
0000 
QOQO 



T 0000 

T 0000 

.1 QOQO 



X THE PROPER 5 TYPE ANO In THE PRQPER 
X VAL IS WITHIN . Wt PROPER BOUNDS)* 
% MP SfACKS THfeftLE ATTRIBUTE. 



STATUS* ANO THAT THE VALUE OF 
ANO THE XVN-TYPE CODE RETRIEVES 



00430750 
00430800 
004 308 50 



T 0000 
T 0000 
T 0000 



00430900 
00430950 
QQ43JQQQ 



T 

T 



0000 
000© 
QOQO 



WORDS 



» 00082 



2< 

3 
4 
5< 

6 

7 

8< 

9 

10 

Ml 



2 
3 
4 
5 
6 
7 
8 



ARRAY FlBa+lC*]/FPB=3[*] ; 

REAL F l B5=» l 7*TYPfc *9 >F I =KRRLfSELFCT»14> INTRINSIC^* 



0Q431050 T 
0043HOO T 
004 31 110 T 



0000*0 
0000*0 
onnn.n 



0PENaFlB+l> 

N0TCt0SREl.*0PEN*l# 

NQTDTSK» NQTC LQ SR ELtlf 



0|4)1}U T 0000*0 
00491112 T 0000*0 

aauu t — nonoio 



JL0 



RTNVAI*NQTU1SK+1* 

TEMP-rtTNV.AL + l» 
PMET^TEljPtlf 



0043H14 T 0000*0 
00431115 T 0000*0 
0Q43U1 6 T OQQ Q tO 



FP83sOuM1'VALSIGN*FIB# 

mfiox«open#fiox«notclosRe<-#reelx»notoisk»oaTex«fpb3* 

CYCLEX«FIB5*TYPEx»TYPE ; 



0043U35 T 0000»0 
00431140 T 0000*0 
00411155 T 0000*0 



10 

11 

12 



LABEL QUlt/EXlT,SETUSE#VALER»T0lT#BIG>CHKUCHK2 f CHK3L#CHK3T,MYUSERR# 

OPENERRjClOSRELERR 



00*31175 T 
Q04312QO. T 

0041132* T 



0000*0 
0000*0 
0000*0 



13 

14 
!5 



*ACCESSO#ACCESSVO 

>MYUSE1#MYUSEV1 

»SAVE2*SAVSV2 



00*31250 T 0000*0 
00431260 T 0000*0 
Q Q43 127Q T OOOOtO 



16 
17 
IS 



#0THERUSE3*0THERUSEV3 

#MFID4'MFI0V4 

»Flp5»f I py5 



06.431380 T 
004 31290 T 
00431100 T 



0000*0 
0000*0 
OQQO«0 



19 

20 
21 



*REEL6»REEUV6 
#0ATE7#DATEV7 
,CYCL£8,CYCL£V8 



00431310 T 
00431320 T 
00431330 T 



0000*0 
0000*0 
0000*0 



22 
23 
24 
25 
26 
27 
28 
29 
30 



>TYPE9>TYPEV9 

>AREAS10*AREASV10 

*AREASIZEU*AREASiZeVU 



00431340 T 
00431350 T 
00431-160 T 



0000*0 
0000*0 
QOCO*0 



4>EUNUM12*£UNUHV12 % £u NUMBER FOR DISK 
*DSKSPEED13»0SKSPEE0V13 % FAST/SLQW DISK (1»FaST) 
,TlMELlMlTl4,TlMELlMlTV14 % WAIT TIME FOR LOCKED ADDRESS CRlL) 



MOSTATUSp* I0STATUSV15 % 
#SENS"m'VEi4#SENSlTIVEV14 * 
%%%% ADD NEw ATTRIBUTE LABELS ON 



00*31370 
00431380 
00431390 



T 0000*0 
T 0000*0 
j. OO OQ i Q 



last io result status crll) 
sensitive 

A NEW LINE ABOVE **************** 



00431400 T 0000*0 
00431410 T 0000*0 
00431490 T 0000*0 



31 
32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 



%%%% ANO BE SURE TO POST-FIX THE SWITCH NUMBER FOR OOCUmEnT aT IOn. 
SWITCH 8ETFILATT *a : 



00431 
00431 
004 31 



495 T 
500 T 

55 T 



0000*0 

0000*0 
0000*0 



AC.CE.SSO. 
*MYUSE1 
*SAVE2 



00431 
00431 
00431 



551 T 

552 T 

553 T 



0000*0 
0000*0 

onoo»n 



#0THERUSE3 
*MFJ04 
>FID5 



00431 
00431 
0043 1 



554 T 

555 T 

55 6 T 



0000*0 
0000*0 
0000*0 



'REEL6 

'DATE? 
^C YCLE6 



00431 
00431 
00431 



3X5 



557 T 

558 T 
59_T_ 



0000*0 

0000*0 
000 0*0 



#TYPE9 

*AREAS10 

.ARFA8I7F11 



00431 
00431 
00431562 T 



560 T 

561 T 



0000*0 
0000*0 
0000*0 



45 

46 
47 I 
48 
49 
50 ( 
51 
52 
53 ( 
54 
55 
56 \ 
57 



>EUNUM12 
#DSKSPEED13 

*T IMELI»U T14 



00431 
00431 

004 31 



3X5 



563 T 

564 T 
65, T 



0000*0 

oooo»o 

— WU%%Aff»3p *» ' ' 



49 

50 
51 
52 
53 
54 



; %%%% ATTACH THE 



#I0STATUS15 

, SENSITIVE! 4 

NEW XN^TYPE ATTRIBUTE 



LABEL OMTO SWITCH ABOVE **** 



004 31 
00431 
004 31 



566 T 

567 T 

84 T 



OOOOtO 
0000*0 
000 0*0 



SWITCH GETFILATT l» 



ACCESSVO 



00431850 T 0000*0 

00431900 T 0000*0 

0043 1 9 1 T 0000 * 



56 



•MYU&EV1 
'SAVEV2 

»0T:HCHHSEV3 



00431 
00*31 
00*31 



902 T 

903 T 
90* T 



0000*0 
0000*0 

0000*0 



• • 



>r 



*MFIDV4 
'FI0V5 

yRE ELVft 



*DATEV7- 

*CYCL£V8 

>TYPEV9 



0043190b 
00431906 
00431907 



00431908 
00431909 
00*31010 



0000«0 

oooo»o 
ooQO»n 



0000*0 
0000*0 
QQQ0*0 



♦AREASV10 

'ANEASUEV11 

'EUNUMV12 



00431911 T 

00431912 T 

0043 19 13 T 



0000*0 
0000*0 
0000*0 



*dskspee0v13 

♦ timelimitvh 
mqstatusv15 



00431914 T 0000*0 
0043191b T 0000*0 
00431016 T 0000*0 



10 

11 

12 



%%%% ATTACH THE 



'SENSITIVEIVH 

NEW XVN-TYPE ATTRIBUTE 



LABEL ONTO SWITCH ABQVE *** 



00431917 
0Q4 3 2 10y 



T. 0000*0 
T 0000*0 



00 43 2200 T QQQQ'Q 



13 

14 
15 



DEFINE 



CANTUSE 

10 

SERIAL 



JLl. 



00432250 T 0000*0 
00432g59 T 0000*0 
0043226? T 0000*0 



16 

17 
18 



.RANDOM 
UPDATE 
PR OTECT 






0043226b T 0000*0 
0043226A T 0000*0 
Q043?a69 T QOOO*n 



19 
20 
21 



DISK * (NOT NOTDISK) Up 

lblEAOE8tHEADERl3 ■ PCHEADER 1# 14# .F IB#L00# INX*LQD# INx»LOD ) *, 

FRMfFRMl) ■ BEGIN 



00432271 T 
00432274 T 
00*32276 T 



0000*0 
0000*0 

ooon*o 



22 
23 
24 
25 

27 
28 
29 



ch kqpi n 



initerr; 

END *» 

BEGI N IF OPEN 



STREAMCFI); OS* 1 3|_I T .. ERMW GO QulT i 
THE N G O QPE NER R EN D <L« 



CHKCLOSREL « BEGIN IF NOTcLOSReL THEN QO CLQSReJ-eKR E^p #' 
CHKMYUSE * BEGIN IF Fl85 , C 11 * 2 3»0 THEN 60 MYySERR ENO #> 
-P. » PO LISH J i : 



00432277 T 

00432278 T 
0Q 43g?8 Q T 



0000*0 
0000*0 
OQOOtO 



00432285 T 0000*0 
00432290 T 0000*0 
00432475 T 0000*0 



SUBROUTINE 
BEGIN 



INI TERR ; 



00432480 T 0000*0 
00432500 T 0000*0 
00432550 T Q00l*0 



31 
32 
33 



34 
36 



PMET*P; FOR TEMP*p STEP -1 UNTIL 1 DO P£*)J PCPMET) I 
pCTANKtNOT 43); TaNK[NQT 43*0> P(MKS#9, INTrINSiC»DEL ) J 
TEN»o; TEN»PCCTENC133,CFX*SFB)&l0t8*38lln3 i 



STREAM .CT.£M.P*NAM.lA*t.F.PB.iFP.B3-3.n».N4.NAM,c6.t 6] *T£N) } 
BEGIN US♦5LIT"-FAE* ,, ; SI*Ai 

2<si»si + i; a«.st; tally«-o; uif sr*" " thfN 



00432560 T 
00432600 T 
QQ43270 Q T 



0001*0 
0006*0 
QQlO*0 



00432750 T 
00432800 T 
Q4 328 5Q T 



0013*1 
0016*2 
17* 3 



jusp out; si*si+i; tally*tally+1); si*aj a*tally ; 
os«-a chri ds*odec; ds*lit m /"); di*oi-i; osi-lit"," ; 

SI»LQC TEMP; Si»Si+2 j p$»N C HR i nS»2i IT", »S TEmP»U 



i_i_ 



00432900 T 0019*2 

00432950 T 0021*1 
00*32975 T 0023*9 



42 



46 



49 

50 



53 



54 



55 
56 



DI+DI+13; 
END STREAM 



0S*2LIT"I*" ; 



FltP i 



END OF INITERR ; 
RFAL SUBROUTINE OCTTOPEC ; 



00432980 
00433100 
00433150 



0025*1 
0026*0 
0026*1 



BEGIN 

STREAM (ti»0 * VAL)i 

QCTTnDFC«-P 



00433200 
00433220 

004 33230 



Begin si*loc val; di«-ioc q; ds*8DeC end * 



END OF 0CTTODEC i 
REAL SUBROUTINE QECTOOCT f 



00433240 
00433250 

00433260 



002613 
0027*0 
0087*0 



begin pmet*p(xch) 
stream(«<-o«Pmet); 
dectoqct»p 



00433270 
00433275 
00433280 



BEGIN, SUlOC PMET; DI*LQC Qi DS*8PCT EnO ; 



OF QECTOOCT > 



00433290 
00*33295 
00433300 



0027*0 
0027*0 

0029*1 



0029*2 
0029*3 
0029*3 



0030*0 
0030*3 
0033*0 



00433310 T 
00433325 T 
0043*630 t 



003311 
0031*2 
0033*2 



J? 



>T 



1 

2 

3 

4 

5 

6 

/ 

8 

9 

10 

11 

12 

13 

14 

•5. 

16 

17 

18 

19 

20 

21 

22 



23 
24 
26 
26 
27 
28 
29 
30 



31 
32 
33 
34 
35 
36 



37 
38 



39 

40 
41 
42 



43 
44 
45 
46 
47 
48 



49 
50 



51 
52 
S3 

54 



55 
56 



BEGIN % INITIALIZES A FEW USEFUL VARIABLES, 
N0T0ISK*NGT( (N0T0ISK*(TVPE*FPBCFPB3*FIBC4].tl3lll 1 + 3] 
AND 31 3*10 OR i\UT0TSK=12 OR N0TDTSK»13 OR 



AND 63) 



N0TDISK*26) J 
N0TCL0S«EL*N0T(0PEN*(FIB5*FlBt53>,t41*23) 

QPE N»qpEN«Q J 



00433660 
00^33670 
00433675 



0034*0 
0034 JO 
QQ36*2 



end of initialize 
Subroutine scatterfpb ; 



00433677 
00431680 



STREAM(F*tFPBtFP83-33J^D*£DATEX3#C*CCYCLEX3*M*CMFlOX3 ) 
BEGIN 
Sl»FJ 2(QS»LlT"0"i 8I»SI»XJ DS»7CHR); DS-3QCT I 



00433690 
00433725 
QQ433750 



004013 
0042*2 
Q 4 5M 



Di«-u; d.s*-5qctj..di*c.; 

END OF SCATTERFPB > 



os«-2oct ; 



00433760 
00433775 
00433780 



0046*2 
0046*3 
Qfl46?3 



0047*0 
0649H 
0049*t 



xxxxxxxx%xxx*xx%%xxxxxxxxxxx%xxxxxxxxxx%xxxxxxxxxxx%xxx%xxx%xxxxxxxx 

x%% ■.-;.; 

XXX ******* FIRST EXECUTABLE COPE ******** 



00433785 
00433790 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxx'ixxxxxxxxxxxxxxxxxxxxxxxxxx 

P(TANKtNOT 23#0*0,0,0»0»0); TANKCNOT 4J*ERRLJ INITIALIZE /* 

IF CFIMNFO ANO 255)>3 AND Fl<10 TH£N ScaTTeRfPb i 

IT NAM£Q THFN IF ABS( VAl ) >»7777777777777 THFM ftp V A L rs ELS E vM+VAl* 



00431446 
00435447 
Qn«a5zt&8 



005111 
0052* 1 

Q5 2 « ,3 



0052*3 
0052*3 
0Q5?H 



00435449 
00435450 
00 4 35 4 6 



IF INFO.C39U3 THEN 
ELSE iNFfltFAl SE i 



IF INfQ«-INF0.C38*13 
ELSE BEGIN TANKCNOT 



then rtnvaL*vaL 

43*01 GO GETFlLATTCFl J 



004 354 00 
00435550 

043 5600 



end 



GO SETFILATTCFI3 ' 

MYUSERRIJ ERM( M MYUSE*CANTUSE M ) ; 

Cl QS RE LER RU ERMfNQT CLQSHELFSM j 



00435750 
00435800 
00 4 3 5 825 



0052*3 
0052*3 
0052*3 



0o52*3 
0059*0 
006,3 If! 



OPF.NERRJ* IMTER«; STRtAM(FI); QSM 3L I T"NOT RwNd/CLSD w ; 
QUIT** P(CTENCQ3J t [33iv5J'34,C0M) ; 



00435850 
00435855 
0Q43586Q 



ACCESSO* 
X SET QMTT 



IF C(FI*TYPE AND 31)«l2 AND VAL"S£RIAL) 

OR {FI»10 AND VAL*RANDOM> OR <Fi*l3 AND VAL*UPDATE> 

NOT SHAREDISK 



004 358 70 
00435900 
Qn4359fl0 



0065*3 
0069*2 
00 8 3 » i 



THEN GO EXIT; 

P(FPB[FP83 3>[FPBtFt 3 B333>FIB(43*CFIB[43 3>FjBCl33,[FlBU3]3# 

3) ; 



00436000 
00436025 
0r>436naq 



0084*2 
0094*0 
009flt2 



0*03*2 
0i08*0 
0109*2 



0109*2 
0111*3 
QU 5»? 



FP8CFP833»U3«53«-FI*IF VAL'O THEN 12 ELSE IF VALM TH£N 10 
S SET OMIT a NOT SHAREDISK 

ELSE 13 i 



00436075 
00436080 
00436Q 85 



$ SET OMIT * 



POP 
SET 



OMIT 
OMIT 



SHAREDISK 

IF FIBU], C27:33X3 

FlB[133.C39t5l»FU 



00436180 
00436 4 84 
00436190 



0115*2 
0117*0 

01 20*0 



0120*1 

0124*0 
0124*0 



THEN FIBC43 # [27!33«.VAL 
PtUPDATEW GO CH K3 T ; 



0Q436194 
00436195 
OQ4362Q0 



NOT SHAREDISK 



MYUSEl* 



IF FlB5,tiH23«VAu THEN GO EXIT 
IF P(CFIB[14]],L0D),CFF3«2 THEN 



00436201 
00436209 
Q0436225 



P(MKS,"CHNGNG»*TANK»7^ 
SFLE CT 3/ 



3AVE2* 



Fl8t53.Clll23*FI*VALi TEMP+FIB5. [9 12 3; P(l); GO SETUSE; 
IF FlBU3»t30tl63«FMET»QCTTODEC THEN GO EXIT ; 



00436250 
0Q436260 
00436,270 



0127*1 
0127*1 
0131*3 



P(FIBC4],[FIB[4]]*1) 
FlBC4|,t30* 18]«-PMET; 



00436330 

00436350 
00436400 



0135*0 
0135*0 
0l3 5* . 



PC999); GQ CHK2 ; 



0THERUSE3J 
SETVSe t 



IF FI85,C9I23«VAL THEN QQ EXIT ; 

FI*F IBS, C 11*23; Fl8(5J«t9I23*TEMP*VAL^ 

PMET»P; F(FIB5,[ElBC533,l) ; 



00436410 
00436520 

00436550 



0135*0 
0136*3 
0140*0 



014011 

0145*1 
0147*0 



pco) ; 



004 36600 
00436660 
004 366 70 



0150*1 
0l5i«2 
0154*3 



0154*3 
0156*2 
Q161*Q 



IP 



• • 



IF DISK THEN IF HEADERC43 THEN CHKCLOSHEL ELSE CHKOPfcN ; 



00436675 T 0162*2 



F I B [ 5 ] . C 1 3 * 3 3 «- 1 F 



FUO THEN 7 
TEWP= l Th£N 



ELSE IF 
IF FI»1 



TEMHsO 

THEN 3 



then 

EL SE 



ELSE. 

ELSE 



UL 



P(IO)i IF 



FI*1 THEN 1 ELSE i 
NOT PWET THEN GO CHK'2* GO CHKl ; 



00436680 
004-1 6,6^*1 



00436690 
00*36710 
00636725 



016812 
QlM»2 



017712 
018U0 



4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 



MFI04I 
FTP S* 



PC.MFIQX,Q*MFIQX); GO TOIT ; 
P(tFlQX,Q,Finx)f QQ TfllT i 



00436750 T 
00436775 T 
00436800 T 



018212 
018313 
0163*3 



REEL6I 



P(.RE£LX#VAL>999,REELX)i GO TOIT ; 



00436825 T 0185*0 
00436650 T 0t85»0 
00636875 T — 016611 



DATE?? 



P(,OATEX»VAL CIV 1000>99 QR VAL MOO 1000>366* QATEX } i 
GO TOIT ; 



00436900 T 

00436905 T 
004 3 69 25 T 



Oi86'3 

.0190*0 
019012, 



CYCLE8I 
TYPE9> 



PUCYCL£X#VAL>99*CYCLEX)J GO TOIT i 

P(.TYPE*>VAL>63 GfUvAL AND 3l)»3 ORfVAL AND 31 )>26, TYPE* U 



00*36^50 T 
00436975 T 

00437010 T 



0190*2 
0192*1 
Q l92*t 



toit* if .p." v*l then begin pcdelf.del)' go ...exit eno ... * 
initialize; pco; chkmyose; ...... cmkopen } 

if fl6e/4 3 t e24i23^1 oh fib£ 43 . [ 81 43x2 then chkcloshel 



0043 70 30 T 
00437040 T 
00437070 T 



0196*2 
0198*2 

02 Q3: q 



ELSE IF fl*4 OR FI*9 THEN ERM( w CLS*»NOT ALTR M ) J 

IF P<XCH) OR VAL.E1I5JX0 THEN 60 VALERJ SCATTERFPB i 

P<QFL/VAL»XCHi»/HKS»TANK»MFTDXfFlDX>R£FLXfOAT£X>cYCl EX* 



00437090 T 
00437105 T 
00437110 T 



0207*3 
021512 
021910 



1Y.PEX*.H (.INTRINSIC) 
GO EXIT ; 



00437i25 T 
00437i30 T 



4 37^5 T 223 * 



0221*3 

0222*2 

Li 



AREASjO* 



IF NOTDISK QR VAL'F IB £83 . £20* 53 THEN GO EXIT i 

P<F.lBtai#tFJB(BJ3#l) ; 

FIJC8] » [2 Q15 3» V AL; Pts>OH SD CHK3I ; 



00*37200 T 0223*0 
00437210 T 0225*3 
004 37 840 T 0227*0 



AREASIZE11 « 



IF NOTOI.SK QR..VAL»F.IB[8liC.25l231 
P(FIR[8]iEFiBEfl13f 1) i 



THEN GO EXIT > 



00437275 T 
OQ4373Q0 T 
00437310 T 



0230*1 
02 3o.ll 

0233*0 



FlBC83.C25l233*VALi P<8IG) ; 
CHK3LU PM£T«-P; CHKCLOSREL; P(PMET)J 
C HK3TH PM KT+P* CHK QP EN ; P < FM £T 3 t 



GO CHK2 t 



00437340 t 
00437350 T 
0O43736Q T 



023411 
0237*0 
0239*t 



CHKiii: PMlT*P> CHKMYUSE/ P(PMET) * 

CHKl:: IF PiVAL AND NOT V AL , [ 1 1 1 3 THEN GO 

V AL EP** NQTDIJK+ABSCVA L) 



EXIT ; 



00*37370 T 
00437380 T 

0043740Q T 



024H3 
0244*2 
0?47>9 



OPEN*0* KHILE TENtOPEN«-OP£N + l3SNOT0lSK DO; INiTeRR * 

ST!EAMCN*QPEN,V«-N0TDI5K#T4-TYPE>L«-VALSlGN*vAL»U«13»a*NAM<Q 
»R«-(0PEN»VALSlGN)>6^E»l*(TYPE>9)*W»VAL»Fi.) J 



00437410 T 
00437440 T 

OQ43 7 450 T 



0249*0 
0254*0 

0256 * 2 



41 
42 
43 
44 
4B 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



EGIN 

WDI-2; 

CSH-LQC 



DS«-2LlT"»a» ; 

w; DS4.8CHR; jump 



OUT TO J)i LCDS4-LIT"-") } 



00437470 T 
00437^80 T 
00437490 T 



0260*1 
0260*1 
0261*0 



R<03*7LIT ,, * H > JUMP OoT TO J>J 
Jl SI«.L0C T; DS^-SLlT"*!*"; DS*E 
END QF STREAM ; -. 



SI*LOC V* DS*N DEC 
DEC) 0S*2L|T"U" ; 



00437500 T 
00437510 T 
0f>437520 T 



0264*0 
0267*1 

026911 



EUNUM|2» 



GO QUIT ; 

IF' NOTDISK OR OPEN OR FPB[FPB 33 . C 18 I 53 »VAL* 1 THEN GQ EXIT* 



00437530 T 
00437550 T 
00437560 T 



0269*2 
0270*0 
0270*0 



PCFPBlFP83J#CFPBlFP83T3*l)J * STORE FOR RECOVERY 

FPBtFPB33.U8t53»«VAt*i; % EU NO.*i 

IF VAL»(-n THEN VAL*»1J P(19)i GO TO CHK2* 



004 37570 T 

00*37580 T 
0Q4 3 759 Q T 



0273*0 
0275*0 
0278*0 



DSKSP E E013« 



IF NOTOISK OR OPEN OR FPBCFP833 , [ 16 1 23«V AL THEN GO E X H; 
P(FPB[FpB33*CFPBCFPB3]]»l); % STORE VALUES FOR RECOVERY 
FP§lFPB3J f cl6!23t»VAL/ X 1*FA;5T*2*SL0W 
P(2)l GO CHK2; 

— : , i„-.a V,fa,,itrtv, - ,, ,,, . . ,„„■ .■■;;,■ ; - - ■ ■ ■ ■ , 



00437600 T 
00437610 T 
004 37620 T 



0281*0 
0281*0 
0284*1 



P285»2 

0288*0 



56 



00437630 T 
,00437640 T 
Q * | 7 W T 



If 



2 

3 
4 
5 
6 
7 



TIMELIMITH* 
$ SET OMIT = NOT SHAREDISK 



0Q437700 T 
00437710 T 
00437760 T 



02881 
02881 
Qgflfl* 



I0STATU515* GO EXIT; 

SENSITIVE14I IF NQTPlSK OR FPB [F PB3 J . f 15* 1 3"¥AL THEN GO EXIT; 



00437770 T 
00*37780 T 
00 43 7 8 T 



0288* 
0289* 
0289? 



P(FPBlKPB31»CFP6.tFPB3n»i); X STORE FOR RECOVERY 

FPBCFPB3J.C15I UJsVAU .^SENSITIVE* 1 

P(l)/ GO CHKU 



00437810 T 
00437820 T 
00437830 T 



0292< 

0293* 
0295* 



BIGI I s 



937777777 I 



xxxxxxxxxxxxxxxxixxxsxxxxxxxxxxxxxxxxxixxxxxsxxxxxxxxxxxxxxxxxxxxxxxxxxx 



00440000 T 0296*2 
00449999 T 0298*0 
0Q 4 50000 T — 0298*0 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

26 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 



XXXIX INSERT NEW XN-TYPE ATTRIBUTE CQQE ON NEW LINES ABOVE HE^E XXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX»XXXXX 



00450050 T 
00 450100 J 



0298*0 

0298*0 

00 4 5 ^50 T 029 8 *0 



AC CESS VO* 
I SFT QMlT 



P(IF (FUTYPE ANO 3D«10 THEN 1 ELSE IF Fl»j3 THEN 2 
NOT SHARPntStt '//; --v. ■ ■ 



0Q450200 T 
0Q4502S0 T 



MYUSEVl* 



ELSE O^RTN); 
PCFIBS.f li;23*RTN) i 



0298*0 
0298*0 
QQfl50254 T 0301*3 



00450260 T 0301* 3 
00450300 T 0303*2 
Q4 5040 Q T 303* 2 



SA.VEV2* 



P(FI8[4J,C3Q:183,DECTQ0CT,RTN) i 



304*2 
030412 
0Q450550 T 0307*1 



00450^50 T 
00450500 t 



0THERUSEV3' PCF IBS . [ 9 ; 2] #RTN J '> 
MFIOVflt PCMF I DX^RTN ) ; 



0Q450600 T 
00450625 T 
Q045Q65Q T 



0307* 
0308* 
3Q6» 



Fl0»5l 



P(FIDX'RTN) J 



00450675 T 
00450700 T 
QQ45Q725 T 



0308* 
0308* 
03091 



REELV6* 



P(REELX,RTN) ; 
PC PATi-X.RTM) / 



00450750 T 0309 
0Q450775 T 0309 
00450800 T 309 



CYCLEV8' 



P(CYCLEX#RTN) J 



00450825 T 0310 
00450850 T 0310 
Q045Q875 T Q310 



TYPEV9* P(TYPEX#RTN) ; 
AREASVIO: P(FIB[8].C20*5]>RTN) ; 



00450900 t. 0310 
00450925 T 03U 
04509 50 T 0311. 



AREASlZEVllJ P(FlBt8].C25l23]»RTN) ; 
EUNUMV12* PtFP8[FPB33.tl8*53-l>RTN); 



00450975 T 0312 
00451000 T 0312 
00451025 T Q313 



40 
41 
42 
43 



DSKSPEE0V13; PCCIF < TEMP J sFPBCF PB3 ] . C 16 J2 J )«1 THEN 1 Et,SE 

IF TEMP=2 THEN 2 ELSE 0)*RTN)J 
T IME L IMITV14* 



00451050 T 0315 
00451055 T 0318 
Q451Q75 T 0321 



45 

46 
47 
48 
49 
50 
51 
52 

53 

54 

55 

56 
57 



S SET OMIT * NOT SHAREDISK 
P£0); P(RTN); 
IQSTATUSV15* 



00451099 T 0321 
0045U50 T 0321 
Q045M75 T 0321 



$ SET OMIT » NOT SHAREDISK 
P(0); P(RTN); 

sens it i vev 14* pcfpb[fpb33 . cis* i3»rtn>; 



0045U99 T 0321 
00451250 T 0321 
Q 451 300 T 032 , 2 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XXXX INSERT NEW XVN-TYPE ATTRIBUTE COPE ON NEW LINES ABOVE HERE XXXX 



00469999 T 0323*2 

00470000 T 0323*2 
00470050 T 032312 



XX XX X%X %%%%% %%%% XXX %%% %%%%%%%%% % %%%% %%%%%%%%%%%\%%%%%%%%%%%%%%X% %% %%%% XX 



00470100 T 
0Q470150 T 

00470200 T 



0323* 
0323* 
03 23 * 



' 323 *2 



EXITl TANKCNOT 4]«-Q; IF INFO THEN P(RTNVAL#RTN) ; 
END OF FILEATT8I8UTES ; 



004T0250. -T 
00#70 350 T 

S4 



0323* 
0326* 
Z E" 032 



2 
2 

7 WORDS 



• • 



h 



2 
3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

28 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

38 

36 

37 ~ 

38 

39 

40 

41 

42 

♦3~ 

44 

45 

46 

»7 

48 

«9 

SO 

SI 

52 

S3 

54 

55 

56 



PROCEDURE ALGOLREAD(TEN> FILX* U*ADD* ACT* Fl* AEXP, 
ARRYf. EOFU PARI t PKAERi CUDEf , TANK1 J 



START 



XWF 
OF REL 

JLw£ 



VALUE Fl* OKAOfl# TANK* CODE* 
ARRAY ARRYC*J# T£NC*3; 
INTEGER ACTi Fli AEXP8 



ACT* AEXP; 



XWF 
XWF 
*WF 



00500000 
SEGMENT* DISK 
, OQ'SOPlQO 



0Q500200 

00300300 

DQ'SOOHQQ T 0000*0 



T 0000 
ADDRESS 
-E- 0000 
Y 0000 
T 0000 



»0 



L0_ 



00093 



10 

»0 

ii 



REAL 
NAME 
BEGIN REAL 



DKADD* PARL* EQFL* 

filx* Tank; 
HCH"»Q>9LKCNJ,L»5,SElfcC 



CODE* DKAORJ. 

is lam 



X^F 
XWF 



00500500 
00500600 
00500700 



T 0000 

T 0000 

J. 0000 



■»0 
*0 
LO- 



NAME MEM»2;» 
ARRAY FPB«3$*3iX 
RFAL ALGQLR£AD*13; 



XW F 



00500800 
00500900 
00501000 



T 0000 
T 0000 

j. oooji 



»o 

to 

iXL 



ARRAY TIN.K»T.ANK[*]J 

INTEGER RSIZEtFU 

nEFlNE FNUM,» F Ur4.lt H .1' 1 11 



XWF 
XWF 



JLL 



0050 U 00 
00501200 
00501250 



T 0000 
T 0000 
J 0000 



DEFINE IOD»(*TANK)#|X 
* SET OMIT • NOT SHAREDlSK 

. 1 arei ncl»or,2i 1 _ 



00S01300 T 0000 
00501309 T 0000 
OQlQlqOO T 00414 



LABEL 0CNl'DCN2j,SPIN; 
LABEL CR1*MT1*CLQSED*DK1*SP 
SWI TCH SWU cR l f E RR>MTl»c LOS 



1*pri*ehr;x 

ED>QKl *9Pl >FHRf FRR>£ RNyPRt» OCl'CR W 



0.05010.10 
005 015 00 

Qosnuoo 



T 0000 
T 0000 
J QHQJl 



ERR^OCNU 
LABEL CR2#KT2'DK2#SP2,PR2;* 
SWITCH Sw2» CR2*£RR*MT2*ERR*DK2*SP2,£RR,ERR.EKR*PR2,0C2*CR2, 



00501610 
00501700 
OO S Olfl OO 



T 0000 

T 0000 

I 0000 



ERR/DCN2; 
LABEL SW*pBlT»US*FlB7*DSPbI 
I ABFL EMPTY>FjiLlfSEMPTYtSFU 



T»pAR»0S.RTN»0S.19#RAl»EaF»D28 

LLi , 



;x 



00501810 
00501900 



T 0000 
T 0000 



0050 1 9 5 T — OQO Q 



REAL UNITYPE#REV» ADDRESS* bLKODE J* 
SET OMIT » NOT SHAREDlSK 
UABEL PKS,QKR*DKR i*pKu; 



00502000 
005020#9 
Q05Q21QQ 



T 0000 
T 0000 
I QflM 



SWITCH ASw«-DKS*OKR*DKU*CLQS 
S SET QMiT a NOT(TIMeSHARING) 
$ SET OMIT 9 TIMESHARING 



ed; 



00502200 
00502250 
00502299 



T 0000 
T 0000 
T 0000 



subroutine wait; P(xch»<?200ooooooo# 2#com# qel* del); % 

* top OMIT 

LABEL RU*RA*BCJ% 



switch rtype*ho*ra»err*rc;x 

LABEL DKSR*DKHK»DKUR;* 
SW ITCH ASHR»DKSR*DKRRjDKUR>'X 



00502300 
00502301 
O Q50200Q 



T 0000 
T 0004 
J OQOft 



00502500 
005C260C 
00502700 



T OQOO 
T 0000 
J QOOO 



ARRAY FIB£*3*HEA0ER£*] 
SET OMIT « NOT SHAREOISK 
. INTFGER IU 



;x 



00502800 
00502809 
OQ5029QQ 



T 0000 
T 0004 

1 000 



REAL SUBROUTINE DISKAD 
BEGIN IF DKADK20 THEN* 
BEGIN ADORESS»(DKADR D 



dress;* 

IV HEAUERC03t[3Q»l23)xHEADERC0J.U2t6];» 



00503000 
00503100 

08503 2 00 



T 0000 
T 0000 
J 0000 



IF (UAOORESS oiV H£A 

IF HEAO£Rm*0 THEN P 
BEGIN AUQRESS+HEADERt 



DER£U + 10)S30 THEN PCO) ELSE 

(0) ELSE 

I3+I»A0DRESS MOD HEADERCl3;» 



00503300 

00503000 
0050350 



T 0008 

T OOtl 
T 0010 



STHEAM(D«-tADDRtSS3); BEGIN Sl«-D; DS*8 DEC END*X 

Pen;* 

EhU END ELSE P( Q?; X 



DISKA0DRESS*P;X 
ENO DlSKADDRESSjJ 
SET OMIT • NOT SHAREDlSK 



00503600 
00503700 
QQ5Q38QQ 



T 0017 
T 0018 

J 0019 



00503900 
005QO00C 
00500009 



T 0019 
T 0020 
T 0020 



if tiinkso then 
begin fib * filxcno 

FlLX[NOT 0] «• 



T 2]J 

eofl; filxindt 33 » parl; 



XWF 

XWF 

XwF 



00500200 
00500300 
00500QOO 



T 0020 
T 0023 
T 0026 



IF NOT FIBC53.C12U 

IF FIBC53.C03* 

P(MK$, DKAOO 



3 THEN PCMKS*"READNG"*FILX*7, SELECT) J 
23MCACUOJ+2) THEN «WF 

* ucT<o.)*a<? filx* 1* select?; xwf 



00504050 
00504500 
00504600 



T 0029 
T 00 32, 
T 0035 



1 

2 
3 
4 

5 



HSi2E>PCmKS»(ABS<ACT)s3)>DKADD#1#FILX* ALGOL RE ADJi 

IF AHRY^C THEN %WF 

H E filN I F A RRY , [flUQ ] >P( DU Pf AEX P ) — * HF 



00504700 T 0038*0 
005O800 T 00*0*3 
5C fl 9 T 04 1 * 3 



Tk 



THEN PtDEL* AEXP); XwF 

IF PCDUPJiRSIZE THEN P<DEL> ELSE RSlZE * Ft «WF 
STREAM(P4 » »FlLXt P3 » RSIZFt XwF 



00505000 T 
6©505lOC T 
OO'SQ^gOn T 



00*3*3 
0045*0 
0046*2 



i 

■ H 

3 

4 

M 

6 

7 

9 
10 

"< 

12 

13 

14 < 

15 

16 

"< 
18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ^ 

27 

28 

29 ( 

30 

31 

32 i 

33 

34 

35 { 

36 

37 

38 ( 

39 

40 

41 4 

42 

43 

44 4 

45 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

H < 

5? 



P2 ♦ P(OUP), [36*63* PI «■ [ARRY[0]]); XWF 
BEGIN SI * P4; DS * P3 wqS; XWF 
P2C0S » 32 WPS? DS » 32 WQS); *4*F_ 



00505300 T 
00505400 T 
00 50 5500 T 



0049*2 
051*0 
05 1 * 3 



i 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



end; 
end; 

I F A fl S (ACT)>2 T HEN* 



XWF 
XWF 



00505600 T 
00505700 T 
QjQJLfiSLaflO T 



PCMK5* DKADO, Q, FILX* ALGQLREAD); 
K1LXIN0T 4] + FILX.CNOT 3.3 * 0; 
PCXIT); 



0053*0 
0053*1 
00531 1 



XWF 
XWF 
XW F 



00505900 T 
00506000 T 
00506100 T 



0054*1 
0056*0 
0,059*1 



Shi 
S SE 1 



end; xwf 

fib*tankcnqt 2111 

UNiTYPE»FiB[43,C8t43; REV»FiBt53.C44*l3; BLK0Q£»F jB [53 . 1 46 * 33* X 



00506200 T 
00506300 T 
00506400 T 



0059*2 

0059*2 
0061 *1 



IT OMIT ■ TIMESHARING 
IF UNITYPEX13 AND UNITYPEX3 AND DK ADR, C 2* 1 3 THEN DKADRttFF]* 

t PDF QMIT _ 



0; 



00506440 T 

00506450 T 

00 5 06 4 51 T 



0065*3 
0065*3 
0070*1 



IF DKADR.C4IU THEN 
BEGIN 
S, SPT DMTT * NHT SHARFDISK 



00506460 T 
00506465 T 
00506469 T 



0070*1 
0071*0 
007U2 



0KADR.C3*21*0; 

end; 

I F CO D E TH E N , G0 TO S W 1 CUN iTYPgJ J fiO TQ SW2[UNlTYP£3;X 



00506475 T 
00506480 T 
00^06500 T 



0071*2 
0073*1 
0Q73 » 1 



MT1*X 
CR1*X 
PR1I 



IF 100.119*13 THENX 



00506600 T 
00506/00 T 
00506800 T 



0090*0 
0090*0 
0090*0 



PBIT* BEGIN 



IF I0D.C2»13 THENX 
BEGIN IF FIBU7]*0 THEN 



F I B 1 1 7 3 * * ( ( I F 

JLNJL 



rev then i else not O) 

Fl, AG (FIBU63)?;x 



00506900 T 
00507000 T 

00507100 T 



0091*0 
0092*2 
0096*3 



PUIF BIKODE THEN lOD.t8*103 ELSE FIB[ 173 )* RTN );X 

end;x 

IF IOD. [25*13 THENX 



00507200 T 
00507300 T 
00507/100 t 



0098*3 
0101*3 

oi om 



CLOSED* 



BEGIN 



FIBC133 
IF CREV 



♦ C27*l]«-i; 

<-(FPB[FNUM + 33 



AND 31)3X10 AND K&VX12 



OO507410 T 
00507420 T 
00507430 T 



0102*3 
0103*1 
Ol05»3 



ANO REVX13 AND REVX26 THEN FIBI5] 
FI8C53tU5»H*PCTANKtN0T 33#DUP)* 
P(TANK>0»H>COM#OEL»OEL) ; 



,C45*U»0 ELSE 
ANO P<XCH.)*j5J 



00507440 T 
00507450 T 
00507510 T 



0109*1 
0115*0 
0l20*3 



IF NOT FIB[5].[45«l3 THEN GO Sk ; 
PCTANKCNOT 33); TaNK[NDT 33*TANK 
P(MKS*9/BLKCNTRL>DEL) *% TAKE PAR 



[NOT 43«-0 ; 

ITY ACTION L BL BRNCH. 



00507515 T 
00507520 T 



0122*1 
0123*3 
0126 II 



45 

46 
47 
48 
49 
SO 
51 
52 
53 
54 
55 
56 



code* 1 ; go to ds; 
end ; 

IF TBO, [27113 THEN* 



00507530 T 
00507335 T 
0050760 T 



0129*1 
0130*2 
0130*? 



BEGIN IF UNITYPE»2 THEN* 

if ..FIB.U1..C2J1J. THENX 
P<MKSM » O f (NO T 2 3 I NX T ANK*4fS£LFCT ) ELSFX 



00507700 T 
00507800 T 
00507900 T 



0131 *2 
0132*3 
0130*1 



BEGIN P{TANK#11#11»CQM#0EL»0EL);X 

IF MEMCTANKENQT U INX 43, [42*63*1 TH£NX 
BEGIN UNlTYPE»FlBM3 3.C28ll03;« 



00508000 T 
00508100 T 
QQ50820 Q T 



0137*0 
0139*0 
0142*2 



P(MKS»6#0,(NQT 2 3IN.X TANK, 
FIB[l3].t28«10 3*UNlTYPEti; 

GQ TD CLQSEQJX . 



4#SELECT);X 
% 



00508 300 T 0144*2 
00508400 T 0146*3 
00508500 T — 0149* 3 



END ENO;X 
EOF* IF CODE « 3 THEN Pj[ 
__^_ , FNn ELSf PAR 



1>SSN#RTN); CODE ♦ 2i 

t TANKrnj»ion or hemjx 



00508600 T 
00508700 T 
00308800 T 



0150*1 
0150*1 

0153*0 



• • 



n 

2 
3 

4 
5 
6 

7 



9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 ~ 



if cque * 3 then begin p (0* [tank [not 

pcO'Rtm); end; 

P(TANK[iNMTfCPr.E + 2U?J 



2J]»19»i7#CQM)J 



OS I 



TANKCNOT 43*TANK£NQT 33*OI 

P(MK3,9#8LKCNTL>> 
PCTANK»C Q nEitl»COM); l 



00508900 
00509000 
Q0 t 709/)0Q 



00509500 
00509600 
00509700 



0155 
0158 



0160 
0163 
0164 



ERP» 



END J* 

PC TANK); wait; do 
CPPC+3; QQ qs;» 



to pbit;* 



00509800 
00509900 
Q051QQ0Q 



0165 
0165 
Q16 7 



DK$I 
DK2t 
CR2IX 



HEADER*-* CF IB CHm 60 TO 
HEAOER* + CriBU«33i GO To 



ASWCFIBC43.C27I333U 
ASw«CFlBE«3,C27l33]iX 



005 
005 
QQ5 



0x00 
0^00 
Q3Q0 



0168 

Ot73 

JU1A 



M.TEIX 

PR2« 

Ru> 



GO TO RTYPE[BL,KQD£3;x 
TAN,KCt3»FLAG<FlRCt63)> 



PCFt-A6(F(HX193)f TAW KfPR L>DKL) I< 



005 
005 

JLQ5. 



04 0.0 
0500 
OftQQ 



0178 

0178 
0181 



BUK0OE*FI8Ci9 3.t33U5 3*F 
FlBCt63 f C33U5J* COpE*C* 



IBCl6] t C33US);i 
(CIF REV THEN 2 ELSE NOT i> 
FLAfiCFIBfl63)))itlflM53il 



INXZ 



005 
095 
On* 



0700 
0800 
Q9Q0 



0184 
0187 



FXBtl9 3a3 3U5.J>.Ca.PE*BUK 
FlBC63«-(REy*l&REyni47*l 
FlBf73-FlB[734REV; FIBtl 



Q0E;x 

)).+ F.I.B 1.6 3 II. 
73»o; P{XIT)fX 



005 
005 

_0_O5_ 



1000 
11 00 

12QQ 



019 3 
0195 
0^99 



RA» IF (FIBC173*FJ8C173-.C0DE 

RAll TANKt03*(lF REV THEN NOT 

GO TO FTB7JX ._ 



*-FlBtl83,t33»l53)<COOE THEN Go TO RUiX 
CODE INX 1 ELSE CODE) INX IQOIX 



005 
005 
QQ5 



1300 
I4OO 
1500 



0202 
0207 
0210 



RCJ IF (FIB[l734.FlBtl7]-CaDE*IOD,C8:lo3 + l)<i THEN GO TO RU*X 

IF REV THEN* 
BEGT N ; STREAM (S »IQDfD*[ C (]DE. J ) H 



005 

005 

-0JL5. 



1600 
1700 
16QQ 



0211 
0216 
0216 



END 



BEGIN S 
TANKC03 



i*s; Sl*Sl- 
«■ C NOT (CODE «• 



8i ds«.4 Oct 

CODE OlV 8 < 



ENDl* 
>1) INX 



I0D)&CQDEC8*38I103;X 



005 
005 
005 



1900 
2000 
24-00- 



0218 
0219 

0221 



begin;streamc 

BEGIN S 
T ANKED 



^*C TANKCO J<- 

i*s; S3>si- 

»<Q D4 tC QD T. 



CODE INX IOD)'D*t CODE )))% 
41 DS*4 OCT ENDIX 
DIV 8 -n[8»38U03;% 



005 

005 

Mil 



2200 

2300 
2( 100 



0223 
0226 
227 



ENOIX 
FIB7J F1BC73»-U8EV 

P2 8 | TAN K C8 3»IQ P&( 



U*47»l3+Fl 
NOT PCPUP)) 



BC73/X 
[2t28tli;i 



005 
005 

_0J15 



2500 
2600 

2700 



0230 
0230 

02 33 



SP2» 

DK.U'X 
DKSl 



puiT);x 



IF DKADR8Q THLN % NORMAL SEQUrNTlAL READ--NO ADDRESS SPrClFfEU.X 



OOS 

005 

Ml 



2800 
2900 
3000 



0235 
0835 
0235 



DSl9t IF 180. C19I13 THENX 
PSPBIT* IF 100. [2113 THENX 
IF rlRC73>HFAnFR[73 THFluX 



005 
005 

_Q_05. 



3i00 
3200 
3-30-0 



0236 
0237 

0239 



BEGIN TANK[03*I0D&0C2t2» U&1C27I47J 131* 
GO TO eof;x 

E N D EL SE* 



005 
005 
005 



3400 
3500 
3600 



0241 
0244 
0245 



4E 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



DSRTM 



BEGI" IF FIBC173«0 

P(FIB[183.C33 
END ELSE* 



THEN FI8C173*FI8[183 # C18?153;X 
«153»RTN)IX 



005 

005 



3700 
3800 



00513900 



0245 
0249 

02»0 



IF IDD. [25113 THEN 
IF I0D,[27I13 THEN 
BE G I N P(TA NK ?I W AIT 



GD TO CLOSED ElSEX 

GO TO EOF ELSE GO TO PAR ELSEX 

I 6 T Q QSPB I T E NPf * 



005 

005 

-005. 



4000 
4j00 
4 200 



0250 
0252 
02 54 



READ OR SEEK ON A SERIAL 
P<MKS#A8S(0KA0R Wl* TANK 
IF QK*0R<0 THEN GO TQ DSR 



FILE WITH ADDRESS SPECIFJEDiX 

*l>S£LEeT)JX 

TNI 60 TO DS19IX 



005 
005 

005 



4300 
4*00 

4500 



0257 
0257 
025Q 



DKSRI IF DKADR>0 THEN GO TO D28 

BEGIN IF (FIB1173*FIBU73 

FI B[63»(R EV» U REV[1 



ELSE IF DKADR'O THENX 
-CQDE*-FlB[183 f C33U5332C0DE THEN GQ RAH 
»47» 1 3)»F1B [ 63;» 



005 
0Q5 
005 



4600 
4700 
4flOQ 



0261 
0263 
0268 



FIBCl73oO*X 
DKA0»«-FI8C73» 

»FlBtl33.ClO»93>cHEADERl03>C30ll23xREVjX 



005 
005 
005 



4900 
5000 
5l00 



0271 
0273 
0273 



# • 



n 

2 
3 

4 
5 



15 
16 
17 
18 



19 

20 
21 



23 
24 
25 



27 
28 
29 
30 



31 



34 
35 



37 



39 



42 



«4 
♦6 



«7 
«8 
49 
50 
51 



53 
54 



55 
56 



FIBC7J*F18C73+REV)» 

IF diskmudress then* 

BEGIb| P(TANK[Q3»FLAG(HB[16 3)»ADDRESSjXCH,»m 



005 
005 

M3. 



P<FLAGCFIBC19 3)*TANK*PRL*D£L)JX 
END ELSE* 
BEGIN TANKtQ]»FLAG(FlBCl6.mi2t27t46t21&0i:2M7q]f* 



005 

001 

_0_0_3_ 



end;* 



P CF IB 1133 t [l0 593 'TANK^ J3#11»C0M#DEL#UEL»DEL);* 
BLKDDE»FIBCl93tE33:i53*FIB[ 163 . C 33* 153 ; * 



005 

005 

-PJL5. 



end;» 



Flit 16 J ,C33U5HC0DE*-MEMCP€DUP) 
FIB[193,t33*153*CQOE*6LKODE;X 



INX NOT 13,Ct8»l53jX 



005 

005 

_GJ15. 



DKRRI PCXIT))% 
DKRi 
$ SET OMIT » NOT ShARECISK 



005 

005 

_0j05. 



0KR1* IF OKADR GEO THEN 

BEGIN IF 0*ADR s THEN DK AOR*F I8C7 3 
IF HEAD£RC7iaOKAOR THEN* 



ELSE FIBC73*DKAOR*OKADR-l** 



005 
005 



IF DISKADDRESS THEN* 

BEMN C0DE*FIBtl6],C33*l53J UNI T YPE'FIB 1 1 3 J , [ lO * 9 ] ; % 
FQH i«.Q STFP 1 UNTIL UNTTVPF DO* 



005 
005 

005 



$ SET OMIT ■'. 



SHARED I SK 
BEGIN 



IF NOT IQD.U9I1J THEN BEGIN P(TANK); WAIT END; 



i POP QMTT 



009 
005 

_QTL5, 



S SET OMIT * NOT 
i SET UMIT 



SHAREDISK 

IF 100.1271 13 

= SHAREDISK 



then ao to empty;* 



005 

005 

JLQl 



POP 
_SJLT_ 



OMIT 
0MTT 



IF <M£M[C0de3 EQV A0DRESS)»N0T THEN GO f^LL; 



a NOT SHARFfilSK 



005 

005 

JiflS 



TANKtO3*100&lC27U7*iJiX 

P(UMTYPE,TANK,i3Ml'CQM,DEL'DLL#DEu);X 

FlBtl6].t33ll5]»CQDE»MEM[CQnE"2].[l6ll5ll« 



005 
005 
005 



eno; 



FIBtl93.t33ll53*CODE+i;* 
GO TO ERRI* 



EMPTYf 



$ SET OMIT * NOT SHAREDISK 

FlBU33,ClQ«9]<-i; 
PtTANKC0J»FLAS<FIRriO3 3,ADnRESS»XCH»»W» 

P(FLAG(FIBC19 3)^TANK/PRL»DEL)>* 
FI8C133.UO»93«»UNITYPe; p<tankj; 
% SET UMTT m NOT SHAREDISK 

WAIT/ 



005 

005 

_QJ15. 



005 

005 

JUL* 



005 
005 
Q05 



FULL* 



IF NOT 

BEGIN 



IQD.C2H3 0R FIB[53,tl«l3 THEN 



S SET OMIT * NOT 



SHAREDISK 

code*i; GO 



005 
005 
005 



TO PAR; 



END* 

$ SET OMIT « NOT 



SHAREDISK 



005 

005 

-DOS 



IF BLKODEsO THEN SFOLL »P< FIB 1 1 83 1 C 33* 1 53 *RTN ) ; 
TaNK[Q3«-IQD&((I«-DKADH Mpp HEADER[03 .[30* 123 )* 



P(I>*TN) 
ENOlX 



x(I*FXBCl83.(33ll5])4FZB[t9] t C33ll5])C33l33ll5];X 

n 



IF NOT FIBCS3.C1I13 THEN 
BEGIN 
S SET OMTT s NOT SHAREDISK 



005 

005 
005 

005 

005 

J0J15. 



005 
005 

J1&5- 



S SET OMIT 



GO TO EOFJ 
END) 
« NOT SHAREDISK 



005 
005 



5200 T 0277 
5300 T 0279 
54QQ T Q28Q 



5500 T 
5600 T 
5700 T 



0282 
0284 
2 8 4 



5800 T 
5900 T 
6 Q00 T 



0288 
0290 
0290 



6i00 T 
6200 T 
ft?OQ T 



0293 
0298 
Q3QQ 



6400 T 
6410 T 
641 9 T 



0300 
0301 
0301 



6500 T 
6600 T 
6700 T 



0301 
0301 
307 



6800 T 
6900 T 
7000 T 



0308 
310 



7099 T 
7t00 T 

7101 T 



0315 
0315 

Q31B 



7109 T 
7200 T 
7? 99 T 



0318 
0318 
0319 



7300 T 

7301 t 
7309 T 



0319 

0322 

-0-322 



7400 T 
7500 T 
76 0Q T 



0322 
324 

03 26 



7700 T 
7 8 00 T 
79QQ T 



0331 
0333 
0336 



7909 T 
7980 T 
8000 T 



0336 
0336 
338 



8l00 t 
8200 T 
8?90 t 



0340 

0142 



■0**11 1 



8350 T 
8400 T 
85 T 



34511 
034610 

0346*2 



8509 T 0349*0 
8550 T 034910 
8 560 T — 3 50*1 



8569 T 
8600 T 
870Q T 



0350*1 
0350*1 
352*3 



8800 T 
8900 T 
90QQ T 



0359*1 
359*0 
Q3 S9*? 



9i00 T 
9110 T 
9119 T 



0359*2 
0360*3 
3 61*1 



9130 T 
9i40 T 
9 1 49 T 



0361*1 
0361*3 
361 1 3 



n 

2 
3 

4 
5 
6 



7 

B< 

9 
10 

12 

13 

,4< 

15 

16 

18 
19 
20 (| 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 ( 

42 

43 

44 I 

45 

46 

47 I 

48 

49 

50 ( 

51 

52 

53 \ 

54 

55 

56< 



• • 



3 



4 
S 

6 
7 
8 
9 
10 
11 
12 



• 



13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
M 
27 
28 



29 

80 

31 ~ 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 



41 
12 
43 



45 
46 
i 47 
18 
49 
SO 
51 
52 
S3 
54 
55 
56 



cooe*i; go to par; 
end;* 

nKAOBtARScDKAllH) 



'XkX. 



IF HEAOERC7]<0KAOR THEN GO TO SFULUX 
IF NOT DISKAOQRESS THEN 60 TO SFUtUX 
CQ0F»FIBC163«[33I15 3; ONlITYPF^FTflM 31 . f 10193" HX 
FOR I*o. STEP I UNTIL UNITYPE DQX 



SET OMIT ■ SHAREOISK 

BEGIN IF NOT TANKt I 3 . [ 19 1 1 3 



POP 
SET 



OMIT 
OMIT 



THEN BEGIN P( C TANkC I ] ] ) j WAIT EnOJX 



S SET OMIT 
% PQP QMTT 



» NOT SHAREOISK 
IF TANK[I3.£27tl3 



■ SHAREOISK 
IF (MEM[C0DE3 



THEN GO TO SFMPTY;X 



EQV ADURESS)»N0T THEN GO TO SFUU; 



* SET OMIT 
END- U 



• NOT SHAREOISK 
C0QE*MEM*CO0E-23.Ct8<l53;X 



$ SET OMIT .■ NOT ShAREDlSK 
$ SET OMIT ..«. SHAREOISK 

P(TANKCOl»FLAQ<FIBr 1ft 33, ADDRESS, XCH,») J* 



POP OMIT 

P(FLAG(n8[l9])#TANK#PRL*DEL)U 

FlBri6i.t33ii5 3»cnor*MFMrr.QDF»2i.riaii5Ttt 



FiBtl93.C33M53*C0DE+i;x 

go to sfull;* 

SEMPTYI 



$ SET OMIT » NOT SHAREOISK 
$ SET OMIT • SHAREOISK 

P(TAWKCIJ < ,FLAGCFlRti63)ACQPFC^^t^^i 1 m. A ODHFR.q,yCH.^i 



SP1M 



POP OMIT 

FI.BC 13 3*110! 93*i; X 
PfF L Afi(F l Rri9]Ufr0nE*lU33l33M53<rTANK r T]3.PRL*t)pL>j X 

FlBU3 3,tlO»9j*uNITYPE*i;X 

GO TO SPUUIX 
STREAM(D»IOO)J BEGIN 0S»7 LIT "ACCEPT*" ENinitt 



X 
DKURf 



PCCNOT 1) INX I0p#16#C0M*QEL>; GO TO SFULUX 
FIBr53.r43»g]*u;x 



S SET QMTT » NOTfTlMFSHARIUCO 

D01H IF OKADR.CFFJ THEN P( DKAQR, TANK, 5, 1 1 ,COM,0,RTN ) ; 
I+FIBC3J; FIBC33*0; * PKEViOUS ERRORS 
IF 1*1 THEN GO TO PBIT; X PREVIOUS ABO, 



IF I<0 ANOU*<FlBCl43*0)+14) THEN X PREVIOUS N0"lNP, SOUoHT 

PCFI8£133,UO*93, TANK, 16,11, COM, DEL, DEL, DEL)J X ROTATE 
IF(I»P(IF TANKtNOT 43»0 THFN CNQT 0). [91393 EISfX 



DKAORttCF3><60 & PAHLEii47tl], 

DKADR AND P7570000000000#TANK,I, ll' c OM,DEL,DEl.,DEL)) 

THEN QQ TO PRTT? 



X 
X 



IF CFlBt33«-I-iJ<0 THEN GO TO EOF ELSE GO TO PAR; 



DC 2. 1 I 



FIBC 17 3*0i 
IF DKApR .CFF] 



IF 



THEN P(XlT); 



FIBC143 * THEN PCFIBC 133. 1 1019 3»TANK*l6,ll .COM) ElSf 
TANK C03 ♦100*01 19*1911 J J 

FIBC173»0; _ . 



00519J60 
00S1V200 
00^19300 



00519400 
00519500 
005f9rt00 



00519700 

00519799 

-0n5l980fl 



00*19801 
00519809 
0Q81990Q 



00519999 
00520000 
005?0nQl 



00520009 
00520t00 



00520209 
00520299 
0Q5SQ3Q0 



00520301 
00S20400 

Q0 5P0 5Q O 



00520600 
00520700 
520710 



00520719 
00520799 
00520800 



00520801 

0052090C 

00521000 



0052H00 

00521200 
00 5818-00 



0052140C 
00521500 
0Q5?lftQQ 



00521700 
00521800 
QQ3PUUQ 



0Q52190C 
00522000 
00522t00 



00522200 
00522300 
00522400 



00522450 
00522500 
Q 52260 Q 



00522700 
00522800 
00522900 



00523000 
00523100 
00523200 



00523300 
00523400 



036113 
0363»0 

0363*0 



03641? 
0366<0 



03 711.0 
0.372.10 
Q372IQ 



0376*0 
037610 
3 7 6*0 



0378*1 
378*1 
Q38l»0 



0381*0 
0381*0 
03B3t3 



0386*0 
038610 

0386».0, 



0388*0 
0388*0 
389*3 



0394*1 
0396*3 
3 97 »1 - 



0397*1 

397 * 1 
0397* 1 



0400*2 

0400*2 
Q4Q3*n 



0406*1 

0409*1 
0409*1 



0412*2 
0415*0 
0415'P 



0417*2 
0417*2 
0417*3 



0417*3 
0421*0 
42 3*1 



0424*2 
0427*2 

04 30*3 



0«34*2 
0436* 3 
0439*1 



0440*2 
0443*3 

0443*3 



Q4«3'3 
0444*0 
0445*1 



0446*3 
0450*1 
0458*0 



~rv 



< 



i 



9 
10 

11 
12 

13 
14 < 



18 



22 



24 
26 



29 ' 
30 



34 
35 I 
36 
37 
38 < 
39 
40 
4, < 
42 
43 
44 i 
45 



m 



53 ' 



55 

56* 



h 



DCNll I 



pcxid; 

PCFIBC18] 

(NOT 



INX 0* TANK* 



IF DKADR.C2U] THEN 
lOP* 0* 36* COM* 



DKA0R*lFF)x60 ELSE 



005?3600 
00523700 
O Q5 ?3fl0 



T 0459* 
T 0439* 
T OJLMJ 



2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



DEI* DEL' DEL* DEL* DEL)! 
I* POLISH* 
ADDRESS* TANKTNQT (4»(I»?n]i 



00523900 
00523950 
00524000 



T 0466* 
T 04681 



TANK[NQT 41* TANKCNOT 3U 0' 

IF I THEN PULI&HCFIBUeJ.C33»153#RTN)J 

IF ADDRESS/O THEN 



00524^00 
00524200 



T 04711 
T 04741 



unuwf w — in t. u i 

P0L|SHCAD0RESS#MKS*9»8LKCNTRL>; 
ADDRESS* '< 1*03*11 

PQLTSK|TANK«AnnRFSSMUCOMi; f T fiP]NJ 



052 4 3 Q T 04 ?6 » 2 



SPIN! 



00524400 T 047? I J 
00524500 T 047013 
00524600 T 048012 



0CN2M PQLISHCXIT); 

$ RESET OMIT 
END ALGOLRUP; 



00524650 
00524651 
Q0524700 



T 0482) 
T 04821 
04821 



1482*1 



10 

12 
13 

16 

. »< 
18 
19 
20 ( 
21 
22 
23 { 
24 
26 
26 ( 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

4,( 

42 

43 

44 ( 

45 

46 

47 I 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

56 ( 



PROCEDURE 1NPUTINTCTEN*FIlX#DKA0 r »ACT*FI#FRMT*LISX#EOFL*PARl);* 
L START OF 



00600000 
REt. SEGMENT 1 DISK 



SIZE» 048 
T OQOO* 



3 WORDS 

ADDRESS ■ 0011 



VALUE 



COMMENT ESPOL VERSION Of aLgQL READ INTRINSIC* 
BY L.Rt GUCK 1 2 / 1 / 6 4 X 

Fltl 



00600100 T OQOO 10 
00600200 T .0000 10 
00 6 00300 T QOOO ' O 



20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

«8 

49 

SO 

51 

52 



NAME 



ACTJI 
FlLX*X 

Lisxn 



00600400 
00600500 



T 00001 
T 0000* 



00600 6 00 T — 0000 » 



ARRAY 
INTEGER 



TEI!U*J*X 
FRMTC*UI 

a ct* at 



00600700 T 0000*0 
00000-8 00 T 0000 »0 
06009 T QOOO ' O 



REAL 
REAL 



FUX 

DKlOBiX 

FOFLfX 



00601000 T 0000*0 
00601100 T 0000*0 
0060 1 300 T 0000 * 



_B£AL. 



PA.RL*"* 
BEGIN COMMENT I.QCAL 
iUHK2 = ?»X 



VARIABLES;!!! 



006 01 300 
0060 UOO 
00601500 



T 0000* 
T 0000* 
4 OQOO* 



ALG0LREA0M3*X 
SELECT»14*X 
JtJNKl #" 17*t 



00601600 T 0000*0 
00601700 T 0000*0 
00601600 T 0000*0 



REAL BUCNTL s 5JX 

REAL 3AVEBUFF«EQFL* 

INTEGER AEXP»FRMT;X 
ARRAY AR8Y«UlSXt*m 

ARRAY REALROW»TEN*l[»]j% 

real f ■ +on 



C0DE1*PARL ; 



08601900 
00602000 
O Q 6 Q2050 



T OQOO* 
T. 0000* 
T OQO O* 



00602100 
00602200 
0860210.0 



T 0000* 
T 0000* 
J QQ Q Q t 



real 

REAL 
RFAL 



F ■ +0'% 
TLSTRNSF+li* 

BUFF»TLSTRN + in 



00602400 
00602500 

0B 6026Q 



T OQOO* 
T 0000* 
T. OOQO* 



INTEGER 
ARRAY 



BSIZE*BUFF+i;x 

FlB»BSiZE*iC*3;x 
ADDRS»FI9»U > 



00602700 
06602800 
QO602Q00 



T 0000* 
T 0000* 

J 0000* 



REAL 
REAL 
REAL 



SGNsAQORS+UX 

wt*Sgn*i;x 

H|sWT+lJ» 



00603000 
00603100 
00603,200 



T 0000*0 

T 000010 

J QQQQ'O 



53 

54 



REAL 
REAL 

REAL 



ccR « *»i* oivr » win 

W2»W1*HX 

TV? » H2J» in_ 



REAL 

REAL 

-REAL. 



DsW2+l'X 
.ESI 6" 0}% 



00601300 
00603400 
00603500 



T 0000 1 
T 00001 
X QQQQ\ 



00603600 T 0000*0 
00603/00 T 0000*0 
00603800 T — 0000*0 



55 

56 



D2*«fUI 
INO^iJS 

skip»w»i;x 



00603900 
00*04000 

00604100 



T 0000* 
T 0000* 
X OQOO* 



2 
3 
4 
5 
6 
7 



REAL 

real 

REAL 



chR*skip+i;x 

fAWsCHH + lU 
CQDE»FAHI + m 



integer csize«cqde+hx 
integer scftr • csize+i;x 

REAL Ft 6 s S CF TR + 1 IX 



00604200 T 
0060430Q T 
0Q604fl00 T 



0000 
0000 
000 



00604500 T 
0060*600 T 
00604700 T 



0000 
0000 
OQOO 



REAL UDECLH 3 FLG + U 

LABEL GA»GAC».GR.TJVGTB#GTC.»GTQ#NlMXIT*X 
rH£FL0'STRT»NHRcL>HF^EfNQSIfifLPTHQ»NQTNUM2fLlfLlP2fl 



00604710 T 0000 
00604000 T 0000 
00604900 T OQOQ 



9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ™ 

36 

39 

40 

41 

42 

43 ~ 



NFRAC1»ATS»HRWNSG#L2P1»FINXP#NCAUNMINUS*N0TAT»* 
NCA2#NNM8*N0TNUM#RN0TNUM» INSERT #N AST* QRT#QRTN»X 
PQ?tlT.EATl.PAT ll P.NQUnT.fiFTn.RTRT7.ASTR) < .r.HKnrT.ai 



00605000 t 0000 
00605109 T 0000 
00605aflfl T QOOO 



G£TC0MA*GETC1,MAXI> 
START *CT*CTAjCTB»CTC#X 
ASLST^S*RR«AEXPI,.f iSAtlSRtFRRDRi* 



00 60 i 300 T 0000 
00605400 T 0000 
00 6 5 500 T 0044 



FMOUTA*FMOUT#Si>S»LFPAft»RTPAR*SCALE»STRNG»StASH,X 

PHRAS#INLG0P»FLDW,JMP,X 

LQGIY Ft AGRIT. = 



00605600 T 0000 
00605700 T 0000 

npftosgoo t — oooo 



DTYPEf OT YP£# ALF A* XTYPE* * 

rtype^blf*rfa*ripart#rdona#rdone#Rfc*Rexp*x 

RlPRTN'RFPRTN>RFPARTfGETNuM,GRTNi,3i 



0'06 05900 T 0000 
00606000 T 0000 
Qn6n6ton T onon 



ITYPE#FIN#F«0UTM1*S2, 
FOUT#FTYPE#FA»ETYPE»X 
CQMA>C0MM>CQM9*CQMC»RERRAf* 



00606200 T 0000 
00606300 T 0000 
0060 6 *00 T — og-gg 



COMMENT LABELS ARE LISTED IN SAME ORDER THEY APPEAR** 
DEFINE P = POLISH*** 
TEN B * 9 10 45 751 6 4 000000*;* 



OO6O65OO T 0000 

00606600 r 0000 
06 6 70 T OG-CG 



SUBROUTINE CKP8/ COMMENT CHECK FOR PRESENCE BIT*X 

BEGIN* 
IF FI LX,C1 8U 5] j I TH E N* 



00606800 T 0000 
OO6O69OO T 0001 

nn6o7ono t ooni 



eiEGIN IF NOT FILX.C18U5J THENX 

BEGlN;ST.REA.M(A«-CREALROwCO]JlB*0)fl 
begi n S i «.a; qi+aj sjj^JjSi 



00607i00 T 0002 
00607200 j 0003 
00607^00 T 00Q5 



SKIP 2 S8JX 

IF SB THEN TALLY 

A » T ALL Y** 



in 



00607*00 T 0006 
00607500 T 0006 
00607*00 T 0007 



end;x 
if not p then* 

BEGIN PtFU.X,14'CQM»DEL?#S 



00607700 T 0007 
00607800 T 0008 
00607900 T 0008 



FILX.C18U53 V lit 



smn_ 



end;* 



00608000 T 0009 
00608100 T 0011 
0608200 T 0011 



BSIZE * KEALROk.C8tt0j;X 
END ELSE* 
BSIZe»PQlISH(MKS^DkADR^1»FILX*ALG0LREAP)j% 



OO6O83OO T 0011 
00608<»00 T 0012 
00608500 T 0012 



45 

46 

*7 
48 
•9 
SO 
51 
52 
53 
54 
55 
56 



EN 
SuBROUT 



on 

INE 



BuFF*(*FILX)«8SIZECe»38H03 i 
REAOSiX 



00608600 T 0014 
00608700 T 0016 
00608800 T 0017 



COMMENT RELEASE BUFFERS 
BEGIN* 

P(XCH); COMMENT FLAG TO TOP OF STACK;* 



00608900 T 0017 
00609000 T 0017 
006091,00 T 0017 



IF ACT»2 THEN COMMENT READ RELEASE** 

PGLISHCMK3#DKA0R»0*FILX#ALG0LREAD)JX 
IF P THENX 



00609200 t 0017 
00609300 T 0018 
00609^00 T 0019 



BEGIN LSTRN * TLSTRNJ* 

IF FILX,C18I15]>1 THEN 
FILXCNOT 43»FILX[NOT 



3J»o Else 



00609500 T 0019 
00609600 T 0021 
00609700 T 0022 



. j- 



IF FILX.C18US3 « 1 THENX 
PCFax#H»COM)IX 

p<xm; x _ 



00609800 T 0026 
Q06099OQ T 0027 
00610000 T 0029 



h- 



17 
IS 



19 
20 



22 



24 
25 



28 
29 



JLL 



end;* 
ckpb;* 

a SJUXJJ L UJ TH E N 



%%% UTYP» SSN > [45ini SFF: U'PHRASE ueclr 



006 

006 
006 



BEGIN CS.I2E*8X85IZE; BUFF*P(0» CBUFF1*G# INX ) END J 
END REAOSIX 
COMMENT SMflBHUltM USFn BY FRFF. FIFLplX _ 



006 
006 
006 



subroutine 
begin 



gncr;* 



COMMENT THIS SUB-ROUTINE GETS CHARACTERS F^RX 
FREF FIELD-INCLUDING REAPING OF RECORDS 



006 
006 
006 



GA> 



WHEN REQUIREOiX 
IF WT > THEN GO TO GACiX 

CflMMFNlT BilFpFR TS FMPTY.FTI L ITU 



P(0.)JX 

reads;* 
^T «• ttSlZE 



X Hi CflMMF^ WT s » QF CHARACTFRS IN RUFpERit 



GACI 



BUFF ♦ PC0#0*C8UFF3#CCX);X 

COMMENT GET CHR FROM SUFFER;* 
STREAMC* 



P5 

P4 

jP_J_ 



BUFF'X 
IF XT < 



PI 
BEGIN* 

_ SX 



* typ>;x 



» Par* 



ft j TH E N WT E L S E 6 3 » at 



ci «■ c i + pi;* 

GO TQ FGNC; 
GU TO GN CHC / 



COMMENT 
CHMMFISIT 



DEBUANK-THEN 
GET NCR?* 



GET NCR;* 



FGNC 



P3UF SC * 
SI+SI+1JX 

TALLY » TALLY 



" " then jump out to qNcmc;* 

t nii 



006 

006 

-006- 



006 
006 
006 



006 

006 

-004 



006 

006 

-004 



006 
006 

-0O6- 



006 
006 
006 



006 

006 

JIQA 



OiOO T 
0200 T 

oa i o t 



0029 
0029 



0220 T 
0300 T 

Q400 t 



0030 
0034 

oo3a 



O5OO T 
0600 T. 
Q70Q T 



0034 
0035 
003^ 



0800 T 
0900 T 
4 



0035 

0035 

000 T — 0044 



HOO T 
1200 T 
U-Q-Q T 



0036 
0036 
00 38 



1500 T 
t600 T 



0039 
0040 



1700 T — 0-O44 



1800 T 
1900 T 



0041 
0041 



20 00 T 004* 



2t00 T 
2200 T 



0044 
0044 



2 300 T OOft-4 



2400 T 
250.0 T 
£40 



0-4 00 



0044 
0045 
45. 



2700 T 
2800 t 
29Q0 T 



0045 
0047 
0Q47 



18 
19 
20 ( 
21 
22 



30 

31 



COMMENT RETURN A -1 IF ALL WERE BLANK** 

01 * LOC P5J* 

QS » 8 LIT "+0000001*;* 



006 
006 

_QM 



3Q00 T 
3iOO T 
32Q Q T 



0048 
0048 
Q04fl 



32 
33 
34 

35 
36 

37 " 



go to crtn;x 
gnchci tally * tally 

01 » LOC P4;* 



+ lit 



CRTN: 



01 «• 01 • 1;* 

os * chr;* 
Pi «- tally;* 



006 
006 
006 



3300 T 
3400 T 
3*00 T 



0049 
0049 

0050 



006 
006 

JIM 



3600 T 
3700 T 
3800 T 



0050 
0050 
0050 



38 
39 



40 
41 
42 
43 
44 
45 
46 
47 
«8 
49 
50 
51 
52 
53 
54 



P4 * si;* 

end;* 

P(WT«XCH*SUBj«WT»STD)j COMMENT WT » WT*TALLV*X 



buff * p;* 

"IF PCDUP) < 

P(xchj; 



THEN BEGIN PCDELW GO To GA END;* 
COMMENT RETURN LITERAL TO TOP;* 



END gncb;* 

REAL SUBROUTINE LISTELEMENT ; 
BEGIN : 



IF LSTRN<0 THEN GO TO ENRQR /* 
PCADORS'.AODRSjISN) ; 
AQQRS»LISX * 



006 
006 

jaxii. 



3900 T 
4000 T 
4100 T 



0051 
0051 
0051 



006 
006 

-QUA 



4200 T 
43OO T 
4 400 T 



0052 
0053 

0055 



066 
006 
006 



4500 T 
4505 T 
4510 T 



0055 
0055 

-0O54 



006 

006 

_QQA 



4515 t 
4520 T 
4525 T 



0056 
0057 
005B 



56 
A 



LISTELEMENT*P ; 
END OF LISTELEMENT 



006 
006 
06 



4530 T 
4535 T 
4 600 T 



0058 
0059 

0059 



**** DECLARATIONS FOR U-PHRASE * * 

* NOTE THAT CST REFERS TO THE CONSTRUCT BEGIN SCANNED. THE CST IS 

* EITHER A NUMBLH, AN UNQUOTED STRING* OR A QUOTED STrInG, 



LABEL 



006 
006 

_Q_Q6_ 



4605 T 
4610 T 
4.615 ,T 



0059 
0059 
Q059 



UE8R • 


* 


XXX SRNCHTO FOR 


UTYPE 


»■ 


XXX 8RNCHT0 FOR 


UENDNllM 


'i':.»- 


«XX BRNOM.TQ FOR 



DATA ERROR. 
U*PHRASE EDITING, 
END QF, NUMBER SCAN. 



086 
006 
006 



4620 T 
4625 T 

46 30 T 



0059 
0059 
0059 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



28 
29 

JO 

31 " 



32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43^ 



45 
46 



48 
49 
50 
51 



52 
53 
54 



*L 



ULl 
UL.2 
UI.3 



%%% 

XXX 



UL4 
-UiA. 



BRNCHTU 
BRNCHTO 
BRNCHTO 



FOR EFFICIENCY 
FOR EFFICIENCY 
FOR EFFICIENCY 



IN uch* 

IN uCHECKT 
I N S TR I NG S 



DEFINE 



FMTERH 
UEXP 



XXX BRNCHTO FOR STRING-HANDLING LOOP. 
XXX BRNCHTO FOR UCHECK IT(?£N0*0F"CST ) 
XXX BRNCHTO FOR NO STRING STORE. 



00614635 
00614640 
00614645. 



XXX BRNCHTO FOR ILLEGAL FORMAT. 

WT t, %%% 15 VALUE OF £XPNT(OF CST AS NUM)# 

%%t QH IT IS THE SHIP* IT-ANYhQW TQgGL 



0061465Q 
00614693 
00614660 



UBUILD 



Wl »> 



XXX FOR THE 1-ST CHR OF QUOTED STRING 
XXX OR IS USEO AS TEMPORY BY UfiETSQN, 
XXX IS > Q IF HAVE NQT YeT inEwTlFTFn 



00614665 
00614670 
61 4 67 5 



0059* 
00591 
00591 



0059* 
00591 
00591 



XXX CST 4 SO MUST BUILD UH INTO UBuFF 
XXX IS > IF SHALL BRANCH TQ E N DNU M 
XXX IF HAVE HIT FND OF FIEin HjUTH. 



00614680 
00614685 
Q061469Q 



0059? 

00591 
QQ59 I 



0059* 
0059» 
QQ59? 



UVAL 



W2 ** 



XXX AND IS USED 
UNUM « Dl ** XXX IS TRUE IFF 
MAPORS sUDFCl R *. %tt STn»FS \ 1ST 



XXX IS ALSO USED AS TEMPORARY COUNTER 
XXX OF OCT DIGITS IN OCTAL NUM PART. 
XXX TS VALUE OF rST \F CST TS A NUM t 



08614695 
00614700 
00614705 



0059' 
0059 » 
00591 



AS TEMPORARY STORAGE, 
CST IS NUMBER, 
ADnRFSS REFERRED T.Q. 



00614710 
00614715 
Q0614720 



0059* 
00591 
0050? 



UH 
UBUFF 



8 
3 



XXX BY THE ULIST OEFINE (BELOW). 

D2 *» XXX IS CURRENT CHARACTER OF CST. 

FLG JLe XXX IS SIX OR LESS CHARACTFRS flF 



00614725 
00614 730 
00614735 



0059! 
0059? 
0059? 



CST* 



UCHCNT, 



USCHCNT 
UOEC 



SKIP #r 



%*% ALSO IS USED AS TEMPORARY B* 

XXX SUBROUTINE UCHECKIT. 

IX* IS CHARACTER COUNTED FOR cS T -_ 



00614/40 
0061474b 
00614750 



0059? 
0059? 
0059? 



FAW *t XXX IS STRING CHR, COUNTER FOR UBUFF. 

*, XXX IS VALUE OF DECIMAL PART Op CST 
XXX (IF CST IS NUMBER). Attp ^S A^Sp 



00614755 
00614760 
00614765 



USgn * Sgn,[47?U *> 

UEXPSGN * SGNtUftl.3 *» 



UT¥P 

UNLPCAtED 

UQSTRNg 



SGN,C45«l3 »» XXX 
SGN.C44?1] *, XXX 
SGN.C43?l3 »> X XX 



%%% USED AS TEMPORARY STORAGE, 

XXX IS TRUE IFF C S TUS NUM) IS N£GTIV 

XXX IS TRUE IFF UEXP Is NEGATIVE. 



00614770 
00614775 
0061 4 7B0 



0059' 
00591 
00 5 9 ?- 



0059? 
0059? 
0059' 



ULIST s SGN.U2U3 *# XXX 

XXX 

UP = SQN,[36? 63 *> %%% 



IS TRUE IFF IN OR JUST USED UPhRS 
IS T«UE IFF HAVE NOT LOCATEO CST. 
IS TRUE TFF EST IS OuOTFn STRING. 



00614785 
00614790 

Q0614795 



0059? 
0059? 

0059? 



UW * SGN.C30?63 

UFREEFIELO* SGn.£29«13 

UGETRECQRQ 



IS TRUE IFF UCH HAS TRIED TU GET 
AND/OR HAS GOTTEN A NEW LIST ADRS 
STQRES ORIGINAL VAI UE OF D. 



00614000 
00614805 
006l4fll0 



UGOOFEDCUGOOFEOI) ' 
UE.0W » 
UALLDUNE «_ 



*> XXX STORES ORIGINAL VALUE OF W, 

*, XXX IS TRUE IFF IN SpECL // FREEFlELO 

« BEGIN P(CHR»Q)J RF AOS END ** 



00614815 
00614820 
Q.Q6) 48.25 



0059' 
0059r 

0059' 



0059? 
0059? 
0059? 



SUBROUTINE uGnch; XXX 

BEGIN XXX 

IF CHRSCSIZE XXX 



BEGIN UeXP*UG00fEDU 
WSU.CHCNT. #' 

GO TO BR i ; 



GO TO UERR END *> 



00614830 
00614835 

00614840 



0059' 
0059? 

00591 



THEN BEGIN XXX 

U GET RE CORD ; 
IF UNLQCATED 



UGNCH GETS THE NEXT CHARACTER FROM THE 
BUFFER* GETS A NEW BUFFER WHEN NECCESSARY, 
ADJUSTS BUFF, AND BUMPS CHR BY 1. 



00614845 
00614850 
0Q61 48 55 



0059? 
0059? 
0059' 



WE NEED A NEW BUFFER* CALL READS TO GET ONE 
XXX GET A NEW RECORD. 
X*» IF HAVE NOT Y ET LOCATED C ST. TH E N 



00614860 
00614865 
Q06 1487Q 



0059? 
0060?0 
0060 10 



THEN UCHCNT*0 i XXX ZERO CHAR, CNTER, FOR NEW BUFFER SCAN, 
END ; 
CHR+CHR+1 i XXX INCREMENT CHARACTER COUNTER. 



00614875 
00614880 
00 ft l4fl 85 



STREAM(P1«"Q'.P2«"8UFF:P0*G) ; XXX 

begin ot>loc P2; oi*oi"i; 

BUFF-P ; XXX BUFF IS SET TO NEW 



NOW GET CHARACTER AND BUMP BuFF 

Sl«-P2; DS*CHR; P2*SI END ; 
A B § A pPRS (BUFFED. 



00614890 

00614095 
006^4000 



0060? 
0061? 
0063?0 



0063'0 
0065'0 
0Q 6S?0 



; XXX CHARACTER IS STORED IN UH, 
OF UGNCH 1 ■<.■•■*>.■• 
SUBROUTINE UPUFFIT ; XXX STUFFS UH INTO UBUFF FROM THE RIGHT 



00614905 
00614910 
0. Q 614 9 1 5 



00614920 
00AJ4925 
00614030 



Q066!l 
0Q67?3 
0069?t 



0069?3 
007011 
, P07Qt? 



Ti 



55 

56 ' 
57 



n 

2 
3 
4 
5 
6 
I 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
26 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37" 
38 



BEGIN XXX AND BUMPS 
UBUFF<-UH & UBUFFCJ.2I 18 * 30 J ; 
l.lSCHCNT»USCHCNT*1 I . 



THE STRING CHARACTER COUNTER. 



006 

006 

-006 



493b t 0071 
4940 T 0071 
4945 T 00 72 



end of ubuffit ; 
subroutine uch ; %%% uch 

BEGIN X XX FOR 



IS THE CONTROL FUR UGNCH, UqH WATCHE S OUT 
ENO»QF»W AMD. TF NOT TM "STR T NG". SCANS 



%%% OVtR IN-LINE. COMMENTS (/,.,,■) AND STORES NQN- 
%%% BLANK PORTION OF...CST IN UBuFF FOR FUTURE USE 
%%% ]f r r SX TUH^S puT MOT Tfl RF A NUMB ER , UfrN Ai 



006 
006 
006 



4950 T 
495S T 
0960 T 



0074 
0074 
00 75 



iUc 



006 
006 
006 



4965 T 
4970 T 
497,5 T 



IF UEOW THEN 
BEGIN 



XXX HANDLES END-OF-RECORO SITUATIONS C/. , f OR O, 

XXX IF HAVE HIT ENQ-Of-W <W«FIELD «IOTH)» THEN 



006 
006 

00ft 



*980 T 
4985 T 



00 75 
0075 
0075 



0075 
0075 



IF UBUILD'O XXX IF W£ ARE NOT IN THE STRING SECTION, WE 
THEN BEGIN P(DEL>> GO UENONUM END XXX BRNCHTO END-OF-NuM. 



006 
006 

00ft 



4990 T 0075 



4995 J 
5000 t 
5005 T 



0076 
0076 

J10X8. 



ELSE XXX EtSE WE ARE STILL INSJOE FIELD-WIQTH 
BEGIN XXX STILL SOME FlELO WIDTH LEFT. 
UGNCHj UCHCNT-UCHCNT+1 V XXX GET CHRTER* 



W • « « 



BUMP CHR. CNTFR, 



006 
006 



5010 T 
5015 T 

5020 T 



0078 
0078 
00 7 8 



IF NOT UQSTRNG ThEN XXX NOT ...IN A QUOTED STRING* 

WHILE UHs'V" 00 «Xx'wE"vE HIT AN ENO-QF-RECQRD MARK 



BEGIN 
DO UGNCH 
IF C HR/ 1 



XXX 
UNTIL 
T HEN 



CHRsl 



OR AN JNLINE CMMNT("/,. t »") 
OR UH«"«" OR UH*"*" J 



006 

006 

-OO 6 - 



5025 T 
50 30 T 
5 p 35 t 



0081 
0082 
0082 



BEGIN 

jF uh*"*" THEN GU TO UL1 * 

IP u h«"«." TH EN 



006 
006 

00ft 



5040 T 
5045 T 

5050 T 



0084 
0084 

0088 



006 
006 
006 



5055 T 
5060 T 
5Q65 T 



0089 
0089 
0090 



BEGIN CHR*CSIZE; UL1 « UGNCH END I 



END 



END ; 



006 

006 

-04A 



5070 T 
5075 T 
5Q 8 T 



00«1 
0094 
Q Q 9« 



IF UH»"*" THEN XXX WE S£T UH»DEL IMeT£R, AND IF THERE.S 

BEGIN XXX MORE LIST, WE GET A NEW RECORD* 
UH»" "; I F l.STRN&Q THEN UADpRS«-LlSX i . 



006 

006 

006 



5085 T 

50 9 T 
5095 T 



0094 
.0095 
0095 



SGN+SGN OR 
IF LSTRN*0 

end ; 



32 t XXX SETS ULIST * TRUE, 
THEN UGETRECORD t 



006 
006 

006 



5100 t 
5105 T 
5U0 T 



U" UBUILD'O XXX WE HAVE NOT YET 
THEN UBUFFIT i XXX SQ MUST SAVE UH 

tiNn i „ , 



IDENTIFIED 
IN UBUFF. 



0098 
0099 

-O+04 



CST» 



006 
006 
00 ft 



5 115 T 
5120 T 
512 5 T 



010,3 
0103 
0105 



END i 
END OF UCH i 
BOOLEAN SUBRBUTINE UOELIMCHK 



i XXX IS TRUE IFF HAVE ENCQUNTfRFQ A 



006 

006 

_0_fl6_ 



5130 T 
5135 T 
514Q T 



0105 

0105 

.Q1Q5 



40 
41 
42 
43 



45 
46 
47 
«8 
49 
50 
51 
52 
53 
54 



BEGIN 

UDELlMcHK«-(jHs»S" OR Uh»' 
;no nF U OELIM CHK, ; 



XXX DELIMITER NOT IN A UuOTEO STRING, 
" OR UH*"*" or ueow ; 



006 

006 

J10A 



oefine uchec*it « 



XXX UCHECKIT IS USED WHENEVER THE ScAN H*5 
XXX TERMINATEO* UCHECKIT CHECKS FQR THE PHOPER 
XXX DELTMtTER AND TAKES THE ASSOCIATED BRANCH. 



006 
006 



5145 T 
5150 T 
5155 T. 



5160 T 
5165 T 
5l7Q T 



0106 

0106 

-O-UO 







IXL 



ouoii 

OllOU 

otto* 



4- 



%%% UCHECKIT WILL POSITION UH APPROPIATeLY 
XXX CPHIOR TO DELIMITER CHECKING) IF THE 
XXX M INI MU M FIEHI 1IDTH (UP) HAS NOT BEEN 



006 

006 

MA 



5175 T 
5180 T 
5lB5 T 



OilOJl 
011011 



XXX EXHAUSTED. 
IF UH»"*" THEN UALLDONfc ; XXX *THE 
TF NQ T((UB UFF»UH?<* f ») AND u H/« "> 



* TERMINATES 
THEN 



THE READ STMT, 



006 

006 
006 



5190 T 
5i95 T 
5200 T 



0H0«1 

o i j o 1 1 

oi ion 



BEGIN 

U«STRNG*.UBUIL,D«-o; 
W HILE U C HCNT SI 



ID DO 



WM21J D*.UO i 
* % % SC A N OFF U NTIL AT LEAST 



006 
006 
006 



5205 T 
5210 t 
52 1 5 T 



0110«1 
OllOl 
01 1 0*1 



56 
5_ 



BEGIN . XXX ,fi- CHARACTERS HAVE BEEN PASSED t 

UCH- )'"' ' -•:"<- J •-' ■•■■ .. '. 

If UUST TH EN CO TO l M L2 i %%% > H A V E ENCOU NTE RE D AN ». 



006 

006 

JUL* 



5220 T 
5225 T 

5230 T 



OilOll 
OHO It 

OtlQfl 



• • 



h 



8 
9 
10 



12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 



25 
26 



27 
28 



29 
30 



31 

32 

33 

34 

35 

36 

37 " 

38 



39 

40 
41 
42 



45 
46 
47 
48 



49 
50 
51 
52 
53 
54 



55 
56 



IF UH="* M THEN UALLDUNE ; 
IF CUBUFF OR UVAL*Uh/ M * " ) 
THEN URUFFfrUHUFF AND UVAL 



END ; 
UL2* W*UH I XXX 
Ci Q TQ CQ KM ; XXX 



XXX THE * TRMNTS THE READ« 
AND CUH«" " QH NOT UV*U 
ELSE UgOriFEDCn i 



00615235 
0060240 

0060345 



RESTORE N TO ITS ORIGINAL VALUE* 
AND MAKE NflRMAL EXTT. . 



END t 
UG0QFEDC2) 
%%% FNf) OF 



00615250 
09615255 

0060260 



OUOll 
0110*1 

onou 



0110*1 
01101 t 

onon 



#| XX* WAS 

UCHECKIT. 



NUT 



UR 



M N 



SO KE ERROR EXIT. 



BOOLEAN SUBROUTINE UGETSGN ; 

BEGIN 
TP PfUH«w— »»nuP) OR hmc" 



XXX IS TRUE IF SIGN» B * W J IF SlGN(*#-,&) 

XXX EXISTS* UGETSGN FETCHES A NEW CHaR. 
♦ " Q R UH«»&" TH F N UCH J 



00615265 

00615270 
00615275 



UGET5GN«-P0LISH ; 
END OF UGETSGN J 
BOOLEAN SUBRQUTINF„ tSQEU HCHK 



00615280 
00615285 
00615290 



.01.101.1 

011051 

onon 



0110*1 
ouito 
qhi;o 



; 1XX IS TRUE IF fURRFNT CH AH ACTERt UH ) 



BEGIN XXX IS A DELIMITER** OR * QR BLANK); 
IF NOT UQSTRN6 THEN PCUDELIMCHK) ELSE XXX IF UH«RlGHT HAN0 
REGTN XIX CUriTF OF QUOTED STRING* 



00615295 
00615 300 
QQ6 15 3Q5 



011610 
.01.16.11 
011 6* ? 



IF UEO* THEN UG00FEDC3) i XXX 

IF NQTtUH*""" OR ULXP) THEN XXX 

BEGIN XXX. 



THEN ONE AND POSSIBLY TWO 
CHAR ARE SCANNED UNT*L U h 
IS EITHER A DELfM T TFH OR 



00615310 
00615315 
006153 t ?0 



UQSTRNG*0; UCH ; XXX THE FIRST CHARACTER OF THE 
IF NOT P(U0ELIMCHK#DUP)XXX NEXT CONCATENATED StRJNG* 
THEN BEGIN , 



00615325 
00615330 
0060 1 3 5 



0117*0 
0117*0 
01?0*Q 



0120*2 

0123*0 

M2JLLZ. 



IF UH/ WM " THEN 
SqN«-SgN QR 16 , 

uch; 



UG0QFEDC4) i 
XXX SETS UQSTrNq * TRUE. 



006 0340 
00615343 

floftiftfrso 



end ; 

END 
ECSE PfUEXPfcO) 



1. 



end ; 

USDELlMCHKfPDLlSH i 
END OF USPFLIMCHK I 



XXX DO ERROR^EXlT IF WE ARE IN 
XXX QUOTED STRING AND* EXCEED 
XXX k 03 cNcQUNTER 



00615355 
0.06 lb 36.O 
OQ60365 



0125*0 
0128*0 
1 29*1 



XXX A NON-QUOTE, NON-DEL* MITER 



00615370 
00615375 
00 6 15 380 



0130*0 
0132*2 

-aw 



X*** END OF U-PHRASE DE C L A RATIONS* 
LABEL C>X»A«I*R*E»Q,L,Z,Ztt2j*0,StrtT i 



00615385 
00615390 
0060395 



0135 

0135 

-Q-l-iS 



0136 

0136 

-0-U6. 



FPEFLp** 



GO TO START; COMMENT GO AROUND FREE FIELD CODE; 

COMMENT FREE FIELD FORMAT / 

P(0*0*Uj0*0*0)J CGMMFNT PlSN UP STatK;X 



00615400 
00615405 
00615410 



LSTRN «\ OiX 

WT ♦ BSI2E x q) COMMENT WT 

RtiFr » P( o*n.r ruff 3. c.ffxvi* 



00615415 
00615420 
Q Q6 155. ,QQ„ 



0136 
006 
0136 



0136 
0137 
0137 



« * OF CHR IN BUFFER; X 



STRTj ADORS «• LISX; COMMENT ADDRESS 

IF L S TRN < THEN BEGIN COMMENT 

P-UJLiJ 



of list item;x 

call read and exit;* 



00613600 
00615700 
006 158 00 



gncr; 



NmRCl: 



EsIG ♦ OIvR * 

IF CSUN «• 



eno;x 

COMMENT 



REAOSlX 

GET A CHARACTER TU TOP OF STaCK;X 



00615900 
00616000 
006161,00 



0139 
0140 
Q141 



0; cummfnt set exponent 

to zero;x 
pcdup) » "■") then go to 



and fraction parjx 
here;x 



00616200 
00616300 
00616«00 



0143 
0143 

0145 



HERE* 



IF PCOUP) 
IF PCOUP) 
P(OEL)iX 



* 4 ti 



* M &' 



THEN 
THEN 



00 6 1 6 500 
00616600 

00616700 



0145 
0146 
0146 



GO 
GO 



TO 
TO 



here;x 

NOSlGiX 



0147 
0148 
0148 



NOSIG: 



gncr;x 

IF PCUUP) 

gncr;x 



00616800 
00616900 
00617000 



> 9 THEN GO TO NQTNUMiX 



lptwol if. pcuup) > 9 then go to n0tnum2/x 
pcxcw#io*mul*+);x 

GNCR J GO TO LPTHOiX 



O06i7i00 
00617200 
006J7300 



0150 
0151 
0152 



00617400 
00617500 
00617600 



0153 

0154 
0155 



0156 
0157 
0158, 



49 

50' 
51 
52 
53 < 
54 
65 
56 I 
57, 



ft 



M0TNUM2* 
-L4X 



IF P(DUP) 
PCOEUJX 
GN CR;* 



ThEN GO TO NFRAC1/* 



00617700 T 
00617800 T 
00617900 T 



59 
60 
64- 



L1P2I IF PCDUP) > 9 THEN 

P(XCH#10»MUL#+);X 
OIVR ♦ OIvR ♦ HE- 



GO TO NFRACtiX 



NFRACi: 



gncr; go to 

IF PCOUP) / 



"P M THLN 



GO TO NOTATn 



00618000 T 
00618100 T 
QQ6162QQ T 0- 



62 
63 
6JL 



00618300 T 
OO6184OO T 
00618500 T Q 



65 
67 
A& 



ATSI 



gncr;* 

IF (ESlG 
IF P( O WP) « 



P(OUP) • 
' THEN GO 



in 



") THEN 
HR1J* 



GO TO HRJI* 



00618600 T 
00618700 T 
OOftlftflOO T 0. 



69 
70 



10 
11 
12 

13 

14 

IB 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 " 



HRi! 



IF PCOUP) / "&" THEN GO TO NSGJX 
PCPEUU 

gncr; COMM ENT 1ST d ig it;* 



00618900 T 
00619000 T 
Q6 1V1 0Q T P 



73 
74 
1A 



NS6» GNCR; COMMENT 2N0 DIGIT;* 
L2P1* IF PCDUP) > 9 THEN GO TO FINXP;* 
PQtCHtlOf H Ul» + ) H 



00619200 T 
00619300 t 
0Q619400 T 



76 
77 



FlNXPt 



gncr; 

IF P 1 
GNCR* 



GO TO L2Pli* 
"»" THEN GO TO NCAi;* 

an tq finxp;* 



00619.500. T 
00619600 T 
00619700 T 



79 
80 
84 



NCAi S 

NMINUSJ 



IF ES1G THEN 

ESiG ♦ p;x 

P("» w )i* 



pccHsm 



00619800 T 
00619900 T 
00 6 20000 T 6- 



83 
64 



nctat; 

NCA2» 



IF P = " 

gncr; go 

I F SG N T 



Hfe 



TO 



then go to nca2u 
notat;* 

P(CHS)i* 



00620100 t 
00620200 t 
0062 300 T — -G 



65 
86 
8* 



IF P(£Sig-DIVR»DUP> a THEN* 

BEGIN* 
P(D£L.m 



00620400 T 
00620500 T 
00620600 T 



88 
90 
9-0- 



s n o; x 



»(CAD.0RSJ#J50)I* 
10 TO STRT* 



00620700 T 
00620800 T 
00620900 T 



90 
91 
94, 



IF PCOUP) 2 
P 



THEN* 
(TENCP3'MUL)X 
FLSF* 



00621000 T 
00621100 T 
006?1?00 t 



«1 
92 

9_i 



NNMBl 



PCCADDRS 
G Q TQ *T 



pctenc-pwu* 
]*std);x 

rt;x 



00621300 T 
00621400 T 
Q 6 i?l5 QQ T 



93 
94 
15. 



NOTNUMS 



IF PCDUP 

pcoed;* 
P(0>;x 



) * 



THEN GO TO RNOTNUMJX 



00621600 T 
00621700 T 
QQ62180Q T Q 



95 
97 
11 



RNOTNUMI 



gncr; go 

IF PCOUP 
PCQFUJ* 



TO L1P2;* 
) t ••<?" ThEN GO TO INSERT;* 



00621900 T 
00622000 T 
00622100 T 



20 



97 

99 
0. 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



pen;* 

gncr; go to ats;x 

IKSERTI IF PCDUP) » "," THEN* 



00622200 f 020l 
00622300 T 0201 
00622 4 00 T D_2a2. 



BEGIN* 

pcoed;* 
go to stht;x 



00622500 T 
00622600 T 
00 62, 2700 T 



0203 
0203 
0204 



eno;* 
nastt if roup) * "" m then go to nouot;* 

PCOEUJ* 



QRT» 



TYP * CC 

gncr; a 
gncr; it 



R * l;* 



00622800 T 
00622900 T 
00623 00 T 



0204 

0204 

JL2fl4 



00623100 T 
00623200 T 
006P3300 T 



0206 
0207 
208 



*L 



ORTNt 



IF PCOUP 
P(XCH#64 



) « ««« THEN GO TO ECU?;* 
» ££fiHU_A THEN* 



00623400 T 020* 
00623500 T 0210 
00623600 T 0211 



>T 



10 



12 
13 



IS 



16 



18 



6 

u 
o 
Q 



21 
22 
23 
24 
26 
M 
27 
28 
29 
30 
31 ~ 



35 
36 

37 ~ 

38 



40 



43 



46 



18 



i 50 
51 
52 
53 
54 
55 



EQttTl 



E ATU 



EATUpi 



GETOl 



CHKOCTt 



BEGINX 

gncr; 



GO TQ QR7N;X 



P(caddrs:»sto);* 
adors ♦ lisxjx 

TF I STRm <r n XMVil 



BEGIN! 
UD GNCR UNTIL P 
ftU fiNCR UNTIL 



p»"»";x 



JJUUl 



p<t)*x 

READS;* 



ccr -♦ on 
gncr;* 

TF PCDUP 



«t f» «» 



CCR ♦• 1U 
GO TO qrt;x 

PCDEDlt 



ThFN Qfl Tfl E0UTI1 



TYP . ..♦ QJ.% 

if ccr = the nx 
begin* 



cNotx 



gncr;x 

60 to eatupix 



PUAD0H51,$TDm 

GNCR'* 

TF PCnUPI « «.» XtiUl T i p T *TRTiX 



gncr; go 

IF P * « 

SnCr;* 



to eati;x 
• " then begin 



gncr; go to eatup end;* 



go to nmrcl;x 

NQU0T: IF P(OUP) t "%•' 
P(UrL,Oit» 



THEN GO TO ASTRXJX 



GNCRU 
IF P(OUP) 
P(XCH,0IA 



> 7 THEN GO 
4, DIB 1,TRB 



gncr; go tq getg;x 

GTRT7J If p i ",« THEN BEGIn 

P(CADd'rs'3/sto);» 



TO GTRJ7|X 

mux 



gncr; go to gtrtz end;x 



go to strtu 

ASTRXi IF P(OUP) * ••*• 
BEGIN* 



THENX 



ENDJ.X 

IF PCDUP) 

PCDEUJS 

WT ♦ * 1 



p<n.;x. 

REAflSjX 



f "/« THEN GO TO QETCOM A ;X 



i SFT OMTT 

getcoma* esig* 



$ RESET 
GETClt 



OMIT 
If P 



gncr;x 

gq to nmrcl;x 

NQT(TIHESHARIKG) 
tFI8l43«t8UJ»i3); 



X TRUE IF REMOTE INPUT 



gncr; go getci; 
comment start of inputinti* 
stahtm p(lstrn>0^0);% 



OR (ESIG ANQ WT»0) THEN GO STRT ELSE 



IF FILX,C18U53 > 
BEGIN PiFjlXtNOT 2])U 

■■ ■■■*■■ ikJma, fc- Hw.,1 . a .# ~%-^Jr..-L./ 



1 THEN* 

FILXCNOT -IMPARL I 



00623700 
00623800 

00633900. 



00624000 
0062«l00 
0Qft24300 



00624300 
00624400 
00624500 



021310 
0213»2 

o a;5« 2 



021512 
021610 



00624600 
00624700 



021712 
021810 
2 20 1 



00624900 
00625000 
00 6 2 5 100 



022210 
0222*1 
022 3* 



00625200 
00625300 

00625400 



00625500 
00625600 
00625700 



0223 JO 
0223 » 3 
03 25 *0 



0226»1 
022710 
022712 



00625800 
00625900 
00626000 



022713 
022812 
02 2 9* 4- 



00626100 
00626200 
00626300 



0229*3 
023H0 
02*1*2 



00626400 
00626S0Q 

00626600 



0231*2 
0232*0 
023 310- 



T 
T 



00626700 
00626800 

QQ6269Q0 



023411 
0235*2 

023812 



00627000 
00627t00 
006P790Q 



0240*0 
0240*2 
Q24l*3 



0062?300 
00627400 
00627500 



0242M 
O243I0 
Qg44*l 



00627600 
00627700 
00637fi00 



0245*1 
0246*2 
0249*3 



00627900 
00628000 
00628100 



0250*0 
0250*2 
0251*1 



00628200 
00628300 
00638400 



0251*3 
025210 
0253*0 



00628500 
00628600 
0Q6 28 65Q 



0253*0 
0254*1 



00628720 
00628721 
00628750 



0255*1 
0256*0 
0256*2 



00628800 
00628900 
00629000 



0256*2 
0258*2 

02 58* 2 



00629100 
00629200 
00699100 



0260*2 
0?62»2 
0262*2 



0263*3 
0265*0 



< 



1 
2 
3 

4 
5 

6 
7 
8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 I 

27 

28 

29 ( 

30 

31 

32 i 

33 

34 

35 ( 

36 

37 

38 { 

39 

40 

41 I 

42 

43 

44 * 

46 

46 

47 

48 



i 
f 
i 

i 



• 



m 



49 

50* 
51 
52 
53 I 
54 
56 
56< 

3 



m • 



>T 



IF NOT FI8CSKC12I1J 
IF FZBC4 3 • C27 «3 J x 2 

IBf51.[43>23/CC 



i f f : 



THEN P(MKS* M REAONG M 'FILX,7# SELECT) 
THEN 



00629330 
0062«340 



>2 3/C( A CT<0)» 2 ) THEN* 



0270H 
027311 



0Q 6 2S? /) j 0274*3 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



PQLlSH(MKS,DKAQR#CACT<Q) +2#FILX# I, SELECT) *» 
COMMENT CALL SELECT IF NOT READ STATUS ORX 
WRONG DIRECTION iX : — 



0062*500 t 0277*3 
00629600 T 0280*3 
00629700 T 0280*3 



END ELSE 

C.KPB** 

CO MMENT 



PCO)iX 

CHECK FQH TYPF OF RFAD STATMFNlJ* 



00629800 T 028013 
00629900 T 02631 1 
00 6 30000 T 02 8 / 1 tO 



CT* 



ACT*ABS(JbNKl*ACT);X 
IF ARRY * THEN GO 

IF FRHT * Q THF> GO 



to ctb; comment<list part>nqt 
tq cta,{ co mm ent <li st pa rt >« 



£ME 



empty; 

TYtt 



00630100 T 0284*0 
00630200 T 02«5t3 
00630300 T 0287*1 



<FQRMAT PART> iS NQTiX 
COMMENT BOTH <LlST PaRT> * <FORMAT PaRT> WAS EMPTYH 

PXUi C OM ME NT Set F LAG * £ X X T J % 



00630400 T 0288*3 
00630500 T 0288*3 
0Q6306QQ T 0288 * 3 



13 
14 
l>5 



CTA* 



reaos; comment release buffer;* 

LSTRN % *U C0MMENT<LIST PART> s EMPTY** 

GQ TQ FMQUT; COMMENT REAR IS ^FQRMAT>f^FMPTY>i* 



00630700 T 0289*0 
00630800 T 0290*0 

006309 T 0291*0 



16 
17 
18 



CTB* 



IF NOT PCaRRY »TOP*XCH#DEL> THEN GO TQ CTC/X 

COMMENT IF LIST IS NOT A DESCRIPTOR WE HAytX 
A SPACF STATEMENT AND ACT 1 * O F* 



006 31000 T 0291*2 
006 3l 100 T 0293*1 
00631200 T 0293U 



19 
20 
21 



22 
23 
24 

28 
27 
28 
29 



RECORDS TO SPACE;* 
IF FIB[4J.C8«4J«4 THENX 
BEGIN IF F.IBC41. [27133*1 THFM* 



00631300 T 
00631400 T 
0063150 t 



P (M.KS* FIBC 7.3 +.JU.NKiM'FJLX#l# SELECT) J X 
END. ELSE* 
WHI L E (ACT + AC T- p >o p Q* , 



0293)1 
0293*i 

0?94?3 



08631600 T 
00631700 T 
00631800 T 



0296* 3 
0299*2 
0299*2 



BEGIN ckpb; pulIShcmkS,dkaor#o,filx#algQlR£ad); 

LSTRN ♦ TLSTRNiX 

PULTSHtXTTWX , 



end; 



00631900 T 0302*2 
00632000 T 0305*3 
00632100 T 0306*2 



90 
31 " 
32 



CTC I 



IF NOT PC FRMT#TOP) THEN GO TO FMOUTA; COMMENT WE HAVEX 

<FORMAT>*<LIST>;X 
IF P X THEN GQ TO AEXPL1 COMMENT wF HAVF AExP . A f » ] / X 



00632200 T 0306*3 
00632300 T 0308*0 
0063240Q t 0308*n 



34 

35 
36 

37* 

38 

39 

40 

41 

42 



49 
50 



52 



55 

56 



IF Fl*l THEN GO TO FREFLD EtSE XXX / TYPE FREE'FlELo REAOt 
IF FI»2 THEN GO FMOuTMl ELSE XXX // TYPE FREE-FIELD READ* 
IF ABRY j Q THEN GO TO AFXPLIX 



COMMENT *E HAVE *>LlST;j* 
ASLSTJ P(0> ,LSTRN*SND); COMMENT LSTRN «- , S * I 
BSt P(DUP*[LISXJ); COMMENT S a ADDRESS OF LIST ITEM 



00632500 
00632510 
00 632600 



0309*0 
0309*3 
0311 10 



o;x 



00632700 
00632800 
00632900 



S-l * INDEX FOR BUFF; 
IF LSTRN < THEN GO TO BR; COMMENT LIST IS EXAUSTEd;X 
IP PCXCH,8UFF»XCH*STQ*1>ADDjDUP) < BSIZE 



0313*0 
0313*0 
0313 * 3 



Br: 



p(i); 



THEN GO TO BS; COMMENT BUFFER iTgM TQ LIST, IF I+1X 

IS < BUFFER SIZE THEN GET NEXT WORO;X 

COMMENT SET FLAG s EXIT;X 



00633000 
00633200 

0Q63330Q 



READS; COMMENT RELEASE BUFFERS 
COMMENT AEXP#A[*3U 
AFXPH IF P(ARRY.C6*l03*DUP) S AEXP THEN GO TO ISa;X 



00633400 
00633500 
OOP 3 36 00 



0314*1 
0314*1 

031 5*? 



IF AEXP < THEN ARRY[-l3<-0; 

P(Del#aexp);x 

COMMENT STACK IS SMALLEST 



00633700 
00633800 
0Q6339QQ 



317*1 
031811 
0318*1 



0318*2 

0320*0 
0320*0 



ISA? 



IF PCDUP) 5 BSIZE THEN GO TO ISB;X 
P(OEL#BSIZE)JX 

C OMME NT STACK NOW HAS SMALLFST 



OF ARRAY SIZE OR AEXP;* 



00634000 
00634100 
QQ6342Q0 



0322*1 

0325*0 

i" w *i» fc" 



OF BUFFER SIZF-AFXPj 



ISB* 



array size;* 
bsize .* p;x 

COMMENT RST2E 3 t OF rtnRQS TO TRANSFF . RJX 



00634300 
00634400 
0Q6345Q0 



STREAMCP4 ♦ *FILX*P3 ♦ 8SlZE*P2 
PI ♦ tARRY[033);X 

BEliXliX _ 



«■ 8SIZE DIV 64»X 



00634600 
00634 700 
00634800 



032512 

032613 
327*1 



00634900 
00635000 
006 35100 



327*1 
32 7 * 1 
32 7*3 



0327*3 
0329*2 
3 30*1 



56 ' 

h 



• • 



N 

2 
3 

4 
5 
6 
7 



si«-p4;x 
P2<os«-32 wds;x 

051-32 hDSm 



00635200 T 
00635300 T 
00635400 T 



FRRflRt 



end;x 

PtjH 



os* P3 *ds;x 

COMMENT ON ERROR* RFLFASE BuFFER AND EXITjX 



0330 
0330 
-0-314 



00635500 T 
00635600 T 
00635700 T 



0331 
0332 

-am 



# 



COMMENT 
FMQ U TA» PC 



NEADSJX 
HE.. HAVE FCRMAT'llST 

i_J 



OR FORMAT*<EMPTY>;X 



m- 



00635800 T 0333 
00635900 T 0334 
00636000 T 334 



FMOUTMU LSTRN*0 ; 
FMOUTI P(0#0#0*0»0#0#0#0»0#0»0i>0>0#0»0#0>0#0#0) i 
COMMENT 19 GOOSE EGGS FflR YE 0| Of STACK i 



00636100 T 0334 
O0636200 T 0335 
Q06361 0Q T 339 



10 

11 



aoors vusx;* 

SAVEBUF FtBUFF«-PCO* t BUFF ] >Q, I NX ) 
CSI2E t BSUE x b;» 



; 



00636400 T 0339 
00636500 T 0340 
00636600 T 04-4-3 



13 
14 
15 



IF FRM?»0 then XXX s 
BEGIN COOE + lU 
GO TO PHRAS END 



PECIAL // TYPE OF FREE-FlELD REAO. 
UFREEFIELO»tl FAW«.l&lt 27*471 j3 1 
£t&£ 



00636610 T 0343 
00636620 T 0344 
006 366 30 T 0349 



16 
17 
18 



S2* 

_S_LL 



GO TO ...... J* 

PC DEL J ; 
F I + FI + W 



CO MME N T LOOK AT NFXT E DI TING PHR AsEf X . 



00636700 T 0350 
00636710 T 0350 
0Q636 fl Q t 350 



19 

20 



Si 



CODE ♦ 04(FAW * FHMT 
IF FA* > THEN GU T 
GO TO PtCODDiX 



CFI3)[44«2I43;X 

PHRASi COMMENT PHRA5 IF SaOJX 



00636900 T 035l 
00637000 t 0354 
QQ6371QQ T 0355 



22 

23 

24 

2S 

26 

27 

28 

29 

90 

31 " 

32 

a 

34 
35 
36 
37 " 
38 
39 
40 
41 
42 
•3 
44 
45 
46 
♦7 
18 
(9 
SO 
51 
52 
53 
54 
55 
56 
i7 



GO TO ktpar;x 
go to strng;* 

GO TQ LFPARiX 



00637200 T 0356 
00637300 T 0356 
00637400 T — 0357 



GO TO i>LASHiX 

go to scale;x 
comment left parenthesise 



OO6375OO T 0|57 
00637600 T- 0358 
00 63^70 T Q 39 a 



LfPaR: 



o 



IF FA*«£ 
BEGIN IF 

M. 



12M3 

PCLI 
GIN P 



THEN 
STELEME 



NT*DUP)<0 THEN 
n »FAKtC 8a »>bl*FI ENp; 



00637600 . T 0358 
08637900 j 0359 
0Q638Q00 T 03 6J 



END ELSE 

GO TO Si 

COMMENT RIGHT 



PCFAW, C36M0]}* 
}% 

PARENTHESIS;* 



00636100 T 0364 
00638200 T 0365 
00638300 T 0366 



RTPARj 



IF PCl'S 

THEN BE 

P 



UB'DU 

GIN 

CDE i? 



P) =0* 
COMMENT 

i CUM 



LFPAR REPEAT -\}% 
M £NT DELETE Q R E P EATS 



OO6384OO T O366 
00638500 T 0367 
Q0638600 T 0368 



XI. 



GO TO si; COM 
ENOJX 
FI « (FAW ANU 1 



MENT PICK UP NEXT PHRASE** 

023)1 COMMENT SFT FI BACK TO LFPARfX 



00638700 T O368 
00638800 t O368 
006*8000 T 36R 



COMME 
SCALE1 



GO TO *1 
NT SCAL 
ScFTK*lF 



i% 

E FAC 
FAW. 



tor;x 

t!2'lU 



THEN LISTELEMENT 



00639000 T 0370 
00639100 T 0371 
006392Q0 T 0371 






GO 
COMMENT 



to snx~ 

STRINGS;X 



ELSE o&FAwc38i38«io]4FAwtii hut' 



OO63V3OO T 0373 
00639400 T 0377 
00639500 T 0377 



. « 

46 
47 I 

4C 

49 

50 I 

51 

52 

63 I 

54 

55 

56 I 

57, 



STRNG« IF (CHr «• (W ♦■ paw. 

T^EN GO TO ERRO 



[6>6] ) + CHR)>CSIZ£X 

Hi COMMENT BUFFER OVERFlOwU 

COMMENT CHR » CHR ♦ tiiX 



00639600 T 03/7 
00639700 T 0380 
0Q6 39 fl0Q T 9381 



ST«EAM<P2 *■ 
BEGINX 

St*pq;x 



W#pl * 0*P0 ♦ BUFF)iX 



00639900 T 0381 
00640000 T 0382 
00640 10 T 03 82 



di«-loc pi;x 

0I«-0I-P2>X 
05 + P 2 CHH/X 



00640200 T 0382 
OO64O3OO T 0383 
00 6 404 0Q T 38 3 



ENOJX 

♦ r.n 



Pl*SIiX 



00640500 T 0384 
00640600 T 0384 
00640700 T 0384 



m • 



ft 



FRMTIFI] * P(XCh)*FAWtllllU3i COMMENT DIAL S,CODE «, W 

STRING OBTAINED FROM BUFFER AND PUT RESULT* 
B A CK Tis TU FORMAT ARRAY** 



TO 



00640800 
00640900 
00641QQO 



T 0385 

T 0387 

-J Q3fl? 



go to sm 

COMMENT SLASHI* 
SLASHt FQLISH((LSTRN<0) 



AND FAH)J* 



00641100 
00641200 
0Q6&H00 



0387 
0387 
0387 



reads; comment kelease buffer;* 
chR *-q;x 

di lFF t P( QyrRLFF,T»0>lNX)llt 



00641400 
00641500 
00641600 



0389 
0390 
0390 



CSI2E «■ 8SJ2E : 
GO TO Si;x 
COMMENT BREAK APART 



Bit 
F ORMAT WQRDJ» 



00641700 
00641800 
00641000 



0392 
0393 
0396 



PHRASi IF FAW.tl2l.lJ. THEN PtLlST.ELE.MENT.) EL S E PCFAW . I 38 * 10 ] ); 

IF C0UE=13 ThEN CGDE«-IF ( C0DE«-L I STELEMENT )«"0« THEN ElSE 
I F CQ DE VT" TH E N 1 EL S E 



00642000 
00642100 
00642150 



394 
0397 
Q401 



< 



1 

3 
4 

M 

6 
7 

M 

9 
10 

"I 

12 

13 

»i 

15 

16 

»{ 

18 

19 

20 { 

21 

22 

23 ( 

24 

2B 

»i 

27 

26 

29 ( 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 i 

42 

43 

44 4 

45 

46 

47 < 

48 

43 

50< 

51 

52 

53 i 

54 

55 



13 

14 
15 



16 
17 
18 
19 



20 
21 
22 
23 
24 
25 
26 

28 
29 



IF CQOE«"X" THEN 2 ELSE 
IF CQDE*' , A" THEN 4 ELSE 
IF CQDE«»I W THEN 6 ELSE 



IF .C.U.DE-"F" THEN 
IF CODE«"E w THEN 
jf CODr*"U" ThfN 



8 ELSE 
10 ELSE 
11 ELSE 



IF CQOE*"0" THEN 
IF CODE**^" THEN 
IF CQ0£* w R w THEN 



12 ELSE 

14 ELSE 

15 ELSF \hi 



C.QDEl*CQDE»l ; 

IF CTYR«.C0DE 3 11) AND 

rt + IF FAW. [13113 THEN 



FAW. [31113 THEN 
LISTELEMENT-CODE 



GO Tq FMTERR ELSE 
1 EL SE 



00642200 T 0404 
00642300 T 0406 
006tt2fl00 T Q4QB 



00642500 I 0410 
00642600 T 0412 
00642,610 T 0-4-U 



00642700 T 0416 
00642800 T 0418 
08642900 T Oj4£0 



00642905 T 0423 
00642910 T 0424 

Q0643q q o t 0426 



30 

31 " 



IF TYP AND FAW f C27 
ELSE FAk.[6:6] I 
D«-IF FA W.[1 4» l 3 TH E N 



13 THEN 64 
LISTFLFMFNT 



ELSE IF TYP THEN FAW, 
ELSE C0UFAW,C2Q14J) + 
IF P(I)UP)^Q THEN (iU TQ §2 



[32«63 

(D2«-FAW, 116143); 



08643010 T 0431 
00643020 T 0432 
00643100 T 0JL34. 



00643110 T 0436 
00643200 T 0438 
0064:1300 T QulU-2- 



32 
33 
34 
35 
36 



IF W<0 THEN IF 

ELSE IF 

IF D<0 THEN IF 



CQOEl AND W-Ci) THEN 
N0T<C0DE"0 OR COOE"^) 
N0TU00E*15 AND C0DEX8 



GO S2 
THEN GO TQ FMTERRj 
AND CODEMO) 



00643320 T 0444 
00643330 T 0446 

00643340 T OJULS. 



THEN 3U TO FMTERR i 

IF W=0 THEN IF CUUE*2 AND NOT CUDE1 

IF TYP THEN dl-filN IF n>63 THFN 0*63 



THEN GO S2 ; 



0064 3350 J 045 3 
00643360 J 0454 

Q0643370 T 0457 



37 

38 
39 
40 
41 
42 
•3 



JJL 



IF 
ELS 
FAH.f 13<?3*0 



N0T(FAWt[27llJ OR W<64 
E W*W,£A2»63 i GO TO 
OR FAW. [2143*13 THFN 



) THEN GO TO FMTERR 
INLOOP END ELSE 



BEGIN GO TO PCI 
E 

Gn cj ao 



F. CUDE»15 THEN 8 ELSE 
LSE CODE) ; 

x; go a; go i; go r; g 



if cooEi then 2 
o e; go 0; go l j 



00643372 T 0460 
00643376 T 0«62 
00643400 T DJlAA 



00643500 T 0467 
00643590 T 0470 
00643600 T 0472 



45 

46 
»7 
•8 
49 
50 
51 
52 

53 

54 
55 
56 

5_ 



LI 
JLL 



GO TO FMT 
WUIF WS5 

irtn-w niv 



ERR i 

THEN W ELSE 
hill W»SKTP«.W 



5; GO TO 
C4P163I 



11 



AJ 

XL 



GO TO ZW2. 
W.1*IF WS6 

SK IP» fr-rt l, 



THEN W 

a'q TQ 



ELSE 



6; 



00643700 T 0476 
00643800 T 0476 
00643900 T 0-480. 



00644000 T 0483 
00644100 T 0483 
00644200 T QiLtt6. 



It 



W1*IF WS8 
SKIPMF W 
H2»»"SKlP 



THEN « ELSE 8* 
$16 THEN ELSE 
-Wll- GO TO ZOJ 



W«16J 



00644300 T O4B8 
00644400 T 0490 
006 4 4*00 T QASJL 



EJ D«-CFAW.[2*4)*13 OR FAW , [ 14 I 1 J ) + Q) 
D2*D*0l*IF 0S8 THEN D ELSE 8* 

s k ipmf c n-u )S 5 T hen o else w-q-5; 



00644600 T 049$ 
00*44700 T 0499 
00644800 T ■ 0503 



wi«.w2*o; GO TO SWTi 
Rt 02*D"»DUIF 058 THEN ELSE 81 
SK IP+I F , tft -Q ?S 17 THFN ELSE H«n-I7j 



00644900 T 
00645000 T 
0O64S1Q0 t 



0507 
0509 



OS 13lfl 



56 1 
57, 



• • 



>r 



«1«-IF (W-0)S8 THEN 
>N2*lF U-D-SKIP)S9 
QQ TQ SrtT / 



W-O-l ELSE 8; 

THEN ELSE K-D-SKIP-9; 



ci o* w*e; wi«-skip*o; 

ZW2S W2*o; 



5WT.I WT«-V\1 + W2; 

END EL.Se 

BEGIN JWT4-tWl»FAW.[2 6»q])*fWg4.FAW.C24lfl3); 



IlsiLOQPl 



SKIP*fAH.C32»63; 

end; 

IF CODE S 2 THEN GO To Fl_nW;X 



FLDWt 



IF lsthnjo then 

ELSE UALLODNE ; 

IF C0DE1 THEN BEGIN 



IF 



IF CODE*n THEN GO TO UTYPE EL.bE GO Fl,Ow 

buff+savebuff; chr»w; go xtype eno 






17 
18 
19 



JKP* 



(CHR*W*CH«)>CSUE 

THEN GO TO ERROR* COMMENT BUFFER EXAuSTEDiX 
COMMENT SELECT EQrTINfi PhRaSf;X 



L 



IF CODE = 15 THEN GO TO RTYPEIX 

IF CODE THEN GO TO FMTERR i 

GO TO P(CQPE?;* 



22 
23 
24 
26 
26 
27 



GO 
GO 

_GJL 



TO 

TO 



dtype; 
xtype; 
alfa; 



COMMENT 
COMMENT 
C O MM EN T 



CODE 
CODE 



GO 

GQ 
Ji£L 



TO 
TO 



l type; 
ftype; 

etypf; 



*0i% 
»x;x 

»AJ* 



GO 

GO 



TO 
TO 



COMMENT 
COMMENT 
COMMENT 



CODE 
CODE 
CO DE 



F tu TERR i 



otype; 

t-OGI t 



6 'in 

a *f;x 

iq 3 e;x 



COMMENT 
COMMENT 



CODE 

CODE 



i2*o;x 
14»l;x 



E 

3 

(J 
o 



31 
32 
33 



UERR» IF FILX.ueub3>l THEN 

BEGIN XXI NOT ARRAYROWBUFFf SO TRY PAR L8L 
PCFTLXCNfU 31?; FlUENflT 31 *F Tl„ X [NQT <|3»0 



BRANCH. 

J 



34 
35 



P(MKS»9»JUNK) 
END ; 
HM±QJ TFN«.prftFMLin/rrx> SrR^iQffl^Biinl 



36 

37' 



W2*C(W1*FIBC7J+1}>9)+CW1>99)+(W1>999)+1 

IF NOT UTYP THEN 
BEGIN 



STREAM(P2*W2*Pl*Wl#TEN) i 

BEGIN DS*HLIT W »FMT ERR, REC» M ; S1*LUC 
PS»P2 DEC; OS*10LTT"> NO LBL1»» I 



pi ; 



41 
42 



ElSg 



END 



END 



BEGIN ; 

STrEaM<P9«-W2>P6«-{CHR>9) + <CHR>99)*1#P7*UEXP#UH'CHR# 
Wl>P6»D«-yo > P5»0/Q»P4»(D>9)»l»p3>w»UW > P2»»IXQ. 



47 



49 
so 



52 
S3 



Pl«.(W>9) + i#P0«-CHR«-UFREEFlELD'TEN) ; 
BEGIN D5«-2LIT M -U M ; P2CSI4.LQC P3; DS*P1 DEC) ; 

p 5 CoS«.nT" t «; SI4-LQC P6; ps^p^ DEr);potni«.pi*o; 



05*54.1 T" £«&#**' 
OS^SLIT^'CHR**; 
0S*5LIT"«C0L»»J 



; 



54 



IF 



DS + P9 
END ; 
CHR THEN 



DEC 



SI*L0C P7; DScOEC 

si«.si*/; 0S«>CHR t 

DS»P8 DEC; DS*3HT",Ra" 



55 

56 



DS«.9LIT ,, #N0 LBLi*" > 
8TREAMCTEN); DS«- 7LI T»-FHEFLD« ; 



; 

vPcpfENCOHrC33H5 3#3«*COM) 
COMMENT L PHRASEiX 



; 



006/45200 
00645300 
00605400 



00645500 
00645600 
0064*1700 



051711 
0521 » 2 
Q5P613 



00645800 
00645900 
006460 00 



0527H 
052911 
5 3 10 



00646J00 
08646200 
00646300 



0531 » 3 
0533*0 
9533*0 



0536*3 
0538<0 
0*3«*rt 



OO6464OO 
00646500 
0064flflQQ 



00646700 
00846800 
006^6900 



05 391 1 
05421 1 

050 , 2 f l 



0064 7000 
00647020 
Q06 < .7 1 QQ 



0545*0 
054611 
0S47t t 



00647200 
00647300 
QQ647400 



0547*1 
0548*2 
05A9».2- 



00647500 
00607600 
006 4 7700 



0550*0 
0550*2 
Q55l?0 



00647800 
00647900 
006 4 7903 



0551*2 
0552*0 
05 5 2» 2- 



00647906 
00647909 

006 79 12 



055310 
0553*2 
05S4*0 



0064,7915 
00647918 



0554*0 
0555*1 
0555*3 



00647 9 20 
00647927 
00647930 



0560 1 1 
0561*0 
0S6t tn 



006479 33 
00647936 
00607039 



T- 

T 



0564U 
0569*1 
Q570*l 



■T 
T 



00647902 
00607905 
00607908 



0570*3 
0572»1 
057 1 g 



00647951 
00647950 
00647q57 



0576*2 
0576*3 
0576M 



00607960 
00607963 
00607966 



057613 
0577*1 
0580*3 



00647969 
00647972 
00647975 



0586* 1 
0589*2 
05^1 »? 



00607978 
00647981 
00607980 



0594*2 
0596*0 
0597*3 



0599*3 
0601*3 

0602*0 



00647987 T 
00647990 T 
0Q6460O0 f;r 



0605*1 
0605*1 
0606*3 



T* 



9 

10 
iii 

12 

13 



18 



20 I 



24 

25 
26 I 
27 
28 
29 i 
30 



32' 

33 

34 

35 I 

36 

37 



40 



43 



52 

53 ' 



e 



56 ' 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37' 

38 

39 

40 

41 

42 



45 
46 
47 
48 



49 
SO 
51 
52 
53 
34 



35 

56 



UCGII 



STREAM(P3 * Ml, P2 * BUFFJPl * SKIP);* 
BEGIN* 

Sl*P?r* 



SI*SI4PU 

di*lqc pi;* 
ds»6 lit "true 



COMMENT SKIP ANY LEADING BLANKS; 
»i COMMENT PUT COMPaRF JH till 



00648100 
00648200 
00646300 



00646400 
00648500 
0Q6 fl8 6QQ 



0606'3 
0608* 1 
060811 



060812 

060910 
Q6Q911 



di*di-6;» 

IF P3 SC H 

then an 



LAt TALLY <- 1 * 

GO TO LCiX 
JILJ Pi t! QC PI It 



oc* 

T(l BL 



COMMENT IF SAME#P3*i;a! 



00648700 
00648800 

ooftflHcnn 



0610*1 
0610*2 
06U8Q 



OS* 6 LIT ' 

oi*o.i-6.;* 

ST«-Sr-P3/% 



TRUE "; COMMENT PUT COMPARE IN PI;* 



00649000 
00649100 
QQ649a00 



-ULL 



IF P3 SC*DC* 
THEN TALLY*i; 
PI * TAI LYI* 



COMMENT IF S A M£# P3-JU 



jaD. 



P..2. 

end;* 

to cqma;* 



si;* 



COMMENT 
OTYPE: 



D phrase;* 

STREAMCP2 
rtEfiTN* 



♦ 0IP1 ♦ BUFF);* 



si*pi;« 
Sl*SI+8i* 

e?*^ i »* 



eno;% 
buFF * p;* 
up to cqmm;* 



Cui"M£%T u phrase;* 
CTYPE: 
STR.FAH<P2»0« Pl*RuFF )* * r.HF.f.K FOR FLAG p, [1 



BEGIN 



SI «• Pi; 

IF SB THEN TALLY 



-IX 



end; 

I F P 



P2 «• TALLY; 



BEGIN * DATA HAS FLAG BIT 

COMMENT IF F-FlELO » OR R THEN LIST ITEM IS 
SIMPLE VARIABLE TN STACK OR PRTJ 



IF CJUNKl * CADDRS],C18I153) * THEN GO FLAGBIT; 
IF P(10#LDD).tl8ll53 * JUNK1 THEN GO FLAQBlT; 



end; 



COMMENT EITHER. NQ FLAG BIT OR OATA GOES Tq ARRAY; 
ST?EAMCP3*0» P2*BUFF» P1*CA00RS3); 

BEGIN ; ; 



SI 
OS 
P3 



P2; * 

a chr; 
An 



DI SET FROM LAM PARAMETER 



end; 

buff ♦ p; 
go to cqmm; 



FLAUBIT* 



COMMENT FLAGGED DATA GOING TO STACK OR PHj CAN CAUSE 
"BAD" PROBLEMS. FORCE FLAG BIT INTERRUPT HERE; 



JUNKl ♦ CJUNKl]; 

P(JUNKJ); 

COMMENT CONTROL CANNOT REACH THl&.POtMTJ 



00649300 
00649400 
00649500 



0611*2 
0611»3 
0612*0 



0612*1 
Q613S1 
06 13 *2 



00649600 
00649 700 
0Q6/1 9800 



061410 
0614*2 
0615*0 



0064990C 
00650000 
OOftSQlOO 



00650200 

00650300 
00650/(00 



06 15 » 1 
•0615*2 
615*3 



00650500 
00650600 
00650700 



0616* 1 
0616M 
0617»3 



00 6 50 §00 

00650900 
QilASXMLO 



06 17 J 2 
0617*3 

fl aist o 



0618M 

0618*2 
Oft 1910 



00651100 
0065120C 
00651210 



0619*2 
0619*2 
0619*2 



00651220 
00651230 
006512^0 



00651250 
00651300 
00651310 



0620*3 
0620*3 
0621 *Q 



00651320 
00651330 
00651340 



0621*3 
0622*0 
0622?! 



00651350 
0065 14.00 

0065U10 



062211 
0622*3 
OfegJH 



00651420 
00651430 
Q Q 6 514 40 



0622*3 
0625*1 
0627*1 



00651450 
00651500 
00651510 



062711 
062711 
62 6*3 



00451520 
00651530 
00651340 



0628*3 
0629*0 

11 iXiK4f~£>n»iil> 



00651550 T 
00651600 T 
00651610 T 



062912 
062913 
06 30 M 



00651620 T 
00651630 T 
Q Q 6 5164Q T 



0630«3 
0630*3 

0630*3 



063013 
063l»2 



JJ 



• • 



n 

2 
3 
4 
5 
6 



9 
10 

► 11 

12 

13 
| 14 

16 

16 
I 17 

18 

19* 
i 20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 



33 

34 

, 36 

36 

37 ~ 

38 

39 

40 

41 

42 



COMMENT U PHRASE;* 
UTYPEJ J F .°? C k SIZE THLN UAL LOONE ; %%% EXIT IF MIN FLO" WD TH>BbFF5* 

W*IF W«0 THEN TEN1603 ELSE IF W>CSIZE THEN 
U8UILD*UCHCNT*0 ; 
PQ »CH UNTIL tiFflH QR nH*" « * iii spaiu my T t. 



C8IZE ELSE W+i; 
CST nR F.n.n, 



USChCNT«-UBUILC«-1 > 

IF UDtLlMCHK ThEN GO TO UL5 ; UBUFF«-UH ; 

UM,0CAT£n»UNUM»lJVAL4.LnEC«.i l E> t P »Oj LL&Gj^jtL LJJj bJLS iilj j 

IF UHa«X« THEN %%% WE MAY HAVE AN OCTAL NUMJ ERROR rXlT IF 
BtfilN . %%% GTR 3777777777777777 OR HAS DIGIT GTR 7 
UCHf SfiN»SfiM EQV (NOT Ur.PTSr.Ni) i %X%hSm±U&Sxh+il&£l&&N 



UNUM«-Uh<8 ; 
.WHILE (UaUIL0*-UBUILD + n<l7 AND UH<8 (jQ 

BFfiTN I I VA I » i .H kiivai r 3i6!<i ? i: urn ^n s 

IK UBUILD*17 AND UH<$ AND (NOT UVAL. [3*133 THEN 
BEGIN XXX WE NOW BUILD 16-TH OCTAL DIGIT. 
UVA1 »imiUVAt UAALA All '<r M i 



END > 
GO TO UENDNUM 
l-ND j 



UNUM*-(JH<10 ; 
WHILE UH<10 DC 
TF tlHg"." THEM 



BEGIN LVaL*10xUVaL*UH; UGH END 



BLGIN 

uCh; 
WHILE 



UNUM«-UNUM 

iH<in i, u 



CR UH<10 



END i 



BEGIN U8UILD*UBUILD+1; UDEC«-10x U DEC + uH; LC* ENDi" 



IF UHs w »h QH tih ,w E f. TkFhi 



BLGIN UBglLD<--UBulLD; UCH> 
IF NOT Ul\UM THEN UVALM ) 
IF UH<1Q THFN 



UEXP3GN4-UGETSGN 



BEGIN UNUM*-i; UBUlLO*--UBUILD ; 

DO BEGIN UE-XP*10XUEXP*UH; UCH EnD UNTIL UH>9 

END ; 



LpNLNUMl If 



end ; 
unum then 

dEGU 



XXX 

JuLL. 



TH£ CST HAS ENOUGH CHA*ACTE R S TO UNaMBIG" 
LUuS |, Y APPEAH AS A M j MRfR . 



IF UBUILOSO THEN UG00FEDC5) # 

UVAL*UVAL+LDtt/TENCUBUlLO-n J 

IF uEXPXq THEN UVAL»F(HVAL*TEN[U£XP3*IF 



PC/) ELSE P(xj) , 

PCIF SGN then -uval else 

OLb: UCnECKlT ; 



UEXPSGN thfn 



UVAL#CADORSJ»STO) 



END 
U8UIL0*G 
IF UH* Www 



THEN 



IF UOEllMCHK THEN UBuFF«-uBuFF . £ 1 2 * 30 ] ELSE GO tOUL3 
ELSE BEGIN UBlFF*UScH C NT«-0; U0STRN6*UeXP*i; UL3* UCH EN n ; 
*F NOTCuDEC«-USDELlMCH K) AND u'SCHCNT<6 THEN 



; 



BEGIN UL4* UBUFFiT; GO TO UL3 END 
IF (UVAL*0)*USCHCNT THEN GO TO UL6 ; 
DO IF (UVAL»"x"gUV*H24*30»l83)»UBUFF THEN GO TO UL6 

UNTIL UVAL. [24*13 i ' ~~~ ~ 

PCUBUFF*CADDRS]>STO} j 
_UL6J__IF UDEC THEN GO TO UL5J IF LSTrN>0 THEN 



IF LSTRN<0 THEN 

lEQINOO UCH UNTIL USDELIMCHK; 
USCHCNT*UBUFF»OJ GO iQ UL4 i 



ADDRS*LISX; 



GO TQ UU5 END J 



0065171b 
00651720 
0065172*1 



00651730 

00651735 
Onast-yain 



00651745 
00651750 
PJ3A54-Z5J; 



00651760 

00651765 
0n6fit77f) 



T 

T 

T 
T 

-*- 

T 
T 
4_ 



0631*3 
0631 13 

0631*0 



063613 
0641*2 
0*&*i? 
0647*1 
0648*2 
0651*2 



00651775 
006 51780 
Qn6'i17fi t i 



06S8*1 

0659*0 
06501? 



00651790 
00651795 
00651800 



0663*0 
0664* 1 
Q^ft7?2 



00651805 
00651810 
0065 1 81 5 



0672*0 
0675*0 
0675*2 



00651820 
06651825 
00651 6*0 



0678*0 
0678*0 
0678*-g- 



00651835 
00651840 
"0651845 



0678*2 
0679*3 
0684*g 



00651850 

00651855 
onasiftAQ 



0685* 1 
008513 
6 88*3 



0690*0 

0694*0 
069a*9 



00651865 
00651870 

QJKtaJLaZS 



00651880 
00651885 
006S1H9Q 



06*6*1 

070i*i 

Q70TP 



006518^5 
00651900 

00651905 



0703*3 

0706 ffl 
0710*1 



00651910 
00651915 

0Q651920 



0710M 
0710*1 

Q711*l, 



00651925 T 
0065lg3o j 

00651935 T 



0711*3 
0714*1 
071<SH 



00651940 
00651945 
00651950 



0719*2 
0721 «2 
0724*0 



00651955 
00651960 
00651965 



T 

T 

T 
T 

T 



0750*3 
0750*3 
0751*? 



00651970 
00651975 

00651980 



0752*1 

0755*3 
0761*0 



00651985 
00651990 
00651995 



0763*3 
0165*2 
0767*1 



00652000 
00652005 
00652010 



0769*2 
0771*1 
0772*0 



077fl 1 1 

0775*3 
0779*0 



I 



< 



1 
2 
3 

4 
5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17' 

18 

19 

20 I 
21 

22 

23 I 

24 

26 

26 ( 

27 

28 

29 ( 

30 

31 

32 % 

33 
34 

»i 

36 

37 

M ' 

39 

40 

41 

42 

43 

44 

4S 

46 

47 

48 



m 



49 

so : 

51 
52 



53 ' 



55 
66 
5? 



• • 



N 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 



COMMENT A PhRASE / 
ALFAJ STREAMCP3«-Wl>P2«-BUFFiPl«-SKIP);* 

, , IjfcGIN*. _ : : — : 



0065201b T 0780*3 
00652100 T 0780»3 

Q Q 6 52 2C I T 0763« 1 



16 
17 
18 
19 



SI+P2JX 
Sl*SI+Pil 
Dl»Lnc P2* 



COMMENT SKIP EVERYTHING BUT LAST bi\ 

X ; 



00652300 T 
00652400 T 
00652500 T 



0782*1 
078212 
076310 



DI«-DI-P3U 
DS<-P3 chr;; 
P2 + S1JX- - 



00652600 T 
00652/00 T 



07831 1 

07831.3 

0652 800 T 07 8*1 *1 



CQMMF N T X 



end;x 

(iO TO C0MA1X 
PHBASF AND T 



PHRASE 



XTYPEI IF CCHR«-CHH + W1X64)>C 

THEN GO TO ERROR* 
STREAMCP3+BUF 



SlZE-CODEl 
COMMENT BUFFER EXAUSTEDJ* 



00652900 T 
00653000 T 
00653100 



00653200 
00653300 
00653400 



BEGINX 

Sl*P3;X 
ST»ST+PUX 



00653500 
00653600 
00653700 



P2(SI4-S1 + 32;X 

si*si+32);x 
P3».suiai 



00653800 
00653900 
00654000 



0784*2 
078413 
0785*1 



785*1 
07.87*1 
07flBt? 



0790*0 
0790*0 
0790*1 



0790*3 
0791 »2 
0792*0 



20 
21 
22 
23 



24 

25 

28 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



end;x 

BUFF * Pi% 
Gfl TO COMMJX 



00654100 
00654200 
00654300 



0792*1 
0792*2 
0793*0 



COMMENT I.. PHRASEiX 

Itypej pcO); comme 
ftn» comment first h 



NT RLIT ■ FROM I (SEE FOOT)/* 

L GET SIGN AND COUNT LEADING RLaNKS.X 



00654400 
00654500 

00654c l QQ 



0793*2 
079312 
079 3* 3 



STREAM(X 
P4»WT# 



COMMENT IN«FIEUD W IOTH#QUT»LeADING* 
BLANK S ** 



OO6547OO 
00654800 
00654900 



0793*3 
0794*0 
0»9fl«l 



P3*0 > 
P2*BUFF* 

Pl«-SKlP?iC 



COMMENT PLACE TO RETURN SIGN** 
COMMENT IN AND QUT»BUFFER ADDRESS;* 
QMMENT § OF L EA DING CHARACTE R S TO* 



00655000 
00655100 

00655200 



0794*1 
0794*2 

0.7,95*0 



BEGINX 
S I-P2J* 



ignore;* 



00655300 

00655400 
00655SQ0 



0795*2 
0795*2 
079 5* 2 



si«-si+pi;x 

P4CIF SC^' 
JUMP REAL 



" THENX 

to ntblk;* 



00655600 
00655700 

00655fl00 



.079.5*3 
0796*1 
0797*1 



si*si*i;x 

tallt*-tally + 1>;x 

comment if we fall through loop thenx 



00655900 
00656000 
00656 10Q 



0797*3 
0798*0 
Q7 98»? 



p^*-tally;x 

GO TO I£* I 



WHOLE FIELD WAS BLANKS 



li*_ 



006 56200 
00656300 
0Q6564Q0 



0798*2 
0798*2 
Q798»3 



45 

46 

47 
48 
49 
SO 

51 



NTBLKI 



IF SC< M O n 
BEGIN CQMM 
IF SC»*»* 



THENX 

ENT SIGN IS PRESENTS 

THEN! COMMENT TO GGLE*. TRuElX 



00656500 
00656600 
Q Q6 567Q0 



0799*0 
0799*2 
0799*9 



si4-si + i; 

TALLY*TALLY+i;X 

End;x 



comment skip sign;* 



00656800 

00656900 

00 657000 



0800*0 
0800*1 
,Pfl,QQ«2 



IMPLS* 



p4*tally; 
tally*o; 
if toggle* 



COMMENT LEADING 8LANK$*"$IGN"*x 

comment indicate ♦ sign;x 



00657*00 
00657200 
0Q657300 



080012 

0800*3 
8 01* 



52 
53 

54 

55 

56 
5. 



IEXI T* 



THEN TALL 
P3«-TALLY; 
P2»SH 



y«-i; comment toggle « true if m - m ;x 
comment pass back sign;x 

COMMENT ADDRESS OF FIRST DlGlTi* 



00657400 
00657500 
QQ65760Q T 



0801 10 
0801*2 
Q6QU3 



BUFF 
SON 



ENDIX 

♦ p;x 

» ,pti 



00657700 T 
00657800 T 
006S7900 T 



0802*0 
0802*1 

O i0 3 > 3 



h 



COMMENT NOW TO CONVERT INTEGER;* 
STREAM(% 

PS> t(P(SSN»WTft>DUP))t» 



00658000 
00658100 
00658200 



0803«1 
0803*1 

nao3»2 



P4 ♦ (IF Pi 8 THEN QS 
2 ELSE P(8, - »8»XCH))*X 


OO6S83OO T 0804*2 ' 
00658«00 T 0805* 3 2 
OOftSBsOO T 0807* 1 3 


4 THEN .P5*WT-LEADINfi.BLANK8jP«t Q* 

5 ELSE P.S*.e«PA.«-HT-LEADlNG BLANKS-8U 

P3*0* COMMENT PLACE TO RETURN LOW HALFJX 


00658600 T 0807*1 4 
00658700 T 0807 J 1 5 
00658ft00 T 0807M • 


i P2*0*C0MMENT PLACE TO RETURN HIGH HALFI* 
b P1*0* PO * BUFF);* 
• BEGINS 


00658900 T 080712 7 
00659000 T 0807I3 8 
OnA^oion t OfiOftt* 9 


'° Si«.po;x 

11 0l>L0C P2;» 

" 0S«-P4 OCT; COMMENT CONVfHT HIGH HaLf;X 


00659200 T 0808' 3 10 

00659300 T 0809*0 

00659/fOO J 0A09IJ 12 


t3 OI*LOC P3JX 

» 0S»P5 OCT; COMMENT CONVERT LOW HALFU 

■• pi*si;x 


00659500 J 0809*3 13 
00659600 T 081010 14 
006*9700 T 0B10»!> 15 


'« ENO/X 

» BUFF ♦ P; COMMENT SAVE NEXT FIELD ADDRESS; 

'» PCTENa'MUL**)/ COMMENT HIGH HALF x ^0*8* 


00659800 T 0810* 3 ,6 
00659900 T 0811*0 17 
00660000 T Oflll »3 1B 


19 ♦ low half;x 
» if sgn then p(chs);» 

« IF PCXCH*DEL#XCH>D£L/XCH#DUP> THEN P( XCH# f AODRS],* ) 


00660*00 T 0812*1 19 
00660200 T 0812*1 20 
00660990 T 08131 1 21 


« ELSE IF PCXCH,DUP)S PCMAXI) THEN PC t ADDRSJ, I 5D ) 
a ELSE P(CADDRSJ»*-); 
m X ynjo 


OO66O3OO T 081610 22 
00660310 T 0820*0 23 
006^0/jpn j °8?1»P 24 


26 foutt if p then go to fau 
» go to comm;x 

" rQMMFNT F PHRASE;* 


OO66O5OO T 0821*0 25 
00660600 T 0821*3 26 
OO66O7OO T °822*1 2? 


a FTYPE* pen;* 

» go to pin; comment use itype to convert Integer part; 

■ Fa: STBEAMCP5*. D2»X 


00660800 T 0822*1 2a 
00660900 T 0823*1 29 
00661000 T 0823J3 M 


51 P4* 01#X 

32 P3» o * comment place to return low half; 

» P2* , COMMENT PLACE TO RETURN HIGH HAlFJX 


00661100 T 0824*1 31 
00661200 T 0824*2 32 
00661300 t 0824*3 33 


m pi * o«po ♦■ buff)** 

38 BEGIN* 

36 Sl*.PO i% 


00661400 T 0825*0 » 
00661500 T 0826*0 35 
00661*00 J 0fl>6»n 3 « 


37 sifsi*i; comment skip decimal .point** 

38 oi«-loc P2;x 

» os«-p« ocT; comment convert high half;x 


00661700 T 0826*1 

00661800 T 0826*2 3S 

00661900 T 0826*3 


40 di«-lqc p^»;x 

« 1 ds*p5 Oct; comment convert low half;x 

42 Pi + si;* 


00662000 T 0827*1 40 
00662100 T 0827*2 < 1 
00662200 T 0828*0 « 


43 eno;x 

44 buff * p;x 

45 PfTFNCD23 * P ♦ P)l COMMFNT HJ6H HALF x I0*n2 ♦ LOW HAlf; 


00662300 T 0828*1 43 
00662400 t 0828*2 44 
00662«i00 J 012010 « 


46 . P(C.ABS(AODRS}x TENtOJ) .♦ P); CUMMENT INSERT INTEGER PART; 

47 PcTENlO],/); COMMENT SCALE TO PROPER DECIMAL PLACE; 
w IF SGN THEN P(CHS);* 


00662600 T 0830*0 * 
00662700 T 0831*2 47 
006A3gop t 0032*1 "* 


49 P{tADDRS3#STD);X 

50 PCD£L#Q£L> t% 

61 GO TO COMMJX 


00662900 T 0833*1 49 
00663000 T 0133*3 50 
006A3|00 T 083414 5 ' 


52 COMMENT E PhRASE;* 

53 ETYPEi STREAMCP6* 0, COMMENT PLACE TO RETURN EXPONENT'* 

54 P5 ♦ Pfn-1» DUP)> COMMENT H2 IN*MANTT*SA SJGN OUT; 


00663200 T 0834*3 52 
00663300 x 0834J3 " 
00663^00 T 0R3SJ5 54 


56 P4 * (IF P S 8 THEN PC0#.D2#SND#XCH)X 
58 ^ EU8E P<8f».D2#SND#8))'X 
* , „, , v ,; JJ8MHEHT IF (D*U » e.TMCN P5« D-1*B'P4» 8X 


00683500 t 0836*2 55 

00663600 T 083812 

M4AJTW T 0640*1, V 



# • 



h 



10 

11 

12 

13 
14 

15 

l - 
16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 



37 
38 



39 
40 
41 
♦2 
43 



45 
46 
47 
18 
•9 
50 
51 
52 
53 
54 



56 

53- 



P3 * 
P2 
El. 



P(0)# 

» BUFF II 



ELSE P5« 
DX * P4. 

digit;* 



Of P4»D"1'* 

ON RETURN P4*INTEGER* 



COMMENT 
COMMENT 



PLACE 
PLACE 



TO RETURN 
TO RETURN 



LOW HALF'* 
HIGH HALF'* 



po «• skip);* 

BEGIN* 

si»p,n 



si«.sh-po;* 

po*su comment address of integer;* 

$I»SI+2i CQMMFNT SKIP TNTFr f FR ptr T TT 



oi«- loc rzi% 

DS«- P/» OCT; COMMENT 
BLLt LOC P3;* 



JVil 



CONVERT HIGH HALF;* 



DS* P5 OCT; COMMENT CONVERT LOW H A LFJX 

SI*SX*1J COMMENT SKIP "#";* 

IF SC«"- W THEN; COMMENT IF EXPONENT < G% 



5|.*Sl + j; COMMENT 
DT» LOC Pfti it 

DS* 2 oct; 
Pi* si; 



THEN TOGGLE 
SKIP EXPONENT 



♦. True;* 
sign;* 



COMMENT CONVERT EXPONENT;* 

COMMENT RETURN ADDRESS Of NEXT* 

field;* ^_— ___ 



IF TUGGLL THEN* 
BEGIN DlfOI-d;* 

ns» lit "♦";* 



eno; 
si»pcm 



COMMENT 



if toggle set 
negative;* 



EXPONENT* 



DI*LOC P4> 

ds «• oct;* 

si + si-2; comment 



e nd ; * 



if sc»"»" then 
P5*tally;» 



COMMENT CONVERT INTEGER QlGH;* 



look at sign;* 



TALLY »ui 



COMMENT ON RETURN STACK 



CONTAINS* 
BUFF* 
HIGH HALF* 



LOW HALF* 
INTEGER DIGIT* 
MANTISSA SIGN* 



tiUFF ♦• P;* 
P( T FN £P 2J x 



exponent;* 



P ♦ Pj/ CQMMFNT HIGH HALFKlO*pP*LQW H^ L pi* 



P(KCH,TENCD-l]xp+P);COMMENT SCALE INTEGER DIGIT D PLACES* 

AND ADD FRACTION PART;* 
IF P(XCH) THEN P(CHS); CQMMFNT INSERT SIGfri* 



P(XCH); COMMENT 

IF CJUNK1 * P-.CD-D) I 0* 

THEN P(TENIvUNK13^m ul^* 



EXPONENT TO TOP;* 



COMAl 



ELSE PCfENCJUNKU*/); 

go to comb;* 

BUFF * 



comment insert exponent;* 



CCMBl PCCA0DRS]#5TD); 
CCMMl IF CODE $ 2 THEN 



IF LSTP^O 
ULlSToO i 



COMMENT RESULT TO LIST;* 
GO TO COMC; COMMENT PHRASE DIDNT USE* 
ANYTHTNR FRHM LJST;i 



THEN A0ORS*IF NOT ULIST THEN LlSX 

ELSE P(.UAOORS,LOO) 



00663800 
00663900 
Qnrt64QQn 



00664100 
00664200 
00664300 



0840< 1 
0640M 
0840 f 1 



00664400 
00664500 
0066 4 60 



08401} 
084012 
084013 



00664700 
00664800 
00664900 



084111 
084113 
08 4 J>3 



Og42«0 
0«42I2 
6 421 3 



00665000 
00665100 
0Q6652QQ 



0843*0 
0843»i 

0843*3 



00665300 
00665^00 

00*65500 



00665600 
00665700 
00665800 



0844*0 
0844>2 
0844*3 



00**5900 
00666000 

00666i0Q 



0845*1 
0845*1 
0845*2 



00666200 
00666300 
00666400 



014513 
0846*0 
0846*1 



00666300 
00666600 
00666700 



0846! 1 
0846 * 2 
0846*3 



00666800 
00666900 
np667Qnf) 



084711 

0847»1 
084711 



0847*2 

0847*3 
0B48tQ 



00667t00 
00667200 
00667300 



00667400 
00667500 
00667600 



0148* 1 
0|49*0 
0849*1 



00667700 
00667800 

00667900 



0849*2 

0849*2 
0849*2 



00668000 
006681 00 
00668200 



0849*2 
0849*2 

084912 



00666300 
OO6684OO 
QQ6685Q0 



0849*2 
Q849I2 
0850*0 



0851*0 

0852*3 
085? M 



00668600 
00666700 
00666800 



00668900 
00669000 
006 69 tQQ 



0853*3 
0654*0 

i iT 1 |Jf <4-*- Jli n 



085711 
0658*3 
0859*1 



00669200 
00669300 
Q0669400 



00669500 
00669505 
Qflft<SlSlO 



085913 
0«60*1 
6 6 1 * 2 



086112 
0864*1 
0866*0 



< 



• • 



h 



COMC: IF PC(UFREEFIELD«0),-,OUP)>0 
PCOEL^X 
BO, TQ Sl*X 



THEN GO TO INLQUP ; 



COMMENT THE <REPEAT PART> OF PHRASE IS IN TOP OF STACKX 

NQWCI HGPE)« IF REPfcAT*i > THEN GO TO INI.OOP TO 
USE SAME PHRASE OVER. IF REPFTE j THEN DELETE 



00669600 
00669700 
0Qft698Q0 



086713 
0870*2 
06701 3 



00669900 
00670000 
QQ670tOO 



0873^0 
0873*0 

oamo 



THE AND GO TO SI TO PICK UP NEXT PHRASEJX 
COMMENT R EDITING PHRASER 
BJlfXi J ST.REAMCP6 »(FLG»P3^ COMMENT RETURNS FLAG AS Tq WHAT IS* 



00670200 T 
00670300 T 
00670000 T 



087310 
0873*0 

Qfl73*0 



P5 ♦ 0* 
Pft » 1m- 



in buffer;* 

COMMENT SIGNIX 
COMMENT FIFLD WIOTHIX 



00670500 T 
00670600 T 
00670700 T 



0674*0 

0874*0 
-OflXaJU 



P3 
PI 



BFQIN* 



BUFF! 

o>;x 



COMMENT BUFFER CHARACTER ADDRESS** 



00670800 T 
00670900 T 
0067 1 000 T 



0874*2 
0875*0 
0875*2 



• 



SI ♦ P3JX 
TALLY * P4U 
CQMMF N T S KIP 



LTAQlMft tti AhKSlX 



0067^00 T 
00671200 T 
0Q671300 T 



0875*2 
0875*3 
0876*2 



P4CIF SC * ..." ." THEN JUMP OUT TO .RSIfiNM 

$I*SI + UX . 

TALLY + TALLY + 63 ) JC.nMMENT TALLY-UX 



■NT 



00671400 T 
00671500 T 
0Q671600 T 



0876*2 
0878*0 
0676*1 



COMMENT FALL THRU LOOP MEANS FIELO 
TALLV*4; COMMENT SET FLAG TO 
GO TO RXlTAiX 



*AS 

4;x 



BLANK;X 



00671700 T 
08671800 t 



0878*3 
0878*3 
00671900 T — 8 79*0 



NOI* 



TALLY > TALLY 

si ♦ s 1*1; X 
p« » tally; 



♦ 63*X 
COMMENT A "." WAS FOUND FIRST, SKJP» 



00672000 T 
00672100 T 
00673300 T 



0879*1 
0879*? 
0879*1 



THE 



TALLY * 6;X 
GJQ TO RXITA8X 



«•" ano set Flag to 6;x 



00672300 T 
00672400 T 



0880*0 
0880*0 



0672 5 00 T — 0880*1 






COMMENT EXPONENT FOUND FIRST** 
EXPFRST* TALLY t TALLY ...♦63i.I 
61 «■ SltliX 



00672600 T 
00672700 T 
00672800 T 



0880*2 
0860*2 
0680*3 



P4 ♦ TALLYIX 

tally ♦ a; 

GO Tn RvyTA^ 



COMMENT SET FLAG TO 8;X 



00672900 T 
00673000 T 
00673100 T 



0881*0 
0881*1 

Qflflll2 



comment look at first nqn- 
rsign* if sc."-" then go t.q 

I F S C a "+" THEN G O TO 



BLANK CHARACTER; X 

RMINUS;x 

RPLUS/X 



00673200 ...T. 
00673300 T 
00673/100 T 



0661*3 
0881*3 
0862*8 



RXITB* 



IF 
IF 

JX. 



SC« M &" 
SCi"0 w 
SO*"," 



THEN 
THEN 
THE N 



GO 
GO 
-GO- 



TO 

TO 

_10_ 



RPLUS;x 
rimplus;x 

MMJJL 



00673500 T 
00673600 T 
0067370 T 



0883*1 
0884*0 
0164*3 






IF 

IF 
COMMENT 



SC«"F.♦ , THEN GO 
SC■ M , ' THEN GO 
If NONE OF THE 



TO EXPFRSm 
TO EXPFRST;X 

ABOVE THEN ERRORS 



00673800 T 
00673900 T 
00674000 t 



0885*2 
0886*1 
0887*0 



45 

46 
47 
48 



RERR* 
R M1N US* 



TALLY * 2;X 
GO TO RXITA1X 

«_> LOG pa;* 



00674J00 T 
00674200 T 
QQ07 4 3Q Q.T 



0887*0 
0887*1 
887 * 2 



RP LUS* 



01 * Dl-ll COMMENT PASS BACK A "1" FOR A"-*;* 

OS * LIT "'i";x 

TALLY ♦ TALLY+63J* , 



00674^00 T 
00674500 T 
Q6 74 6 Q T 



0887*3 
0888*0 
986 ' ? 



SI*SI*UX 
P4*TALLYjX 
COMMENT mm BLANKS PAST 



SICN (IF ANY) THEN LOOK ATX 



00674700 T 
00674800 t 
Qfl 674 9 QQ T 



0888*3 
088910 
Qt89U 



next non-blank;x 
p4cif sc/ h " then jump out to rxitb;x 



TALLY * TALLY ♦ 63 MX 

RJMPLUSt p<* <■ tally;x 



00675Q00 T 
00675100 t 
00675200 T 



0889*1 
0889*1 
0890*3 



55 
56 



. * 



JO T * 

,O06?*M»<T;. 
\THM- . t . ,- 



O09U2 

liSiii. 



RXITA* 



TALLY «• Q}% 
H3 * Sin 

P6 » TAL L Y * * 



00675600 T 0892J0 
00675700 T 0892»1 
0067,5800 T QR92>2 



i 

2 
3 

4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

•8 

49 

50 

51 

52 

53 

94 

55 

56 

57 



end;* 

BUFF < 
WT » 



PI 

Pi 



COMMENT ADDRESS OF NEXT CHARACTER;* 
COMMENT REMAINING FlELOlt ^_ 



00675900 T 
006*4000 T 



089213 
0893*0 
Q 893 I ? 



i 

3 
4 

M 

6 
7 

»l 

9 

10 

" I 
12 

13 
U{ 

15 
16 

"< 

18 

19 

20 ( 

21 

22 

23 ( 

24 

2E 

26 ( 

27 

28 

29 ( 

30 

31 

32 < 

33 

34 

35 { 

36 

37 

38 ( 

39 

40 

41 ( 

42 

43 



sgn * . p; 

go to p; 

go to hipart; 



COMMENT SAVE SIGN;* 

COMMENT SWITCH ON KEY;* 

CQMME.MT KEY * Q ■ <SIQN><PIG1T> QR <Dl(.lT» 



00676200 T. 0894 
00676300 T 089*. 
00676000 T 0690 



TO RERRA; COMMENT KEY * 2 » ERRO#U* 
GO TO RBLFJ COMMENT KEY « 4 • BLANK FIELOU 
QO TO RFAJ rQMHrNT KFY m 6 f «STflM>».« PR ",":* 



00676500 T 0895 
00*76600 T 0895 
00676700 T CL0J&6 



JUN Kl » i ; 



COMMENT FALL THRU FOR KEY « 8 «<sXGN.> <EP0NENT> OR* 

<EXPONENT>;* 
COMMENT MANTISSA 



*■ i n 



00676800 y °-fl** 
00676900 T 0896 
Q0 6770 00 T Q89ft 



Wi «. Oi COMMENT DECIMAL PLACES;* 
GO TO «EXP; COMMENT OUT To DEVELOP EXPONENT** 
COMMENT BLANK FlFLOi* 



00677100 T 0897 
00677200 T 08** 
00677300 T — 0*94 



rblfi pcq/ssn); 

go to comb;* 

COMMENT 



COMMENT SET RESULT TO -Oi* 
," FOUNp FIRST;* 



00677400 T 0898 
0067 7500 T 0899 
00 6 77 6 T 0#** 



RFAI 



JU 
FL 



nki * o; 

g ■ * i ; 



COMMENT MANTISSA ♦ OU 

COMM E NT SET FLG TO R£MeMbeR NO INT£GE K * 
PART;* -^— 



00677700 t 0899 
00677800 T 0900 
00677900 T 0*04 



R lP ARTt 



go to rfpart;* 

comment digit found first;* 

P (1 )J COMMENT CALL, fiETNUM 



TO BUILD OCTAL* 



0901 
0901 
00 6 782 T 0*0+ 



00678000 T. 
00678100 T 



RIPRTN * 



integer part;* 
go to getnum;* 

IF MOT P THEM GO TO RFCJ COMmEmT BRANCH On, KEY 6ETMUM* 



00678300 T 0902 

00678000 T 0902 
00678^00 T 0003 



JU. 



HtTURNS. IF NO BRANCH ThEN 
I.E. IMPLIED DECIMAL;* 
♦ Jii COMMENT QFCIMAL PLACES 



WE HAyE FIELD ExAUStEO** 

in fraction;* 



00678600 T 0903 
00678700 T 0903 
00678800 T 0903 



rdonaj W2 » o; 

CBMMENT 
ROQNEI PCWUNKUi 



COMMENT NO EXPONENT;* 

BUILD result;* 

COMMENT GET NUMBER;* 



00678900 T 
00679000 T 
00 679 IQ Q T 



0903 
0904 



Q9 Q4 1? 



if sgn then pcssn); comment insert sign;* 

comment scale number;* 
if pcwa + scftr-wi*oup) i o* 



00679200 T 
00679300 T 
00679fl00 T 



0904 » 3 
0905«3 
0905 » 3 



M. 



THEN P(TENCP3*MUL)* 
ELSE P(TENE-P3»/);X 

t o comb;* 



00679500 T 
00679600 T 
OQfi7Q700 T 



090712 
0908*3 
0910*0 



MftXIIll 917777777777771 

COMMENT THE FIELD IS NOT EXAUSTED;* 
RrO WT » WT -i; COMMENT WTM TO ACCOUNT FOR CHARACTER* 



08679750 T 
00679800 T 
0Q67990Q T 



0910«2 

091210 

091?«0 



IF W2 « 



ENDING INTEGER FIELD;* 
»," THEN GO TO RFPART;* 
COMMENT OUT FOR VISABLE OEClMAL POINT; * 



00680000 T 
00680*00 T 
00680300 T 



0913*1 
0913»1 
0914»9 



IF WT £ D THEN GO TO RERRAi* 

COMMENT ERROR IF IMPLIED POINT To RIqHT* 

Of mantissa field;* 



00680300 T 
00680000 T 

OQ68Q500 T 



0910*2 
0915*3 

n i MnC lP li ft l l H Il j i I 



wi ♦ 0»wT-t; 



COMMENT CALCULATE DECIMAL POSITION FROM* 
OeclMAL PLACES AND POSITION OF RlGT MOST* 

otsn in mantissa;* 



006*0600 T 
00*80700 T 
00680*00 T 



091513 
091712 
091 7*2 



COMMENT LOOK FOR AND CONVERT ANY EXPONENT FOUNDU 
REXPl STREAMCX 

P* ♦ 0* COMMENT PLACE TO RETURN EXPONENT** 



00*80900 T 
00681000 T 
00*81 IQQ t 



091712 
09 17 I 2 
Q917J3 



P5* 
p#* 
P3» 



WT*l* 
BUFF** 

1 * • .. -• 



COMMENT REMAINING FIELD «IOTH;X 
COMMENT FLAGi* 



00681200 T 
00*81300 T 
QQSaiflQQ T 



091810 
091813 

919 * 



m t 



10 



12 



ia 

17 
IS 



20 



22 



24 
26 
28 
27 
28 



90 

31 



32 
33 
34 
35 
36 
37 " 



41 
42 



47 
(8 
«9 



52 
53 



55 

56 



PUOJJJ 

BEGIN COMMENT LOOK FOR E OR 

ax » Pa; si «• si -m 



e;x 



tally < 

P5< IF 
SX- 



P5;X 
SC* H 1 

» SI 4 



THEN 
444I 



JUMP OUT TO RAAJX 



KAAi 



TALLY * TALLY + 63j;CUMMENT TALLY - 1 i% 
G.U..TO RlXTAf COMMENT OUT IF NO EXPONENT;* 
IF SCs»E» THEN S O TO R A BJ* 



IF SC* W «»" THEN 

raerstally * o; 

P3 fe TAlLYU 



GO TO RAB'* 
COMMENT IMPROPER 



EXPONENT;* 



GO TO REXTAii 

COMMENT LOOK FOR 
TALLY + TALLY ± ft 3JX 



HABI, 



EXPONENT SIGN;* 



SI « Si * 
IF SC« M - W 
RET, I NX 



THEN* 



P5 «■ tally;* 

TALLY > li% 

Pi «• tally; 



COMMENT REMEMBER 



>»♦' 



E N n;» 



tally 
go to 



sign;% 



•- P5;x 
ref;x 



IF SC»"+" ThENX 
BEGIN* 

r f pi t a lly ♦ t al ly 4 6 3;* 



P5*TALLYJ 
SI * SI ♦ l; 
PSfJUMP OUT TO 



comment skip over sign;* 

RAQO; comment out If rinn mo t i 



go to raer; 

HEXTA* GO TO REXt;* 



ex au st ed cp5x0);* 
comment out on error;* 



raerai go to raer;* 
eno;x 

if SC""&" THEN GO TO REP;X 



COMMENT LOOK FOR DIGITS IN 
RADC* IF Sc < "0" THEN GO TQ RAER;* 
COMMENT OUT 



TALLY «■ TALLY + 63U 

Pb «. tally;* 

COMMENT LOOK FOR 2ND DIGIT;* 



exponent;* 

if not digit-erhqr;* 



P5csi«-si + i;x 

IF SC2 M Q" 

begin* 



THEN* 



Sl»5l 

Dl «• 
OS » 2 



P6J* 

oct;x 



TALLY «■ TALLY + 63;* 

P5 * tally;x 

JUMP OUT TO RAIS;* 



end;* 

IF SC>" 

SI » SI 



Racj di «■ loc P6;x 
os «■ oct;x 

COMMENT PUT IN EXPONENT 



THEN JUMP OUT TO RAERlX 
I? JUMP OUT TO RAOJX 



RAISI PKOI ♦ 

OS ♦ LIT 
P3< If SC 



sign saved in pi;x 



P6;x 

"♦«);x 

" »' THEN JUMJ> OUT TO RAERA;* 



00681500 
00681600 
00651700 



00681800 
00681900 
00682000 



00682100 
00682200 
6 833 00 



00662400 
00682500 
00 6 82600 



091952 
0920*0 
09 2 10 
0920*2 
0921*1 
092g*3 



092310 
0923*2 
923 * 3 



00682700 
00682800 
00682900 



00663000 
00683100 
00683300 



092*1*2 
0925*1 
0929*2 

09 2513 
.09.264 
0926'0 



00683300 
00683400 
06fl3 E >00 



0926*1 
0926*2 
0927*0 



0927*0 
0927 J 1 
0927*2 



00663600 
00683700 
00683800 



00683900 
00684000 
00 6 8 4 100 



0927*3 
0928*2 
0928*3 



00684200 
00684300 
Q0ft84<>0Q 



0928*3 
0929: 1 
0929 * 1 



0929*2 
0929*3 
0930*0 



00684500 
00684600 
Q06fl 47 Q0 



00684800 
00684900 
00685000 



0931*1 
0931*1 
Q93l»2 



00685100 
00685200 
00685300 



093113 
0932*0 
0932*0 



00685400 
00685500 
00685600 



0932*3 
0932*3 
0933*2 



0933*2 
0933*3 
0934*0 



00685700 
00685800 
00685900 



00686000 
OO6861OO 
00686300 



00686300 

OO6864OO 
006a6s00 



0934*0 
09 34*3 
0935*1 
0935*1 
0935*2 
093513 



00686600 
006667&0 

QQ 6b6rOQ 



0936*0 
0936*1 
0936 *2 



OO6869OO 
00687000 
00687100 



093710 
093710 
93b «Q. 

0939*0 
0939*1 
0939*2 



00667200 
00687300 
00687400 



0939*2 
09401 1 
0941*0 



h 



9 

10 
11 
12 
13 
14 
15 
16 
17 
18 



19 
20 
21 
22 



23 
24 



26 
26 
27 
28 
29 
30 



31 
32 



J3 

34 
36 
36 



37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
•9 
SO 
51 
52 
53 
54 
55 
56 

i 



REXT* P4 

EnO j* , 



SI «• Si 
* Sii* 



♦ X)}% 



IF NOT P THEN 
BUFF * Pit 

pc de d;* 



go To rerra; comment out on error;* 



00687500 
00687600 
00687700 



W2 *P> COMMENT EXPONENT** 
GO TO R[}QNE;X 
COMMENT WE COME HERE IF A «.' 



00687800 
00687900 

onftsflono 



0942*2 
094310 
0943' I 



0943 * 2 
094410 
09441? 



rfpart* pcjunki#uddrsj#std);x 

comment save 

IF (JUNK? » WT) <i THEN! 



IS FOUND IN F IELD ** 



OO6881OO 
00688200 
00688300 



INTEGER PART IN ADORS;* 



BEGIN COMMENT ".' 
IF FIG THEN 



1 WAS LAST IN FIELD** 
GO TU REHRAU 



OO6884OO 
00688300 
00686600 



0944»3 
0945*1 
Q945tj 



COMMENT ERROR IF ONLY A »." fiAS mUNQi* 



END!* 



Hi ♦ Oi COMMENT 
GO TO RDONAJX 



INOICATE NO FRACTION PART'* 



00688700 
00688800 
Q06889QQ 



0945*3 
09«6*2 

0946' 3 



0947*3 
0948*1 
0949*1 



RFPRTN» 



P(Q)JX 

GQ TO GETNUM; COMMENT 

IF CWl *■ JUNK? - wTt s 



00689000 
00689*00 
00689200 



BEGIN COMMENT FRACTION 

IF FLG THEN GO TO 

COMMENT 



CALL QETMUM 
Q THpNJ 



TO BUlLO FRACTION'* 



end;* 

comment develop number** 
junk1 *■ junk1 * aoors x tenth!!** 



PART IS blank;* 
ReRRa;* 

ERROR IF QNI Y «.« TN FlEinn 



00689300 
00689400 
00689500 



00689600 
00689700 
00689800 



09*9*1 
0950*0 
095012 



0950*2 
0950 1.3 
0951M 



095310 

0953*2 
0954*2 



COMMENT INTEGER PART x 10*><OE01MAL PlACES> 
♦ FRACTION PART** 

IF P THEN GO TO ROUNA;* 



00689900 
00690000 
006901 00 



wt «• hi «i; 



COMMENT BRANCH ON KEY GETNyM RETURNED** 

IF TRUE THEN FIELD EXAUSTED;* 
COMMENT HT-1 TU ACCOUN T FD R CH A R ACTF R * 



00690200 
00690300 
00 69Q4Q Q 



0954*2 
0954*2 
0954*2 



0956*2 
0956*2 
9 56*2 



GO 
COMMENT 



to rexp; 

SUBPROGRAM 



ENDING FRACTION PART** 
COMMENT CHECK FOR EXPONENT;* 
USED BY R-TVPE;* 



00690500 
00690600 

00690700 



qeTNUm*; 



COMMENT GETnUM BU.Il.QS AN OCTAL INTEGER FROM THE BCL* 
FQUNO IN THE BUFFER;* 

pcd; cqmmfnT fi ag usrn at grtn;* 



00690800 
00690900 



09.5 7 U 
0957*1 
Q957U 



GRTYt STREAMC* 

P6<-Q, 

P5-C0M* 



0069U00 
00691200 
00691300 



0958*2 
0958*2 
095 9*0 



0959*0 
095910 
0959*0 



P4«.(IF WT > 16 
P3»BUFFU 



COMMENT RETURN CHR ENDING INTEGER;* 
COMMENT POINTER TO BCL INTEGER** 



Then 16 

COMMENT 



EUSE 

W7 



HT)»X 

FIELD 



0069U00 
00691500 

QQ69160Q 



width;* 



p$* 

BEGIN* 

SI » 



0);x 
P3;t 



00691700 
00691800 
00691900 



0959*1 
0959*2 
095013 



DI «■ P5** 
P4(IF SC < "C" 

ps » chr;* 



00692000 
00692100 
00 692200 



0960*0 
0962*1 
096 2*1 



0962*3 
0963*1 
Q96 3U 



THEN JUMP OUT TO RENDM;* 



RENDM* 



TALLY ♦ TALLY 
GQ TO RCXlTf* 

01 » loc ps;* 



♦ n;x 



00692300 
00692400 
0Q6925QQ 



01 



Pi-i;x 
chr; 



00692600 
00692700 
00692ftOQ 



0963*2 
0963*3 
096 5*1 



COMMENT RETURN CHARACTER ENDING* 
INTEGER FIELD;* 



RCXIT* P3 * Sj; COMMENT NEXT BUFF ADDRESS;* 

P4 * TALLY; COMMENT RETURN NUMBER OF DIGITS* 

: £- _ _ TN INTFGFRI* 



00692900 
00693000 
00693100 



0965*2 
0966*0 
096A*t 



00693200 
00693300 
00693400 



0966*2 
0966*3 
09 6 7*0 



096710 
096711 
0967* g 



57i 



• • 



h 



end;* 



buff 
JO_t_ 



p; 



-PJ_ 



GRTM 



P(DEL); 

W2 * p; 

IF NQT P 



COMMENT 
COMMENT 



BUFF 
MX 



P3;x 

-PJUX 



THEN 



COMMENT DELETE PSJ* 
COMMENT W2 ♦ P6JX 
GO TO flTni COMMENT BRANCH nN Fl .Aft Pll T « 



00693500 
0069360C 
00693700 



00693800 
00693900 



0967*2 
0967*3 
0966*1 



00690000 T 



0968* 3 
096910 
09691a 



STREAMU 

p* «• P(w i>n up?f» 



IN AT GRTY OR GTCJ* 



00694100 T 
006.9*200 T 
0069*300 T 



097050 
0970*0 
0970*1 



P6 * (IF P S 8 THEN ELSE P<8#SgB#8# XCH) ),% 

COMMENT THE ABOVE IS "If WT S 8 THEN P7«.WT*P6«.Q 
ELSF P7»8iP6» tt T-6 w ;« 



00694400 T 09?0*3 
00694500 T 0973*2 
00630*00 T 00? 3*? 



10 

11 



P5 «-0* 
F4 «■ 0, 

Pi » en 



ux. 



COMMENT OCTAL OF RJGHT 8 UlGlTSjX 
COMMENT OCTAL OF WHATS LEFT;* 
COMMENT AQORFSS OF RCt INTEGER?* 



00694700 T 0973*2 
00694800 T 0973*3 

00694900 T 0974*0 



13 

14 
15 



pi «• om 

BEGINS 
$1+ P3i% 



00695000 T 0974 J 2 
00695100 T 0975»0 
00695200 T 097510 



16 
17 
18 



U.l> LOC P4I* 
OS* P.6. .O.CTJX 
PI*- L OC P5 / 3 , 



00695300 T 
00695400. T 
0Q6955Q Q T 



097511 
0975*2 
Q9761JL 



19 
20 
21 



end;» 



OS ♦• P7 qct;* 

I 

pcoel?; 



COMMENT DELETE P3J* 



00695600 
00695700 
00695800 



T 0976*1 

T 0976*3 

2 977*0 



22 
23 
24 
28 
26 
27 
28 
29 
» 
31 



PCTEN8,MUL*ADU,.jUNKl#STD);X 

COMMENT JUNKl ♦. P4 x 10*8 + P5>* 

P<DEL/DEL» COMMFNT HELE T E P6 & P7** 



00695900 
00696000 
Q06961Q0 



T 0977*1 
T 0978*2 
2 0978*2- 



GTBJ 



IF (WT ♦ WT-Wt) < THEN* 

BEGIN COMMENT PASS BACK A KEY OF I Tq* 
FLAG FIE L D EXMJSTEPM 



00696200 
00696300 
00606000 



T 0979*0 
T 0980*3 
2 0981*1 



pci'XcH);* 

GO TO NUMXITX 

E NP^» 



00696500 
00696600 
Q06967QQ 



T 0981*1 
T 098U3 
J 0962*1 



32 
33 



COMMENT FIELD NOT EXAUSTED So LOOK AT WHAT ENOEO It* 
IF W2 > 9 THEN* 
BEGIN COMMENT MANTISSA EXAUSTED BUT NOT FlELD t 



00696800 

00696900 
00697000 



T 0984*0 

T 0984*0 
T 0984*3 



34 

35 
36 

37 " 



SO RETURN A FLAG OF Oi% 

P(O'XCH)/* 

GO TO NUMXITJX 



00697100 
00697200 

QQ6 973 QC 



T 0985*1 
T 0985*1 
2 0965*3 



39 

40 
41 
42 
43 
44 
45 
46 
47 



GTC* 



end;* 
pcq>; go to g«ty; 



COMMENT MANTISSA NOT EXAUSTED,* 
S CAL E NU MBER LE FT UNT I L ; I T iSj* 



00697400 
00*97500 
0-0697600 



T 0986*1 
T O966 II 
2 09B?*0 



GTO* JUNKl «• JUNKl x TCN.Chl.3iX 
GO TO GTB*X 
NUMXIT* IF P THEN GO TO RIPRTm ELSE GO TO RFPRTNJS 



00697700 
00697800 
00697900 



T 0987*0 

T 0988*2 
T 0969*0 



COMMENT DATA ERROR READING R FORMAT** 
RERRA* IF FILX,C18M53>1 THEN 
B E HN PARLtfl LXC NDT 33J FILXCNQT 33j.FILXCNOT 43*0 FND 



00698000 
00698100 
00698150 



T 0990*0 
T 0990*0 
2 0991 1 1 



18 
19 
50 
51 



ELSE BEGIN 

IF FILX. [18*153*1 THEN P( FlLX* 14* COM )} PARL«"Q' FIlX**2 ; 
END, ; , , , 



00698200 T 0997*0 
0069830Q T 0997*2 
00696a00 T 1001*1 



i 



IF PARL * THEN PCFtfcK, I 33 115 3#7#1 UCOM) 
ELSE P(PAflLVMKS*9#«LKCNTL)*X 
CBMMENT IF NQ PJtWlTY ACf^ DN LABEf PRINT «RER»1 



00698500 
00698600 
00698700 



T 1002*0 
T 1004*3 
2 1006*1 



52 
53 



54 

55 
56 
67 



aL 



r 



end inputint;* 



ERROR ANQ TERMINATE ELSE GO TO PARITY* 
LABEL'* 



00698800 

00698900 
00699000 



T 1006*1 
T 1006*1 
T 1006 *1 



n"\ 



N 



.',. 



lib- 



PROCEDURE OISKSORTC 



START OF REL 



0070^000 
S E G ME N T! D I SK 



SIZE* 1007 WORDS 
T 0000*0 
AD DRESS » Q OH* 



7 
8 
9 
10 



12 
13 
14 
16 



16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



46 
46 
47 
48 



49 
50 
51 
52 
53 
54 



56 

56 



Tl# T2*RElA* 

END0,BIi\G0,IPFlDX»0UTPRQ,INPR0#0UTF,lNF, 

QPTnG.lPTQG.QK0*DKI*TPl*TPP.TP3*TPa*TPS>NT> 



HIVAIU*EQUAUS'R#AUFA>C0RE5IZE»0ISkSUE)J 
COMMENT DISK-SORT 8Y L.R. GUCK DATE 9/19/1965* 

VALUE QPTnfi»!PTOfl»NT*HI VALU»FQUALS*R>ALFA* 



CORtSIZE'DISKSIZE; 



REAL 



ENDQ' 
ri I N r, J / 



IPFIDX* 
OUTPRO* 
INPRQ* 



outf# 

Tl* 
JJL' 



X POINTER TQ DESC WHICH DESCRIBES OUT AREA 



HELA* 

inf; x 

boolean qptqg, x 



POINTER To DESC WHICH DESCRIBES INPUT AREA 
TRUE if OUTPUT PROCEDURE 



IPTOG; X TRUE IF INPUT PROCEDURE 
REAL . PKO* X DISK OUTPUT FILE 
IJKi; % DISK INPUT FILE 



NAME TPl,TP2,Tp3,TP4,Tp5/ % SCRATCH TAPES 
REAL NT* X FOR FURTURE USE 
HfVALU* 



EQUALS' X 

INTEGER R; X 

B O OLE AN A LF A * X_ 



KEY COMPARE ROUTINE 
RECORD* <0 FOR ALGOL 
TR U E FUR A L PHA K EYS 



REAL COiESUE; X CORE STORAGE AVAILABLE 
INTEGER DISKSUE; X DISK STORAGE AVAILABLE 
BEGIN 



LABEL GRA,»TNRD*NRT6L0C#RTN0N#SA#RTNDR» 

IPa.MPBAM.PCflPDrlPEMPG/ 
MlC*MlP»MIEfRTA* 



START* LY,LZ,LX>CALLSORT#ENDSORTPASS* 
DKC#DKD#DKE#OKF* 
TPA,TPB,TPCjWRAPUP»SQRTDONl£i 



COMMENT GENERAL PARAMETERS; 

REAL S# X MATRIX SIZE FOR 

M, X MATRIX SIZE FOR 



SORT PASS 
ME RaE PASS 



MS> 
STPP* 
_D±. 



00' 

BF* 

THO» 



X CURRENT MATRIX SIZE 

X INOEX OF LAST ADDRESS IN VECTOR (V) ARRa* 

X SEGMENTS PER DISK INPUT BLOCK 



X SEGMENTS PER DISK OUTPUT BLOCK 

X RECORDS PER DISK INPUT BLOCK 

X RECORDS PER DlSK OUTPUT BLOCK & TAPE BLFlCKlNG 



00700100 
00700200 
00/00 300 



0000«0 
0000*0 

oooo to 



00700400 
00 7 00 5O 
00700600 



0000«0 

0000*0 
ooontn 



00700700 
00700800 
00700900 



00*01000 
OOTOllOO 
00701200 



0000*0 
0000*0 

0000 to 



ooooto 

0000 to 
onontn 



00701300 
0070UOO 
00701500 



0000 «0 

0000 »0 
QOQQtQ 



00701600 
00701700 
Qn7nlflOO 



ooooto 

0000*0 



00701900 
00702000 

00702100 



00702200 
00702300 
QQ702flOO 



0000 '0 

ooooto 
ooooto 



ooooto 
ooooto 

000010 



00702500 
00702600 
00702/00 



00702800 

00*02900 

00703000 



ooooto 
oooa*o 

o o ooto 



00703iOO 

.00703200 

00703300 



ooooto 

0000*0 

oonpio 



0000 »o 
ooooto 
oonolo 



00703400 
00703SOO 
00703600 



0000*0 
0000*0 

onooin 



00703700 
00703800 

QQ7Q39QQ 



ooooto 
ooooto 

0000*0 



00704000 
00*041 00 

os wm M 



0000*0 

0000*0 
000 0*0 



I#X>YJ X 
ARRAY D»TA[*#*3I 

ARRAY Vf»3l MAME 



TEMPORARY STORAGE 
ARRAY OATX » 0ATAO3; 
V N » V i 



00704300 
0070*400 
00704500 



0000*0 
0000*0 
0000*0 



NAME DATN * DATA; 



DEFINE VXl=FLAGCvtX+U )»» VX = FLAG( V t X3 ) *t VL«FLAG< VC VLOW ] > »i 
DEFINE VAl ■ FLAGCVCX + 1 J »PCO* RQS K.CTFl )»» 

VA ■ FLAGtVCX 3&P(0,RDSHCTF3)fj 



00704600 
00704/00 
00704800 



0000*0 
000010 
0000*0 



XAL« *UNFILJ#0#RD8#CFX#» 
VAL * FLAG(VtVL0wHP(O,ROS)CCTF3)#l 
REAL VLOWJ X INOFX OF NEXT RecQRQ IN SfQUENCF 



00704900 
00704910 
00704920 



000010 
0000*0 

ooooto 



00704925 
00704930 
Q07Q50QQ 



ooooto 

0000*0 
onomn 



ARRAY MHK[*J; X HIGH KEY FOR MERGE PHASE 

NAME MHNsmHK; 

ROniFAM MUHEDATA. % GHES FAlSF HHFNl MH MHRF INPUT DATA 



FM, 

EOF* 

TM* 



X TRUE ON LAST MERGE PASS 

X TRUE WHEN INPUT FILE EXAUSTED 

TRUE FOR SORT WITH BACK-UP TAPES 



00705100 
00705200 
007053Q0 



ooooto 

OOOOt'O 
0000*0 



00705400 
00705500 

on? 05600 



0000*0 
ooooto 
0000*0 



■K 



9 
10 
11 
12 

13 

14 i 

15 

16 

17 

18 



19 

20 ( 

21 

22 

23 \ 

24 

26 

26 ( 

27 

28 

29 ( 

30 

31 

32< 

33 

34 

35 \ 

36 

37 

38 { 

39 



41 I 

42 



43 



45 
46 
47< 
48 



49 
50 \ 



52 
53 < 
54 

55 



J& 



• t 



# 



I » 

3 

4 

6 

7 

9 
10 

12 

13 

15 
16 

IB 

19 

) 20 

21 
22 

> a 

24 
25 

27 
28 

> 29 

W 
31 ~ 

I ° 

33 

34 
) 35 

36 

37 ~" 
| 38 

39 

40 
I 41 

42 

43 ~ 

44 

45 

46 

•7 



SO 
51 
52 
53 
54 
55 
56 



O ISKFUIU . 



MF=Tl, % TRUE IF MERGE ONLY 
DFsIPTOG* % TRUE IF OUTPUT FILE 



RE4L TR; 

0EFINE IOC • ?2000000000## 

PBI YMERfiE m PI1T>ISFIBF| A] 



IS A OISK 
TRUE WHEN A SS I GN E D DISK SPAq , I S FU LL 
# OF RECORDS OF DATA SAVED ON DISK 



» PfnitP.| npitif ftt fl7n m 



COMMENT PARAMETERS RELATED TO PROGRAMMERS FILES; 
NAME INFIL = INF> * POINTER TO TOP I/O OESC. 
MHZ WAIN » IPFIUX; % C0R QL6H TNFTLE WORK AREA 



NAME OUTFIL « OUTFJ 
NAME WAOUT * T2; 
ARRAY PRF IBC*1i 



REAL 
REAL 



AC J 

IncqunT' 

QUTCOUNTJ 



% 
X 



COMMENT 
NAME MEM 
ARRAY FPft 



POINTERS 
» 3f»3t 



X C0B0L68 OUTFILE WORK AR£A 
* CONTAINS TAPE FIlFS FIR 

TRUE FUR COBOL INPUT FILE 

COUNTS # OF RECORDS FROM INPUT FILE 

COUNTS A H F RFCHRDS W RI TTEN D m nn T P UT 



FOR STANDARD PROCEDURES; 



FILE 



REAL 



BLOCK 

ALWR 

A L R O 



s 5* 

* 12' 



C0FC8 ■ 12# 
PE8F0RMGEN a 
COp » m* 



13j 



X CQB0L68 IN-OUT PROCEDURES 



ALFCR * 14>. 

BLKCTH = 16; 
ARRAY PRTRASE a inf*1 j 



COMMENT PARAMETERS 
NAME DOTOP » nKQ; 
ARRAY QUTF1H[*3I % 



RELATED TO 

% POINTER 

POINTER TO 



DISK OUTPUT file; 

TO DISK OUTPUT I/O DESc, 

n* — . 



ARRAY QUTHEADC*]; % POINTER TO FILE HEADER BLUqK 
REAL LQSA, X OISk ADDRESS qF CURRENT S T RING TAG 
0J1S_ it Rhnntnr r.niiMT n r strjmqs x m output 



ORC, 

OCDA# 

f>R| > 



WORD 
ARFA 



X RUNNING COUNT OF RECORDS JN STRJNG 

X DISK ADDRESS OF NEXT AVAILABLE OUTPUT ARtA 

X RUmMluG CnUMT nF mUmrfo n r Srr.urMTS | F ft TN 



OR I' 

SRI * 



X CURRENT ROW 

X CURRENT RQW BEING USED 

X RUW rthERE STRING STARTfn 



SRS* X NUMBER Of SEGMENTS Of STRING IN ROW SRt 
OBC; X CURRENT I OF RECORDS IN OUTPUT BUFFER 
DEFINE QRS» OUTHEAnt83*i 



DEFINE FNUM * QUTF I BC« 3 ♦ C 1 3 « 1 1}*} 

COMMENT PARAMETERS FOR OjSK INPUT FjLE; 

ARRAY ITNK = DKIL*]) it POINTER TO INPUT TANK 

ARRAY INFIBC*], % POINTER TO FIB ~~~ 

INHEA0C*3i % POINTER TO FILE HEADER BLOCK 
ARRAY BASEC*]> % POINTER TO CONTROL INFO IN DATA 



__Ak 



DEFINE 



ITOPC*]* 
BUFFC*J ; 



OESc 



% 



IBC 
IRL 
ISL 



IDA * 
IRC * 
FCR * 



POINTER TQ TOP I/O 
X I/O DESCRIPTOR 

HOLDS TAG ADDRESS FOR NEXT MfRge PaSS 
BASECOJi, X RECORDS LEFT IN BLOCK 

baseci3#» x Records left in string 

BASEC23«» X BLOCKS LEFT IN ROW 



BASEC33*, 
BASEU3*' 
IF AC THEN 



COFCR 



COMMENT PARAMETERS RELATED TO MERGE TAPES; 
INTEGER CTRL* X CURRENT CONTROL TAPE 
INTEGER COTI X CURRENT OUTPUT TAPE 



X DISK ADDRESS OF NEXT BLOCK 
X CURRENT ROW QF THIS STRING 
ELSE ALFCR#; 



00705700 
00705800 
00705900 



00706000 
00706^00 
DO 7062 00 



OOOO'O 
OOOOIO 
OOOQIQ 



00706300 
00706400 
0O7Q6a?Q 



ooooio 

0000»0 
OOOOIO 



0000.10 
OOOOIO 

QOOO'C) 



00706500 
00706520 
00706*00 



T 

T 

JL 



0000*0 
OOOOIO 
0000 ID 



00706700 
007C6800 
OQ706900 



00707000 
00707100 
00707110 



OOOO'O 
0000*0 
OOOOIO 



OOOOIO 
OOOOIO 
OOOQIQ 



00707200 
00707300 
00707400 



00*07500 
0070/510 
00707600 



OOOOIO 
OOOOIO 
000010, 



OOOOIO 
OOOOIO 
OOOOIO 



007C7700 
00707800 
00707900 



00708000 
00708100 
00708200 



0000»0 

ocooio 

OOOOI-O- 



00708300 
00708400 

007 08 500 



00708600 
00708700 
00708900 



ocooio 

OOOOIO 
OOOOIO 



0000*0 
OOOOIO 

O O OOIO 



ooooio 
ooooio 

OOO OIO 



00708900 
00709000 
QQ7Q910n 



00709200 T 
00709300 t 
00709fl00 T 



OOOOIO 
OOOOIO 
OOOQIQ 



00709/410 

00709500 
00709600 



OOOOIO 
OOOOIO 
OOOQIQ 



OOOOIO 

OOOOIO 
OOOQIQ 



00F09700 
00709800 
00709000 



00710000 

00710100 
0071U?00 



00710300 
00?10«00 

00710-300 



OOOOIO 
OOOOIO 

oooom 



ooooio 
ooooio 

OOOQIQ 



T 
T 

JL 



00710600 
00710700 
007lOflOQ 



ooooio 
ooooio 

OOOQIQ 



00710900 
OOfltOOO 
00711100 



ooooio 
ooooio 

OOOQIQ 



OOOOIO 
OOOOIO 

ooooio 



-^1 



9 

10 

11 

12 
13 
14 
15 
16 
17 
18 
19 



i 
t 



20 I 
21 
22 
23 1 
24 
25 
26 ( 
27 



28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



46 

47 

48 

49 

50 I 

51 

52 

53 i 

54 

55 

56 I 



ID 



N 

2 

3 
4 
5 
6 



NAME COlQO; * LOC OF I/O D OF CURRENT OUTPUT TAPE 

NAME TP; % BASE POINTER OF MERGE TAPES 

ARRAY TSOJj % ARRAYS FUR CONTROLLING DISTRIBUTION 



007 
007 



1200 T 
1300 T 
IflOO T 



0000*0 
0000*0 
000010 



ARRAY TC[*j; X PATTERNS ON MERGE TAPES 

ARRAY TNC*3J 

NAME TSN«TSi NAME TCN»TC* NAME TNN»TNt 



007 
007 

007 



1500 T 
1600 T 
1700 T 



0000*0 
0000*0 
QflQOln 



REAL 
NAME 



TM1bC0R£SUE> * TAPES - i 

CIIOD; * LOC OF I/O D FOR CURRENT INPUT TaPe 

$*********»************************j 



007 
007 

007 



1800 T 
1900 T 
gQOO T 



0000?0 
0000*0 
0000*0 



7 
e 
9 
10 
11 
12 
13 

14 
15 
16 
17 
18 

19 ~ 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37~ 

38 

39 

40 

41 

42 

43" 



SUBROUTINE wAiT/ COMMENT WAIT FOR"* I/O COMPLETE USING AORReSS 

on top of stack; 

S SFT QMTT m MflT f T TMF SHAR T mfi 1 : 



0Q7 
00 7 
007 



2.1 00. T 
2200 T 
2250 T 



0000*0 
OOOJ I 

■oooti-n 



* set umit = timesharing 

BEGIN. IF. NOT ( PC XCh,DgP> LOD ) ) . C 19 ! 1 3 THEN P ( IUC# 2' C0M,CEl >* 
S > PQP UMyT , 



00 7 
007 
0Q7 



2299 T 

2300 T 

2 30 1 T 



0001*0 

doui*'o 

QOQ fl jO 



IF NOT B(DgP»L0D).[2lU THEN 

IF NOT <P(DUP»LO0>DUP), [27*13 ANO P<XCH ) « C 7 * 1 3 ) THEN 
PC 1 «Xf:H*2tLNrnrxr.HiTNXt7?«l7»C0M); — - 



PCDEL); ENO WAIT; 

% *************** M M ***************** % 
si HRnnTjN E Rfi FAbpTAPp; % CALLS MCP TH flKlTfc OUT BUFFERS 



007 
007 
007 



007 
007 
00 7 



234Q T 
2 350 ? 



0004*0 

0005*1 

0006*1 



2400 .. T 
2500 t 
260 T 



0011*0 

0013*0 
0013*0 



BEGIN 
PRFIBC1U * TBO; 
P(C0tQPr0] » Fl.AG(PRFIBrirt3)'C0lQ0*PRL»DEL); 



007 

007 
007 



2700 T 
2800 T 
2 900 T 



0013*0 
0013*0 
00 1 0*1 



rta* pccoiuQ); wait; 

IF (*CQIU0).[27*1J THEN * REEL SwlTCH 
BFtilft ■ 



007 

007 

-OWW- 



3000 T 
3100 T 
3200 T 



0016*2 
0018 ! 
0Ql9»Q 



P(MKS*0#0#[COlOO[NOT 2)3t6#FCR); 

go to rta; 
e n d ; 



007 
007 

_QJ1Z 



3300 T 
3400 T 

asoo t 



0019*2 
002 3 * 1 
Q02-U3 



COIOOCO] *■ 1 INX FLAG(HRFIBL16] «- NF LAG( *C0I 00 ) ) °> 
END RELEASETAPE; 
SLRKnilTTNF TAPF.kHTTF; % flLUCKS HUTPUT TAPFS 



007 
007 
007 



3600 j 
3700 T 
3800 T 



0023*3 
0026*3 
002710 



BEGIN 
PRFIB * *[COI0D[N0T 233/ 
PRFTBf91 » PRFIRCQ3 + U % RFCORQ COUNTER t 



4- 



007 
007 

00 7 



3900 T 
4000 T 
<H00 T 



0027*0 
0027*0 
00 2 8*3 



IF CPRFlfltUl * PRFIBtiU - 1) > THEN 
CQIODIO] «• h INX *CDI00 

E L & t 



* BLOCK COUNTER 



007 

007 

-QflZ 



4200 T 
4300 T 
44QQ T 



0030*3 
0033*1 
0Q3a*o 



BEGIN % TIME FOR RELEASE 

P(0>P«FI8C163 INX MEM>STD>; * ZERO CONTROL kQRU IN BUFFC23 
RELEASETAPE; : 



007 
007 
007 



4500 T 
4600 T 

4700 T 



0035*1 
0035*3 

0Q37M 



end; 

end tapewriie; 
subroutine whites-topper; 



007 

007 

_0J1Z 



4800 T 
4900 T 
50QQ T 



0038*0 
0038*0 
Q03B»1 



45 

46 
47 
18 

49 
SO 
51 
52 
53 
54 
55 
56 



BEGIN * WRITES END OF STRING OR DUMMY STRINGS 
PRFIB <• *tC0I0B£N0T 233; 
X » PRFlBC93&(TBO-PRFl8Cll3Hl8*33*153&("nS"n3*33*l53; 



007 
007 

Ml 



5j00 T 
5200 T 
S.iOO T 



0039*0 
0039*0 
0040*1 



P(X,PRFIB[163 INX MEM/STD); 

TNCC0T3 «■ TNCCOT] + i; % COUNT UP STRINqS FUR THIS TAPE 

R ELEASETAPE; 



007 
007 



54 00 T 
5500 T 



QQMSftflO T 



0044*0 
0045*2 
0Q<*7«? 



PRFIB [93 ♦ I 

end writestopper; 



% ZERO OUT STRING CTR 



X******* ************ **************** 



00715610 T 
00715700 T 
07t5flP fl T 



0Q49I0 
0050*1 
00 52 * 



SUBROUTINE OPENOUT; X UPENS PROGRAMMERS OUTPUT TAPE 

BEGIN 
IF OPTQG THEN _^___ 



00715900 T 
00716000 T 
OQ7161Q T 



0052*0 
0052*0 
0O5?'O 



BEGIN B(MKS#C0UTFILJ»R*1#1#1»BL0CK); 

IF AC THEN 

BEGIN BINGO «• OiJTPRO; EM&Q » 0* 



00716200 T 
00716300 T 
00716400 T 



0052*1 
0054*2 



• t 



n 

2 
3 

4 
S 
6 
7 



IF AC. [4651] THEN % C0BQL6B 

BEGIN P(MKS,BINGO»0*PERFORMGEN); 

crnnu «• [haqut3; 



007 
00 7 
007 



WAOUT * P<*CUUTFIL3,O>C0C); 
END ELSE 



007 
007 
00 7 



6430 T 
6«40 T 
644*) T 



6*50 T 
646O T 
6500 T 



0057»1 

oobe'o 
u a <a * 2 



0060U 
006113 
0061 13 



END END ELSE 

BEGIN DF ♦ FALSE; PRFIB 
PWFIR.C133 tr27M J + Of 



* GUTFILCNOT 23* 



007 

007 

JLQZ 



6600 T 
6700 T 
6800 T 



0064(0 
0064*0 
0067*0 



IF AC THEN 
BEGIN 

P(HKS»tnUTFTl,,fNnT 



2]1i3iCnFCR)l 



007 
007 
007 



69OO T 
7000 T 
7j00 T 



006912 
006913 
007QH 



10 
11 
12 

13 

14 

IS 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

12 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

•5 

46 



DF * PRF..IBU.3 ,1.8.1. 4.J.. * 4; 
IF AC, C .46113 THEN 
BX£Iil CQIC1D t rwAOUTJ 



X C0B0L68 



007 
007 

007 



72Q0 T 
7240 T 
7250 T 



00 7210 
00 7410 
007013 



end; 



WAOUT * PCPRFIBC203.CFF3*DUP'DIB 0*UJO*0* 
C0C*DEL>DIB 0»LOO); 



007 
007 
007 



7260 T 007610 
7270 T 007811 
78 8 T 007913 



ENO... 
ELSE 



BEGIN .. P.UQLTFIU.*0#.11#COM#.DEUOEL)J 

P(MKSr l *Q,0,C-R) , [ nu TFIL3*A L ttR » E L)? E NH> 



007 
007 
007 



7300 T 
7400 T 
7500 T 



00791 .3 
007913 
00811-3- 



END 
END OPENOUTi 



X************«**********»**********a; 



007 
007 
007 



7fiOO T 008410 
7700 T 006410 
7800 T OQ aq t 1 



SUBROUTINE 

BEGIN 

FDR I 



SETUpTAPES; * INITIALIZES TAPES FqR DISTRIBUTION PASS 
» STEP 1 UNTIL NT QQ TStl3 «• TcC 1 3 «• T^C 1 3 » 0; 



007 
007 
007 



7900 T 
8000 T 
BlOO T 



0084«1 
008510 

008510 



CTRL ♦ 01 TCC13 «• COT * U TM1 «• NT-i; 
TP ♦• ((NOT 5} INX CNT3); X ♦ TBOxR+1/ 
FOR I » 1 STEP 1 UNTIL NT DJ2 



007 
007 

QQ7 



8200 T 
83OO T 
8600 T 



009H2 
009511 
Q0981? 



BEGIN 



COIOD ♦ 
PRFIB [18 3 



TP[I J 
«• X& 



; PRFIB 
X t 3 1 '3 3 1 



♦ *CCUI0D 
153&XC1813 



CNOT 2]]; 
3>15]&CIM)[ 1 > 47> 1 3> 



007 
00 7 
00 7 



8500 T 
8600 7 
8700 T 



OlOO»0 
0100*0 

0103 ' 1 



PRFIBU33 
PRFi8t4J . 
PRFI8[9] 



.C271 
C7U3 

» 0; 



13 * 0; 

* ((AC 

PRFIBC1 



x set 

AND 3) * 
13 ♦ TBOJ 



TO OUTpLT 

1); JC080L61 TAPE SORT FlG 



007 

007 
007 



8800 T 
8900 T 
9000 T 



010712 

01 10 10 
01131P 



PRF 



IF CY4-PRF 
I B C"4'J " * f 
IF I * NT 



IBUJ 
RFJBC 



.[12112 

4 ] "4 ( ( Y - 

PC ICQ I 



3) < 1023 
DxETRLNG) 

003»0*11>C 



THEN 

[ 1 3 1 37 : 1 1 J 4 

UM»DEL»0EL) 



PRFIB[l83)> 

wait; end; 
*cQlQpj 



1 CX2«'4»7l 1J i 

* OPEN TAPES 



007 
007 

00 7 



9*00 T 
9200 T 

9J0tl T 



0116»0 

1 1 a 1 

Qj23; 



fl- 



ip I / NT 
I F 1 a 1 



ELSE 
THEN 
THEN 



PRFIBC 
BEGIN 



18 J ♦ ABS( 
P(CQIOD); 
3 » 1 INX 



007 
007 

Ml 



9 4 00 T 
9500 t 
9A00 T 



Ol25»3 
0128 ;o 
013110 



ENUi 
COlGD 
END S 



«• TP[CQT] 
ETUPT aPES'; 



X******************** 
GET80*; * GETS DISk SPACE FOR 

qrl *■: ors; 



00 7 
007 
007 



9700 J 
9 8 U T 
9900 T 



Oi33 * 3 
Oi36»0 
0137*2 



SUBROUTINE 
BEGIN 



*********** 
NEXT R0 W 



**** 

IN OUTPUT AREA 



00720000 T 
00720100 T 
0D7903Q0 T 



013713 
013713 
013B10 



47 
•8 



GRA* 



♦ ORI + 1) 2 30 THEN * DISK SCRATCH 

3 3>84» \7r CU 



IF (QRI 
BEGIN 

if nt < 3 Then pc'i* [qotopin'ot 2 



FILE IS (tUlL 



0Q72O3O0 T 
00720400 T 
00720500 T 



0139*0 
0140*3 
0141*1 



•9 
50 
61 
52 
53 
54 
55 
56 



IF NOT TM THEN SETUPTAPES; 
TM ♦ DISKFULL * TRUE* 
END 



00720600 T 
00720700 T 
00720800 T 



014412 
0147*0 
014811 



IF 



COCDA *■ 
BEGIN 



ELSE 
GUTHEADIORl J) 



* THEN % GET DI^K SpACE 



P(FPBtFNUh*3 3#FPBEFNUM3#FPBtFNU 
.UUTHEAO*L00#4*U*C0M*OEL# 
IF COCDA ♦ OUTHEAQCQRn) « 



00720900 T 
00721000 T 

OQ 72 HOO T 



0148*1 
0148*1 
0150*1 



M*13*QRI# 
DEL»D£L»OEl 
THEN GQ TO 



#del>del); 

gra; X NQ QISK 



00721110 T 
0072U80 y 
00 721200 T 



015013 
0155*3 
045812 



1 

2 
3 



-S-U 



END 
END GETRQW; 
BH ni jTIN F F ORSfcTHTSK. 



% RLTLJRNS DISK NO LUNGER NEFOElJ 



00721300 1 0160*2 
00721400 T 0l60»2 
072 1 50 T 0l 6 Q i 3 



BEGIN 
PRFIB 

WM TLF 



* pcxch); 



I * 9; 

?9 nn tf 



PBFTRril / 



00721600 

00721700 
0(3721800 



0161*0 

0161*0 
Ql62*2 



THEN PCI >.PRFIB#LQD*24*C0M#DEL*DEL># 
END FURfiETUlSKJ 

. , , ,., . .„ , , . . , , , , , , „. , , Jsl A XX XX A , aAa AXmXaaA a aaAAAA.X X X . X .X- X X X X X X X . ' fe . 



00721900 
00722000 
0Q722inn 



0165*1 
0168*2 
016613 



7 

8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



subroutine inrowchk; 

■:■-. 'BtQ'lN' ; ■'^■r-'' 
TF f TS L » ISL S n ,S THFN 



0Q722200 T 
00722300 T 
00732^00 T 



0168*3 
0i69«0 
0169*0 



BEGIN 

I..SL * CORS D.IV DO i > 
if iNHE Ancdrti: «- ihc 



coo oiv dj; 

t (TRC < 29 ) )3 



* BLOCK* 
2_fl 



in row 



00722500 T 
00722600 T 
00722700 T 



01 71 J 2 
1 7 2 ! 
Ql75*0 



THEN IDA «• INHEADCIRC3; 

END 
ELSF IDA + IDA ± 0. 



LH 



00722800 T 
00722900 T 
0Q7Z3QO0 T 



0178*0 
0100*3 
0180*3 



end; 



%*•****•******•*******************+% 



SlinHQiiTTNF INREMP; COMMENT POINT INPUT RUFFFR AT NFXT Hpr.QRp; 



00723100 T 
00723200 t 
00723300 T 



0163*1 
0183*2 
l »3»2 



BEGIN 

IF EOF THEN GO TO RTNRDI 

IiMrntJMT «■ tNrnuNT * 1 t 



00723400 T 
00723500 T 
00723600 T 



164*0 
Ql84*0 

n 185*0 



22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 



IF IPTOG THEN 

BEGIN IF AC THEN 
BEGIN COMMENT CALL INPuT PROCEDURE* 



00723700 T 
00723800 T 
00723900 T 



0i86»l 
186*2 

016 7*1 



22 

23 ( 

24 
25 
26 ( 
27 

2a 

29 ( 

30 
31 
32 I 

33 
34 
35 { 
36 
37 
■ 38 I 
39 
40 
41 
42 
43 
44 i 
45 
46 
47 ' 
48 
49 
50 ( 
51 
52 
53 ( 
54 
55 
56* 



IF AC.U6I1J TH 
PCMKS, BINGO, CPR 
EOF «• ENflQi 



EN PCMkS*8INgO»0/»PerfOrM(jeN) £LSe 
TBASECP(DUP) J3»LOO#IPFIOX#COOI 



00723980 T 
00724000 j 
Qn724i00 ? 



0187*3 
0190*0 
0192*1 



END ELSE 
END 



EOF «■ P(MKS**[lNFI.LJ»0,INPRO); 
ELSF 



00724200 t 
00724300 T 
00724/iQO T 



0193*0 
0195*1 
0195*1 



BEGIN 



IF AC 



THEN 
ELSE 



EOF * P(MKS,R#UNFIL3'0*CQRW) * COBOL 



00724500 T 
00724600 T 
QOf 34700 T 



0195*1 
0195*3 
0197*3 



bEGIN CO 
PCWKS/O/ 
EOF «• PC 



MMENT ALGOL READ; 

0#C1NFIL3»ALRD>; % READ FRE 

MKS*0*3' [INFIL3»ALRD) < 0; % WAIT FOR I/O 



00724800 T 
00724900 t 
00725000 T 



0198*1 
0198*3 
020 Q » 



RTNRD* 



end; 

IF EOF 



end; 
then vcvlow] » nflagc *c0atxts3 3 u 



00725100 T 
00725200 T 
00725300 t 



0202*1 
0202*1 
0202*1 



END INREAD; 



S[18*33*153&1C5*47«13; 



it****************************** * + * + % 



00725400 T 
00725500 T 
00725600 T. 



0204*2 

0206»2 
0,206*3 



45 

46 
47 
18 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SUBROUTINE 
BEGIN 

if Not 



DISKWRITE; COMMENT BLOCKS OUTPUT BUFFER AND WRITES IT; 
P(XCH) THEN GH TO WRTRLflC* % WRITE RLOCK IF TnS * FALSF 



00725700 T 
00725800 T 
Q0725 9 Q T 



0206*3 
0207*0 
Q2Q7*0 



ORC * oflc+i; 

IF (OBC * CBC 
REGlN COMMENT 



X RECORD COUNT +li 
1) = THEN * IF BUFFER E*AUSTeD 
BUFFER I S FU LL SO H RITE I T QuT J . 



00726 
00726 
07 2 6 



000 T 
100 T 
200 T 



0207*3 
0209*0 
0210*3 



WRTBLOC* OBC ♦ TBOi 

5TREAM(P14.0C0A# 

P 2 »r tAtii(pgTFiBU63??; % p i $k apqre ss to buffer 



00726 
00726 
Q 072 6 



300 T 
400 T 
50 T 



0211*1 
0212*0 
0212*2 



BEGIN SI*L0C PI 
PCI INX FLAGCOU 
STQ »PR L» 



; os «• e dec end; 

TFIb[i63>#CDOTOPJ>DUP'QUTFIBCl6J#SFB,XCH, 
DEL^i % C ALL MCP T q RFFIUL B UFF E R 



00726600 T 0213*2 
00726700 T 0214*1 
00726800 T 2 17*0 



IF CQRL*QRL-QD) 
OCBA ♦ocda+oq 

E LS F 



2 UD THEN 



00726 
00727 
00?27 



900 T 
000 T 
100 T 



0218*0 
0219*3 
0220*2 



• • 



r 



GETROK* X GET SPACE AND ADDRESS QF NEXT ROW 

PUDoropn; wait; % wait for i/o complete 

COMMENT ON I/Q COMPLETE SAVE ORhlNUL I/O OESC. IN Flti* 



END 



OgTFIBtl6j.C33«15J * (NOT 0) INX NFLAG( *C00TQP3 >; 



00727200 T 
00727300 T 
00727flOQ T 



02.21 
0223 
0224 



00727500 T 
00727600 T 



0224 
0227 



0737700 T — 02-fc* 



DQTQPtQ] ♦. R INX *£DOTQM; 
RTNDW; 
END DISKWftlTF/ 



% POINT AT NEXT RECORD 



X CALCULATES DISTRIBUTION PATTERNS F 
* uraGr tapfS 



00727800 T 0227 
00727900 J 0229 
00728000 T 



L22-9. 



subroutine oist; 
begin 



or 



00728*00 T 0225 
00728200 T 0229 
00728300 T &2-10. 



10 

11 



CTRL <• ...(.CTRL MOD T*D .♦ . it 
FOR I * 1 STEP 1 UNTIL TMl 
BEGIN TS[I3 t TCLIJ; 



DO 



00728400 T 0230 
00 728500 T 023 1 
007?86n0 T 0233 



13 
14 
IS 



end; 
rNn niSTi 



IF I * CTRL THEN TCCI3 «■ TCCI3 ♦ TCCCTRL3; 



00728700 T 0234 
00728800 t 0238 
Q07289QQ T Q2A0. 



16 

17 
18 



SUBROUTINE SELECT; 

BEGIN 
X t CQT; * SAVE INDEX UF PR IO R TA PE 



X SELECTS A MERGE TAPE TO WRITE A STRANG ON 



00729Q00 T 0240 
.00729.100 T 0241 
00729200 T, Q?4l 



19 

20 



SAt COT * COT ♦ i; 

IF COT * NT THEN 
BEGIN COT ♦ U DIST; END; 



00729 300 T 0241 
00729400 f 0243 
0Q7?95 QQ T Q ?4 3 



22 
23 
24 
26 
26 
27 
28 
29 
30 



IF CQT * CTRL THEN GO TU Sa; 
PRFIB «• COIODtNOT 2)i 
CQIQQCQ] t FLAfi(PRFIBtl63); 



00729600 T 02^6 
00729700 T 02*7 
Q0729flOQ T 02-4 



)249 



IF COT t X THEN P( ((NOT 2) 

20, com, deluded; 

CQIQO ± TP[C0T3 i 



INX TPCC0T3) »CCOIODCNOT 2]], 



00729900 T 0250 
00730Q00 T 0254 
QQ730iQQ T 0255 



COlODtOJ ♦ 1 
END SELECT J 



JNX *COlOD> 



X***********-********************* 



**JL 



00730200 t 0256 
00730300 T 0258 
0Q730fl00 T 



L2-58 



31 

32 

33 

34 

35 

36 

37 " 

38 

» 

40 
41 
42 

43 " 



subroutine writeTag; 

BEG I N 
IF OBC * TBQ THEN 



BEGIN P(0)' DISKhRI 
BUFF <• FLAGCOUTFIBC 

& 



te; tNo; 

163 ) 
30[8»36t 10] 



X WRITE FRONT OF STRI N G TaG* 
X DEVELOP AD0RESS OF NEXT 
X STRING 



X WRITE OUT BUFFER 

X SET TQP I/O QESCRIPTOB TO 



00730500 T 0258 
00730600 T 0259 
00730700 T 0259 



00 7 3Q800 T 025g 
00730900 T 0262 
00731000 T 02 6 2 



STREAM(Pl*L0SA,P2«v 
BEGIN SI »LOC Pi; D 



1C27U2J63; X 30 WORD* 1 SEGMENT WHjTe, 

CBUFFC033); X OISk ADDRESS QF TAG Tq 
S » 6 DEC END; X BUFFERtOJ. 



00731*00 T 0263 
00/31'jOO T 0265 

007 31 300 T 0266 



IF NOT DISKFULL THEN 
IF ORL < 00 ♦ 1 THEN 
BUFFE13 «• SKI; 



GETRO*; 



X GET SPACE FOR NEXT ROW 
X ROW WHERE STRING STSRTEn 



00.73X400 T 0267 
00731500 T 0267 
007 31600 T 02 71 



45 
16 
47 
18 
49 
SO 
51 
52 
S3 
54 



BUFF £21 * 
BUFFC33 * 



org; 
srs; 



X RECORDS/STRING, 

X AMOUNT OF STRING IN 

% R OW W HERE STRI N G ST A R TE D , 



007 31700 T 02 72M 
00731800 T 0273»2 
Q0731qOO T 274 13 



BUFFC43 «• LPS a «" IF MOREDATA 
AND NOT DISKFULL THEN OCDA 
QCPA » OCDA * \i 



X ADDRESS OF NEXT T A G. 
ELSE O; % OR EOF F U AG 
X SKIP QVER TAG AnnRESS 



00732000 T 
OQ732100 T 
0073220.0 



0274*3 
0275M 
027813 



OOTOPtOl ♦ P<.BUFF,LODJi 
P(l INX FLA0(O«TFIBI163 3 
nNS «■ nMS+ii " -". 



SRI «- ori; 

SRS *■ (QRL*0RL' 

ORC , » p; 



X WRITE TAG ON DISK 
#tDQTQP3#PRL>QEL>> 
X STR ING COUNTE R t 1 



1) 



X SAVE WHERE NEXT ROW 
X AMOUNT OF ROW LEFT 
X RE C OR D S/STR ING » q, 



STARTS 



00731300 T 
00732400 T 
Q07 325Q Q T 



0280J0 
028UO 
0283 »1 



00732600 T 
00732700 T 
00732800 T 



0284»2 
0285 l.l 
Q287«0 



55 

56 



END 



P(tooToPi); wait; 

0UTFI8U63 * ; «NOT 0) INX 
HRItETAGJ 



X WAIT 
NFLAGC*tO0TOP3)l 



FOR I/O COMPLETE 
X SAVE 100 IN FIB 



007 32900 T 
00733000 t 
QQ733 1 QQ,; T 



028713 
028910 
929 1* 2 



57) 



rf 

2 

3 
4 
B 



subroutine diskread; 

BEGIN 



* REAOS DIJ>K ON DISK' 
% DISK ME RQ E PAS SFS, 



•TQ- 



00/33200 T 
00733300 T 
QQ7 3340U T 



029H 3 
029113 
029? <0 



BASE * *CDATXCVUOW]]; X 

IF IRL S THEN X 

BFGIN VtVLOW] <• NFLAG(HHK)&HS X 



POINT AT CURRENT STRING 
IF IRL. S O'ALL RECORDS 
IN THTS STRTNG HAVE BEEN 



00733500 T 

00^33600 T 
00733700 T 



0292*0 
029311 
029 4*1 



GO TO RTN.DR' 



FNO* 



C18»33»15J* 

X READ SO POINT 
X ING V AT HK;. 



CORRES^UN- 



00733800 T 02*6*0 
007339,00 T 0297*0 
QQ734Q0Q T 0297*2 



7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 



IRL*IRL-1* 

IF CI8C*IBC-1>*0 THEN BEGIN 

VtvLOHl » fi INX V[\/LQW3i 



X RECORDS LEFT • 1, 

I IF BUFFER NOT EXAUSTEO 

X THEN TNDE* TO NEXT RECORD 



00?3«j00 T 0297*2 
00734200 T 029912 

00734300 t — ningig 



go td rtndk end* 
ibc *..bf; 

Y » P(VLOW,QUP,ADD); 



X BLOCK COUNTER * BLOCKING 
X FACTOR. 



0Q73<U0Q T 03041.2 

0.07.34500. T Q305«0 
07 3 4 600 T 306*1 



STREAMCPl*IDA,P2**ClT0PCY]J)i X 
BEGIN SI ♦ LOC Pi;DS*8 OEC ENq; X 
P(ClTOPCy]]»OuF»LQD»XCH»PHLjOEI.)J %_ 



CONVERT DI$K ADDRESS 

INTO BUFFER. 
READ NEXT Bl QCK 



00734700 T 0307 |2 
00734800 T 010911 
007349 00 t 0310*0 



INROwChKJ 

PC C ITUPC Y3 ] )? WAIT; 

CQ ttMENT PQINT I /O B PAST DISK 



* GET AQQRESS Qf NEXT BLOCK 
X WAIT FOR I/O COMPLETE, 
ADDRESS? 



INX (*tlT0PCY]]))C33«33U5j| 



007 35000 T 312*0 
00?35iQ.O T 0313*0 
00735/j00 T 315*0 



19 
20 
21 



VtVLOW] * V[VLQW]&U 
RTNDRi END DISK REAOJ 



X* 



»••»•»**»»♦»••»»»**»»•»••»*»*»*•»% 



00735500 T 
00735600 T 
0735700 T 



0315*0 
0318*0 
0318*1 



22 
23 
24 
25 



28 
29 
30 



SUBROUTINE. HRITEQUTJ 

BEGIN * SELECTS 

IF NOT FM THFN 



FILE TO BE WRITTEN DURlN G M£RGE 



IF TM THEN TAPEWRITE ELSE BEGIN P(l>/ DlSKWRlTE END 

ELSE 
BEGIN COMMENT CALL OUTPUT PROCEDURE OR WRITE INTRINS T C J 



00735aOC 
00735900 
OO73ftQ00 



00736100 
00736200 
00736300 



0318* 1 

031950 
31 9* Q 



0319*2 

0324*0 
Q_32iLL0 



OUTCQUNT 

IF .QPT.QG 

BEGIN 



♦OUT COUNT 
THEN 



+ i; 



00736*00 T 0324*2 
00736500 T 0325*3 
007366QO T 0326*0 



31 
32 

33 
34 
35 



IF AC THEN 
BEGIN ENDQ «• Oj IF AC.C46U3 THEN 
PtMKSjBINGO.fi.PFRFnRMGEN) 



% CnRQL6H 



00736700 T 
00736800 T 
00736850 T 



0326*2 

0326*3 
0329IQ 



ELSE P£MKS, BINGO* CPRTBASE[P(DUP?]3'L0D»IPFIDX»C U C) 
END ELSE PCMKS*0,nOUTFlL3»Q'QUTPRO); 

_EM! 



007 36900 T 03.301.2. 
007 37000 T 0332*3 
00/ 3 7x00 T 334 *3 



37 
38 
39 



ELSE 
BEGIN COMMENT OUTPUT FILE RATHER THAN OUTPUT PROCEDURE* 
IF AC THEN F(MKS.fli U WOiRj rOUTFR]* liCHRW ) 



0S737200 T 0334*3 
00737300 T 0334*3 
00737/tnp T 3 38*1 



40 
41 
42 



ELSE BEGIN 

PCMKS'1'0'0#R*[QUTFIL3>ALWR)J 
P(MKS *l» Q >Q; C -R ^ [ Q U Tr iL]*AL WR ; DE L ? * 



E N D* 



00737500 T 
00737600 T 
00737700 T 



0338*0 
0338*3 

03401?, 



IF DF THEN IF P THEN P( 1# tOUTFILCNOT 23 3 ,83» 17, COM yi 

enb; 



00717800 t 
007 37900 f 



end; 



0342*3 
034610 
0O738QO0 T — 0f46t# 



46 
47 
48 



end writeuut; 

SUBRO UT I N E S U BME R G E; 



x**********************************% 

i SETS UP DISK INPUT Tn START A MFRGp PASS 



00736100 T 0346*0 
00738200 T 0346*1 
00739300 T 0346*1 



49 
50 
51 



BEGIN 
FOR I * 

BEGIN 



STEP 1 UNTIL CMS-1) DO 



00738400 T 0347*0 
00738500 T 034710 
00738600 T 0351*1 



52 
53 

54 



IF EOF THEN BEGIN 

VU) «■ NFLAGCMHK3&MSU8J33I153; 

P( Of »[ DAtx'r .l 33M»c n C»$Tl ))J X- 



l&L- 



00738700 T 0351*1 
00738800 T 0352*0 
00738900 T 0354* 



4- 



55 
56 



ELSE 



END 



BFGIN 



00739000 T 0356*0 
00739100 T 0356*0 
00739200 T 0356*0 



55 
56* 

57j 



• • 



n 

2 
3 
4 
6 
6 
7 



BASE «• *CDATXtI3]i 
Y «• P(I»DLP»ADD); 
BUFF * *r TTDPTY31 J 



* POINT AT 

I Y f Zxl 



CONTROL INFO 



COMMENT SET I/O » 30 WORO* I SEGMENT READ; 
ITOPtYJ ♦ <*tlT0P£Y33)«30Cfll36U0]41t27l42I63i 

COMMENT PUT ADDRESS OF STRING TAG WORD IN BuFFFH(Q); 



00739300 T 
00739400 T 
Q073950Q T 



0356 
3 5)7 

Q359 



bT«tAMCPl«-C lDA*LlSA)#P2*-*nT0PCYJ])l 

BEGIN SI «• LOG Pi; DS * 6 DEC END; 
P(,BUFF,L0D, rlTQP[Y33*PRL,DEL); X READ TAG TG BUFFfN 2 



00739600 T 
00739700 T 
0Q 7 39flQ0 t 



0360 
0360 
3 64 



00739900 T 0364 
0Q740000 T 0366 
Q07401QQ T QB67 



9 
10 
11 
12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

•a 
49 

50 
61 
52 
53 
54 
55 



COMMENT READ 1ST DATA RECORD T 
ROTATED TO BUFFER #U 

p g i TQ P mn ; w a it; % wait fq r i/q 



BUFFER *2> TAG GETS 
COMPLETE 



00740200 T 0369 
00740300 T 0S69 
Q07 4 Q4QQ T 369 



ST«EAm(P1*-( IDA* IDA +1 UP2«-*[ I TQP[ Y 

BEGIN SI * ICC Pi; OS ♦ S DEC 
Pf»MT0P[Y3].MTr)P[Y] ,jPRL»DEL)J /> 



33); x block $\ address 

end; 

read block »1 



0074 0500 T 03 71 
00740600 t. 0374 
007 4070 t 037*5 



puiTQPmn; wait; 
buff ♦ *ciTopmj; 
iac » Br; 



% wait for 1/0 on reading tag 



00/40800 T 037? 
00740900 t 03?9 
00741000 T 0380 



IRC > BUFF C 13; 

IRL * BUFFI 23 ...- U 

181 *■ (BUFFt31 DIV OU 3 x COO DIV P 3 Jt 



0074U0O T 0381 
00741200 T 0383 
00741300 T C-3&5- 



IF (LISA ♦ BUFFC413 S THEN EOF «• TRUE; 
INBOWCHK; X GET ADDRESS OF BLOCK #2 
STREAM(Pl»lnA iP?»CRUFFf0313; ■ 



00P4U00 T O388 
00741500 T 0390 
0Q7 4 1 6 0Q T 03-92- 



BEGIN SI*LQC P U OS «■ 8 DEC END; 
P(.BUFF J LOD,[ITOPCY33#PRL#DEL); X READ BLOCK #2 
INROWcHM % GET ADDRESS OF BLOCK #3 



00741700 T 0393 
Q07«1800 T 0394 
007 41 900 T Q4A6 



p(cnoPtY33); wait; % nait for i/o 

V CI3 ♦ NFLAq((1 INX *ClTOP[Y33)&ni 



COMPLETE ON BLOCK #1 
8»33»153); 



-EAI4^ 



00742000 T 0397 
00742100 T 0399 
007 i1 2a T 0-4££ 



end; 
end submerge; 



%*•********•************************ 



00742300 T 0402 
00742400 T 0402 
Q74 25Q0 T OAO-2 



subroutine firstselect; % initial selection of low record 

BEGIN 

x » 0; I+MS«i; 



00742600 T 0402 
00742700 T 0403 
0n7fl?ft00 t 0-4JL3 



DO BEGIN 

1*1+1' 

VCI3 * VCX + ((IF ALFA THEN PCO , MKS,0, vxl , VX, EQUALS ) 



00742900 T 0405 
00743000 T 0405 
00743100 T 0406 



ELSE IF AC THEN P (O'MKS* VXl# VX, EQUALS ) 
EL8E PCMkS#VA1#0,VA,0, EQUALS)) AND TRUE)j; 
END UNTIL fX»X+?) » STPP; VLOW » V C I 3 . [ \ 8 1 153 ; 



00743200 T 0410 
00743300 T 04 14 
074 3400, T 0421 



end firstselect; 
subroutine lowselect; 

BEGIN 



00743500 T 0425 
00743600 T 0426 
Q Q743 70P T 0426 



X * VLOW 
DO BEGIN 
T » MS ♦ 



AND 1Q22; 

X. C38I93; X I 3 MS » (X / 8 ? 



00743800 T 0426 
00743900 T 0427 
00744000 T 042 7 



VCI3 «■ V CX + C < IF ALFA THEN P (0#MKS> 0> VX \* 

EL^E IF AC THLN F(0#MkS,VX1*VX# 
ELSE PCMKS»VA1,0*VA,Q, EQUALS)) AND 



VX, EQUALS) 
EQUALS) 

TRUE)); 



00744J00 T 0429 
00744200 T 0433 
0Q744 3 0Q T 437 



X * I AND 10221 

ENO UNTIL I ■ STPPi VLOW * VCUfC 184.1 
END lowselect; 



53; 



00744400 T 0444 
00744500 T 0445 
00744600 T 0448 



************************* 
SUBROUTINE SORTlT; % DEVELOPS STRINGS FROM I 
BEGIN 



********** 

nput Tape 



COMMENT. USE SPfCJAL SORT COMMUNICATE TO GET STORAGE FOR 
VECTOR ARRAYS! 



00744700 T 0449 
00744800 T 0449 
0Q744900 T 0449 



P(R,S+l*tDATN3»2l^ 



00749000 T 0449 
00745f00 T 0449 
00745200 T 0449 



• • 



n 

2 
3 
4 
5 
6 
7 



P(MKS#CVN]/(2xS)-l*l»l/l#BLQCK); 

stpp «■ P(Ms*s#oup#ADD»2»sua>; 

COMMENT CALL HIVALL TO SET UP HK1 



ROW QF pATAf 



00745300 T 
007(j5400 T 
0Q7455QQ T 



0<|51*2 

0454*1 
Q456I3 



STREAM(A«.*tDATXCS3 3#B*H"»i#C*P<DUP).£36l6))J 
BEGIN OUAjSK-LOC CI0S*WDSj 
SI»AJC(d5»33 WpS*DS»a2 HnSllDS+B WnSi 



00*45600 T 
00»45700 J 

Qnrtsaoo t 



0456*2 
0459(1 
0460*0 



end; 

p((sks#*c.d.atx[s.3j j; if nut ac 

commfnt initial fill of data 



THEN P(Q>RDS'CFX#Q); pchivalu); 
ARRAY FROM INPUT SOURCE; 



00745900 T 
00746000 T 
00746100 T 



046210 
0462*1 
0465*3 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
IS 



IF TR i THEN 
BEGIN COMMENT NOT 1 ST 
QUTFI B 6133. 127 * 13 



» 11 



ON SORT SO 



FILL DATA FROM DISK! 
X SE T FI jE TO REAP 



00746200 T 
00746300 T 
0074 64 0,0 T 



04651 3 
046612 

0467*0 



9 
10 

12 

13 

14 ( 

15 

16 

»7< 

18 

19 

20 ( 

21 

22 

23 \ 

24 

2E 

26 ( 

27 

28 

29 ) 

30 

31 

32 4 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 4 

42 

43 



P.UD.QT0P3,0.,H*CQM»DEL#DEl.)J * OPEN QiSK FILE 

pcCDOTUP]); wait; % sleep until file is opened 

OCDA <• OUTHEAIUIOJ ± P (On, PUP/ ADD) i _ 



00746500 T 
00746600 j 
00746700 T 



0469*2 
0471*0 
0472*0 



I * o; orl * ors; 

WHILE I < S DO 
BEGIN 



OBC * T80I 



IF I < TR THEN 
BEGINKOMMENT MC/E RECORD TO DATA; 
STREAM(Pl»*CDQT0P3,P2»R»P3»(P(0UP)).r36tfi3» 



0474*0 

0476*2 
^7Q00 T — 04 7 71 3 



00746800 t 
00746900 T 
007 



00747100 T 
00747200 T 
00747300 T 



0477*3 
0478*2 
Q479*n 



19 
20 
21 

n 

23 

24 

26 

26 

27 

28 

29 

90 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



P4«"*CDATXm))j 

BEGIN Sl«-Pi;Pi(DS*32 

P(t)i OlSKwRlTl 



wds;ds+32 wqs); ds+P2 wos end; 



iWRITL' 



00747400 T 0480*3 
007*7500 T 0481*3 
007 <| 7600 T O 4 8MO 



* NFLAGCC*CDATXCI33)&IU8l33U5 3>; 
E LS E VCH + NF LAG U« E0A T x CSJ 3 )« > S[ia« 3 3n5HU5U7*l J )i 



Vt.I.J 

END 



00747700 t 
00747800 T 
00747900 t 



048510 
0487*2 
Oqfl7*2 



I ♦ 1*11 

end; 

PrMKSjtf,QjCDOT0PfNQT 



?33f 4^ FCR ?; % REWI ND 



00746000 T 
00748100 T 
00748200 T 



0491*2 

0492*3 
0493*1 



QUTFI8tl33,C27«l3 ♦ 0; % SET 
P(CDOTOP3»OM1'COM*DEL#DEL); 
PC[DQTOPri33)i wait; 



TO OUTPUT 
% OPEN FILE 



OUTPUT 



00748300 T 
00748400 T 
00748500 T 



0497*0 
4 9.9 I? 
050H0 



go to ipb; 
end fill of data from disk; 

IF IPTQG OR AC THEN BEGIN INREAD; INCOUNT » 



end; 



00748600 T 
00748700 T 
00748fl00 r 



0503*0 
0503*2 

050313 



FOR VLOW > STEP 1 UNTIL 8*1 DO 

BEGIN COMMENT FILL DATA FROM INPUT FILE; 

IF VLQW * THEN INREAQi X POINT AT NEXT RECORD 



00748900 T 
00749000 r 
QQ749 1Q Q T 



0506*3 
0511*0 
0511*0 



IF NOT EOF THEN 

BEGIN1 COMMENT MOVE RECORD FROM FROM BUFFER TO 0ATA[ VLOW'03; 
STR£AM(P1*»CCIIODJ»P2»R>P3»P(OUP).C3616 3, 



00749200 T 
00749300 T 
00749*00 t 



0513*0 
0513*2 
0514*0 



P4* *[DATXCVLQw33); 
BEGIN Si.* pi; p3( 0S.r32H0S J.D.3«-3.2WDS ); qS*P2 WDS END; 
wrVLOWJ - NFLA6t(*t0ATXCVL0Win&WL0W[1ft*33ll5J)l 



007 49500 T 
007^9600 T 
00709700 T 



0515*3 
0516*3 
0519*0 



IPB* 



end; 
end initial fill loop; 

nRT * 1QJ GETRQW; 



00749800 T 
00749900 t 
00750000 T 



0521*2 
0521*2 
0122*0 



IF OISKFULL THEN PC1*CDUTQPCNQT 2]]»81,17#C0M3; 

ocda «■ ...UO.SA «. outheaqccj.rij) t 1; 
SRS»qRL»QHS*w Sri+qri; onS»orc4.q;obc»tbo; 



IPBAI FIRSTHCUCT; X INITIAL COMPARE 

go to n»o; 

IPC* LOHSEJ.ECT; % INTERM COMPARE 



O075OJ00 T 
00750200 T 
007,30300,1 



0524*0 
0526*3 
Q526M 



00750400 t 
00750500 T 
0075 6Q Q T 



0533*3 
0535*0 
0535*2 



ipd* if vlow < m5 then 

begin;comment move next record to output area; 

STREAM(Pl<-VL,P2«-R»P3»CP(DUPn f [36t6 3jP4»»i;n0TQP3 W 



00750700 T 
00750800 T 
00750900 T 



0537*0 
053713 
0538*1 



begin si*pi;p3(Ds*32wos;os*32wds);os*p2 wos end; 

PCiJJ OtSKWRlTEi t WRITE ON DISK THE RECORD FROM OATACVLOW'OJ 

INREAD; „ I POINT A T N EX T R ECORD ^ 



00751000 t 
00751 tOQ T 
0075120 T 



0541*0 
0543* 1 
Q54SI0 



J0 



• • 



IF NOT EOF THEN 

BEGIN COMMENT CHECK IF NEXT RECORD IS SMALLER; 

IF C IF A LFA, THEN P(Q»fr*5fQf*r INFILL VLfCQUAL&X 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 



ELSE IF AC THEN PC0>MKS# *t CIIOD] * VL'EQUALS) 
ELSE P(MKS»XAL*0#VAL#0» EQUALS)) 
THFM VtVLOWl ♦ NFI Afi( ( » f D AT * f MS 1D&MS T 1 8 H3 I 151 jj 



00751300 T 
00751400 T 
00751500 T 



0546 
0546 
0547 



00751600 t 
00751700 T 
00751,800 T 



0549 
0553 
Q5S8 



STREAM(Plt*tCIlUO]*..P2*R'P3«-PC.OOP),£36.>6 3#P«**tOATXCVLOH3)); 
BEGIN SI*PliP3CD5*32H0Si0Sf32N.0S);05>P2 WDS ENDJ 
% Mt'VE NEXT RFOflRD TO DATA 



00751900 T 0561 
00752000 T 0563 
00 7 52 tOQ T &S66- 



END* 

IF NOT OISKFULL 

end; 



THEN GO TO IPCJ 



00752200 T 0$66 
00752300 T 0566 
00752/(00 T 0Sft6 



7 

8 I 

9 

10 

11 I 

12 

13 

14 I 

15 

16 

,7 I 

18 

19 

20 I 

21 

22 

23 ' 

24 

25 

26 I 

27 

26 

29 I 

30 

31 

32 * 

33 

34 

35 I 

36 

37 

38 I 

39 

40 

4,1 

42 

43 

44 < 

4E 

46 

47 ( 

48 

49 

SO 1 

51 

52 

53 < 

54 

55 

56 ' 

57, 



COMMENT END OF 
IF NOT OISKFULL THEN 
FflR I t Q STEP 1 UNTl 



stringing pass or no more data! 
* check for record * high key 

TIL MS-1 00 



00752500 T 0566 
00752600 X 0566 
00752700 T Q-5-6X 



14 

'5 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37" 

38 



if (vlow ♦ vuj,£18*15j) < ms then go to ipq* 
mqredata * false; 

FnR I- STFP \ UKTTL MS-) no 



00752800 T 0572 
007J2900 T 0575 
00753000 T 05 7 6 



if not vu),[5U] then 

BEGIN V[U * NFLAG(<*[DATXCimU[18!33»153)' 

MnRFHATA «■ TRUF FMfli , 



00753100 T 0580 
00753200 T Q58l 
00753300 T 0564 



IPE» 



OISKFULL «■ TM AND ONS i M-l Oft OISKFULL' 

writetag; * write string tag word in front of string 

IF OISKFULL THFNI GO Tfl IP6J . 



00753400 T 0585 
00753500 T 0588 
007 53 600 T Q590 



IF MOHLDATA THEN 

IF NOT TM OH ONS < M 
ELSE GO TG IPG* 



THEN GO TO IPBA 



00753700 T 0591 
00753300 T 0591 

0075 3 900 T 0^9-3 



IPGJ JENO 



FM * NOT 

sortit; 



TM AND ONS S m; 



X*«****»**»»»****»*********»***»*»i 



00754000 X 0594 
O0754J00 T 0596 
00***200 T 0597 



SUBROUTINE MERGElT; * MERGES M STRINGS TO 1 STRING 

BEGIN 

MTCt firstselect; 



00754300 T 0597 
00754400 T 0598 
00754500 T Q5-9.B 



MIDI 
MTE* 



GO TO 
LOWSEL 
TF VLO 



mie; 
ect; 

W < MS 



THE N 



00754600 T 0599 
00754700 T 0599 
0Q75 4 RQQ T 60.1 



BEG 
S 

3. 



in; * MOVE L 
THEAM(Pl*VL» 
EGIN S i»pl; P 



ow record to output file 

P2*-R»H3«.(P(DUP)),[36»6]*P4«.*tC0l0D]); 
3(0S»32WnSinS«-32WpS)iDS» P2 wps end; 



00754900 x °60l 
00755000 T 0602 
O Q 7 5b i OQ T 0605 



W 

G 

END 



riteout; diskread; 
q to mio; 

; 



00755200 T 0607 
00755300 T 0609 
00755a00 T Q609 



40 
41 
42 
43 



for 1 «■ step 1 until h 

IF (VLUW «• Vtl],[l8»li 
IF NOT TM ANQ NOT EOF TH 



S-l DO * CHECK FOR RECORD 
]) < MS THEN GO TO MIEJi 

EN 



HIGH K£Y 



00755500 T 0609 
00755600 T 0613 
00755700 T 0617 



45 

46 
47 
•8 



begin comment have merged m strings from input; 
writetag' %■■ to one string in output* s e lect 
submerge; % m more strings tq merge 



08755800 x 0618 
00755900 T 0618 
00756000 T 0620 



GO to mic; 
end; 



end mergf.it; 



********************* '*****% 
I2E SORT PASS 
R>0) OR MF)i R » A6S(R)J 



00756100 T 0621 
00756200 T 0621 
0Q756 3 00 X 06g l 



50 
51 
52 
53 
54 
55 
56 

52 



startj 



BtKCTS 



*** 
X I 
BLKCTR ♦ 



****** 
NITIAL 
<<AC » 



00756400 T 0621 
00756500 T 0621 
00756600 T 0634 



IF AC THEN IF CORE 

BEGIN AC*3; 
6LKCTR 



SlZE.t 

CORES! 
* BL* 



■'■■■-• •-•■ 



IF HOT OPT OS T*EN 



H1J THEN % IDENTIFY C0B0L68 

Z£<-ABS(C0RESIZE); 

CTR ■ XI - 



00^56610 T 063a 
00756620 T 0639 
007 5663 T 0642 






'/■.'<. ■- ■ .'■■ ■ 



: ■ -■''■'- —■■■■'!■■ 



00756650 T 0643 
00756700 T 0643 
QP 7 567 11 ? T Q6 4 3 



>r 



2 
3 
4 
5 
6 
I 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 



22 

23 

24 

25 

28 

27 

28 " 

29 

30 

31 " 

32 

33 



34 
35 
36 

37 ~ 



38 
39 



40 
41 
42 
«3 
M 
45 
46 
47 
♦8 
49 
50 
51 



52 
53 



54 

55 
56 



End; 



PRFIB «■ OtTFUtNOT 23; 

IF R > (PHFIBC1B3. 133*153) THEN 

Pf lr [QUTFILfNnT ?)Ub7t\7tCA)U)i 



P<MKS»CTSN3>CTCN3»CTNN3> 8 #1#3>1#BU0CK); 
TF MF THFN GP TO P(PHI YMFft Q ni 



LISA .*. IF..1PTQG THEN ELSE X SUE OF INPUT BUFFER 

2xP(*tlNFlLtNQT 23 ] * 18f C.Q.C ) . ..[ 3* 15] t 

CQRES I ZE t LIE CnRFSl Zc = THFN 12000 FL§E CDRFS IZ F) 



ONS 



" 2000 • lisa; 

IF CORES Ut < 2500 THEN CORES I2e ♦ 2500; 

» R » ABS(BW s-t-jt-t *\ ? } , 



WHILE QNS < 30 DO ONS «• ONS ♦ R; 
LY* IF ONS > 1023 THEN BEGIN QNS «• ONS - RJ GO TO LZ END; 
IF QNS HOD 30 t THFN BFflyN OKS «. HLS * K; gli Tfl |„Y E Mp; 



COMMENT ONS NOW MINIMUM BUFFER SIZE; 

lz* orc ♦ ons; 

WHItF (ORC i HMS, < 150 nn nRC » riRr. ♦ n N S * * pS K ^oT anrp «7 



orl •• qbc; 

WHILE (ORC + ORL) i 450 DO 
ncru <• criREST/r - ?xhri i 



ORL ♦ ORL ♦ ORC ; »DSk QTpT BUFF SZ 



LOSA * COCOA-R) OIV <2xQRC); 

IF LOSA i 2 THEN M > 2 ELSE WHILE 

t OSA <• fncnA-R^ mw fR*3)I 



M > LOSA DO M*M OIV 2; 



_LXl 



IF LOSA < 2 THEN S * 2 
SRS «■ 0«L' SRi «• qr c ; 
QRI «• 2X QRL + 2XMKQRC1 



ELSE WHILE S > LOSA DO S>S OlV 2; 



IF ORI < l,l*CQRESjZE AND ORC S 1023 THEN 
BIGIN 

srs » orl; sri » owe; 



ORC * 
ORL ♦ 
GO TO 



orc + onS; 

ORC; WHILE 

LX ; 



ORL < 300 DO ORL * ORL ♦ ORC; 



end; 

D * SRI DIV 30; 
BF » SRI DIV R; 



IF SRI MOO 30 * 
TBQ » SHS DIV R; 



THEN D ♦ D + i; 



COMMENT COMPUTE &ISK ROW SIZE* * ROWS 
PISKSIZE * C IF DISKSIZE ■ THEN 1000x600 
/ (BFxl9xR); 



ALWAYS = 20; 
EL*E DISKSIZE) 



IF DISKSIZE S (Y ♦ TBQ OIV BF) THEN 
DISKSIZE «■ Y ♦ Y ELSE 
WHILE (QISKSIZE MOD Y)*0 QQ DISKSIZE»DISKSIZ£ ♦ l; 



od «• o x y •; 

COMMENT SET UP DISK OUTPUT 
OUTFIB » +CDQTQPCNOT 2] J J 



FILE AS ALGOL FILE; 

* GET FIB DESCRIPTOR 



OUTFIBC 83 * (DISKSIZE DIV Y ) «20C 15* 381 103 ; X # ROWS, ROW SIZE. 

OUTFtBC133.ClO»93 ♦ OUTFIBC 13 3 , C 119 3; 

0UTFIBC43.I7I13 » MAC AND 3) • 1); XCQB0L61 OlSK SORT FL fi 



QUT.FIBC.183 * CX*TB0xR)&Xc3J33ll5]&X[i8l33«l5j; % OlS K BLOCK 
IF (Y«-0UTFIBC4).C12«12J3 < 1023 THEN % FILE t TO FILE INDEX 
QUTFIBC«J » 0UTFIB[43&CCYM)x£TRLNGH13»37»ll3&lCl2U7ll3i 
IP FP8CFNUM4-33, 116173 » THEN X NOT LABEL EQUATED 
FPBCFNUM*f3,[16!23 t« l; X USE FAST DISK 



COMMENT OPEN DISK OUTPUT FILE* WILL SET UP FIBC163 

WILL POINT TOP I/O DESC» PAST DISK ADDRESS; 
.P.C.CRQ.TQP]*.Q.»11»CQMf DELUDED* 
OUTHFAn *■ »L0UTFTRri< t ]3i , 



AM. 



4 



IF NT > 2 

OUTHEAOt«3>OUTHEAOC83 OR MEM; 
_ fifiMMFHiT QFT njfiit A&JLCC C 0P 1 *Q»f 



00756720 
00756730 
007.5,67fl0. 



00756750 
00756800 
nOTBfttOO 



064*111 
064680 
0647*2 



00757000 
00757100 
00757200 



0650*0 
0650 1 
0652* 1 



0655*3 
0657*1 
0660*2 



00757300 
00757310 
00757 *1 00 



00757500 
00757600 

00757700 



0662*2 
0664*1 
6 66*1 



00757800 

00757900 
00758000 



0669*0 
0675*0 
0676*0 



00758100 
00758200 

0075830 



00758400 
00^58500 
00758600 



0681*2 

0681*2 
068211 



0685*3 
0686*2 

0690 * 



00758700 
00758800 

007^6900 



0691*3 
069*,| 

0699*2 



0701*3 
0707*1 
Q7Qfl»3 



00759000 

00759i00 
007^9200 



00759300 
00759400 
00759500 



0711*2 

0713*3 
Q7Utl 



00759600 
00759700 
00759ft00 



0715*3 
07*7*0 
0722*0 



0722*2 
0722*2 
0726*1 



00759900 
00760000 
00760100 



00760200 
00760300 
00760*100 



0729*1 
0729*1 

073 1*3 



00760500 
00760600 
00760700 



0734*0 

0>35«3 
0737*2 



00760800 
00760900 
0Q76 10QQ 



0741*2 
0742*3 
074213 



0076U00 
00761200 
0Q76UQO 



0744*2 
0747*1 
0750*? 



00761310 
00761320 
0^6 U 00 



0754*0 
0757*3 

7 59* 3 



00761500 
00761600 
00761700 



0764*3 
076712 
Q 7 711. 3 



00761800 
00761900 

00762000 



0771*3 
771*3 
0773*1 



0774*2 
0775»1 
0777*3 



< 



7 

8 
9 
10 

12 

13 
14 ( 

15 
16 

»< 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29< 

30 



31 
32( 
33 
34 

35 I 
36 
37 
38( 

39 
40 

41 I 

42 

43 



45 
46 
47 < 

48 

49 

50 ( 

51 

52 

53l 

54 

55 

56 ' 

57, 



h 



10 

II 

12 
13 
14 
IB 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
26 
26 
27 



28 
29 
30 
31 
32 
33 



34 

35 

36 

37" 

36 



40 
41 
42 
43 



♦5 
46 
•7 
«8 
49 
50 



52 
53 
54 
56 

56 



pccDOTOPtnJ); wait; % wait fur 

ORI «■ 9; GE.THOW; MOREDATA ♦ TR «■ -11 

if niSKFuLi then 



FILE TO BE OPENED 



P(1*£0OTOP£NOT 233*8-l» J7*C0M)J * IOR 8j 
COMMENT IF INPUT FILE THEN OPEN IT* IF PROCEDURE 
I NITUIZE L INKAGE TQ C A LL I T; 



00762100 
00762200 
007 6 2 3 



then 



IF IPTQ.6 THEN BEGIN IF AC THEN 

BEGIN ENDS ......«■ Oi BINGO * INPROl 

PCMKS'C IN.FU lyFflMfWBLtlCKW. 



00762400 
00762500 
007636 



0777*3 

0780*0 
07 8 312 



end; 



IFCAC AND 3)*3 THEN X C0B0L68 

BEGIN CIIOO * CWAIN3; 
WAIN » P(fINFlL3*nuP*L0n>n«r.nr«n£L*L0p); 



00762700 
00762800 
00763000 



JUL 



END END ELSE 
BEGIN COMMENT CHECK FOR 
AC THEN BEGIN F(MKS*(NQT 



00763050 

00763100 
00763150 



078313 
078611 
07 8 6H 



078611 
078711 
078913 



079112 
079213 
079*10 



ALGOL OR COBOL' 

Z) INX UNFUJj1»CQFCK),J 



IF AC,C46*l3 THEN X COBOL68 

BEGIN CIIOD * CWAIN31 
MAIN » P(*CINFILCNQT >13»90jCOC»OjXCH#FCX, 



00763200 
00763300 
Q76 3 4 QQ 



0796M 
0796*1 
0796M 



0LP*DI8 O'LOO'OjCOC^DEL'DIB 0*L00); 
END END ELSE BEGIN % OPEN ALGOL INPUT FILE 

PRFIti t +LINFILCNQT 2 J 3 i 



00763440 
00763450 
Q0763460 



fnd; 



PRFIBtl33,C27ll3 «■ 11 
PCMKS#0#3*tlNFILl»ALR0«0EL)l 



end; 

IF (AC AND 
CALLSQRT1 



3)/3 THEN CI.UD «• tlNFlLJl 



SORTlT; 
EkDSqrTPASSI 



1 SORT INPUT FILE INTO STRINGS 

2**********************************3; 

COMMENT TURN BACK WHaTS NO LONGER NEEDED AmD 



INITUIZE MERGE PASS! 
IF EOF THEN CQMM£ N T CLQ*>E INPUT TAPE! 
IF NOT MOREDATA THEN 



BEGIN 

IF IPTOG 



THEN PUINFU3*3*C0M#DEL> 

ELSE P<MKS,2»0;ciNflLcNQT 233»4*FCR>1 
iNCOUNf * THEN P(1#CDOTqP[nOT 233*86*17, COM)! 



IF 

END! 

TF MHREDATA 



TH EN 



BEGIN COMMENT SAVE 
TR * 01 OCDA ♦ 
QBC » TB01 ORL 



CONTENTS OF 
OUTHEADCORI 

♦ QRSi 



DATA ON DISK! 

♦ 103; 1 ♦ 0; 



I < .. S DO 



WHILE 
BEGIN 
IF, NOT ILXL OIIXJ THE N 



BEGIN 

TR ♦ TR *i; 
STREAM(Pl4.«tQATx.m3*P2»R,P3»(P(0UP)).C36l6 3, 

P4«-*CDUT0P3); 
BEGIN SI*pi;p3(DS*-32WDS;dS*32WdS);dS*P2 WDS END! 

pep; diskwrite; 

1 * ■■■.'.'T'-.-y": - 



eno; 

I *" I 



— 



+ 11 



■■'< -■!-»' 



lafeA; 



p(0)1 diskwrite! * write block 
end; 

AC «• AC&E0FC2«t47ll]&M0RE0ATACH47tl3; 

■■""■" ':':', .■■■■■■ ■■;■-■■■ :jr. ^ .^..■.... w,,'Tri3?r*rT r -Tr ^V . ■ "■ ■ . ' . ' ■■ . » „ ' ■■ • ■■■ — "T V, ■>.!... ' ■. J^ ' J... ,:■. ' '., ' ,.. '■ M.- ' .ffiA i . ' .i.. . ' ■",. 



CDMMCNT TfRfc BACK DATA & V£C?UP ARRAYS/ 

p(,«5iATA#toe#ftre*,fiiiifA*«To,t0*Tftii»«*coM#oEu)* 



00763470 
00763500 
0Q7636QQ 



079911 
080010 
QflQHl 



0803 1 3 
080611 
06Q61X 



00763700 
00763800 
00764200 



00764300 
00764350 
Q076 4400 



080812 
08H10 
081212 



00764500 
00764600 
00764700 



0812' 2 
0812*2 

0815 » - 



0815*0 
081610 
8 16* 



00764800 
00764900 

Q Q764q5Q 



08l6*0 
0816*0 
0816*1 



00765000 
00765100 

00765?00 



00765300 
00765400 
00765^00 



0817*1 
081713 
08191? 



00*65600 
00765700 
QQ76580Q 



0823*3 

0827*0 
62 7* 



082711 
082713 
083013 



00765900 
00766Q00 
00766100 



0832*2 
0833*3 

0933*3 



00766200 
00766300 
00766<|00 



00766500 
00766600 

iill|i Br wil " 1 *u ii l MLJKlwIii- iil W iiilX— 



083510 
083512 
083613 



00766800 
00766900 
QQ767QQQ 



00767100 
00767200 

00767300 



0838*3 
083912 

9BH»1 



064310 
0841(0 
0fl4Ali 



00767400 
00767500 
007 6 7 6P9 



084413 

0846*0 
0846*0 



084813 
084013 

QW 1 * 



rt 



13 



16 
17 
18 
19 

20 



21 



23 
24 



27 
2B 
29 



31 
32 



33 
34 
35 
36 
37 " 



39 



41 
42 
43 



46 
47 
«8 
49 
50 



53 
54 



55 
56 



STPP «■ P(M5> «- M#0UP*ADD'2*SUb); 
BLKCTH ♦■ BLKCTR + i; 

COMMENT OLCLARE DISK flUTPtiT 



FILL* 



itnk «• o; 

P<MKS#20 # DISkSIZ£#3#0UTFIBC43,U3IUJOIV ETRLNG ♦2>tDKl3 
tV»2»H)»l»BrxR.0»0»inffl» BLOCK 11 



INFIB *■ *C|TNKC2]]; 

hop «- mNKcsiHYteueuo] 

CriMMFNT HPFM gnu 



X POINT ITOP AT TOP I/U 



PU ITNKC 53 J >0»11# COM, DELUDED* 
INHEAO * *tiNfI8CH3]J 

TF NT > ? THFN 



INHEA019J *..lNhEADt8.J.41l2»«7»13; X FLAG SORT DISK 
PCtlTQ.PlY*.YTl.]]); WAIT! X WAIT FOR FILE TO BE OPENED 
IF INHEADC1U] JO THFN , 



PUO,.I*HEAD»LGD# 24, COM*OEL*OEE ); X RETURN 1 ST RQW 

COMMENT SET FILE TO REAO & PERMUTE 2 BUFFERS* 
1NFIBC133 » IXFlBtl3H2tl0l39l93tlt27t47llH 



INFIBt.16]..* (*CINFIBI.16J3)4 1C24U7I13I 

COMMENT GET DATA AND VECTOR ARRAYS; 
P(MKS»rvN3j(2xH)-l.l.l,l,Bl QCK)i 



P(5*M+i*tOATN3#2l#cOM»OEL*oEL«OEL)J 

COMMENT GENERATE HIGH KEY RECORD* 
MHN » 0* P(MKS,rMnhn.R,l,l.1,pL,QfK)l 



pc..mks/mhk3* if not ac. then. pcc# cdc, mhk, xch,rds,cf x #q ); 
pchivaluj; 

FOR I <• STFP 1 UNT IL Y D 



lT0Ptl3 * (NOT 
DKC* IF NOT TM THEN 
REfilM it niSK HKit v 



0) INX (*ClT0PCI3))*lt2UU7ll3*0t27.U2t43l 



spirt chmpi ftfd 



IF FM THEN GO TO DKF* 

PC10>«UUTHEAD*LQD'24,COM,DEL,DEL>; X RETURN OVERLAY SPACE 
P(.INHEAD«LOn#.QUTH£AD^LOn>.TNHFAn/ STn>.nUThFAn^STp^ 
SRI ♦ ORI* ORI * 10* X $R!« AMOUNT OF DISK USED TO Nfltt 
WHILE ORI < SRI DO X GET ANOTHER AR£A Of QlSK • SRI 



BFGTN 



GETROW* 
IF DISKFULL THEN 
BEGIN PC«OUTHfcAQ,LOD)J 



DKH* 



end* 

COIOD «- UOTOP* 
OCDA » (LOSA » OUTHEADrCSRT 



fqhgetdisk; go to tpa; end; 



» CRT <• 1 1)3) * 13 



SR$ * 0RL «■ ORS - i; 
CKE! LISA «• INHE.ADCll.3J X LOCATION OF FIRST TAG 
MQRFnATA » NnTfEHF » nTSKFyn » n N s «• n); 



SUBMERGE* MERGEIT* 

IF FM THEN BEGIN PC *t INF IBf 14 3 3 )l 

MOREOATA » FALSE; hRjTFTAr.a 



forgetdisk; go To tpc eno* 



OkF« PCtlNHEAD#LQD#.OUTHEAD*LOD,tlNHEAD*STD#tOUTHEAD#STD); 
IF ONS > M THEN GO TO DKD* 
FM » THUF* MS «• 2; WHILE QkS > MS n CI MS«-mS*?i 



STPP 



* 2xM5 , »2J 

COMMENT REPLACE DISK OUTPUT BY PROGRAMMERS OUTPUT; 
P CffKS»Q#@yCOPTQP£NOT 233*4, FCR)j X RETURN BUFFERS 
OPENOUT/ IFCAC AND 3)*3 THEN COIOD «• [0UTriL3; 
GO TO DUE* 

fnd; 



TPA* 



COMMENT DISK-TAPE MERGE* 
P<.INHEAD#L0D# c .OUTHEAD*LO0>,INhEAD*5TD> f QUTHEAD#$T0>* 
P(HK SfQ»Q,lDQTQPCNQT 233,4, FCRli % RETURN RUFFERS 



00767700 
00767800 

0fl7ft790fl 



00768000 
007 68 1 00 
on7Af>ann 



0853J1 
0855*2 

oa5ft » 3 



00768300 
00768400 
00768500 



0856 » 3 
085712 
0fl60*3 



00768600 
00768700 
00768800 



00768900 
00769000 
00769^00 



0864»1 
0865«2 
8 67*2 



0867»2 
086911 
087012 



00769200 

00769300 
OB7ft9ziOO 



087111 
0874*1 
0677*0 



00769500 
00769600 
769700 



087810 

0880* 1 
0680 U 



00769800 
00769900 
00770000 



0883*3 
0886' 2 

.oeaMg 



00770100 

00770120 
0377020" 



088911 
089U3 
0691*3 



O077O3OO 
00770400 
OO77OS00 



0894*1 
0898* 1 
0698*2 



00770600 

00.77.07 00 
0n77Ognn 



0900*0 
0906*3 
0907*1 



00770900 
00771000 
0077U0Q 



0907*3 
09 08 1.3 

091 n« 2 



00771200 
00771300 
QO77U0Q 



0912*2 
0914*0 
0915*1 



00771500 
00771600 
007717QQ 



0915*1 
0916*0 
0916*1 



091812 
0919*0 
0919 H 



00771800 
00771900 
0077 20 00 



00772100 
00772200 
00772300 



0922 «3 
0924«3 
09 25 *3 



00772400 

00772500 
00772600 



0928*1 
0930*0 
0933*2 



00772700 
00772800 
on772<? nn 



0935»0 
0937*0 
0936*1 



00773000 
0077 3100 



0942*3 
0944*2 
944 1? 



00773300 
00773400 
6773 ^00 



0948*1 
0951*2 

0952*0 



095210 
0952 iO 
0954*0 



T* 



15 
16 



19 



23 I 



25 



27 
28 



30 



33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 4 

42 

43 

44 ( 

45 

46 

47 i 

48 

49 



53 1 



56' 



• • 



n 

2 
3 

4 
5 
6 

7 



LISA * INHEAQC11]; MURtUATA * NOT C EOF *D ISKFULL«-ONS*Q ) ; 
TPB» IF TNCCOT3 £ TCCCOT3 THEN BEGIN SELECT; GO TO TPB END; 

su rmfhg e; m erg ei t ; ^ r it^stappfr; 



IF NOT EOF THEN GO TO TP8; 
P(. INHEA0»LOO..aUTHEAO.LOD.»lNHEAD.STD.,OUTHEAD.ST0)l 
TPCI P(.DATA.I_QD.RFB> f OATA.STD.CDATlM3.22.CQM.OEl r , )l % RTN DATA 



00773600 
00773700 
00773800 



0957*3 
0961*1 



00773900 
00774000 
00774100 



0968*0 
096813 
0970H 



INHEAO * iNf IB *■ BASE «• ITOP 
IF FM OR AC • C 1 123 =1 THEN GO 
P (10.COM); 



* buff «• o; 

TO wrapup; 

ERETURN MERGE MATRIX 



I TR« U7 



00774300 T 097310 
00774500 T 0975*3 
07745 5 T , 0978 *1 



MOREOATA * AC.CU13; EOF *■ 

GO TO callsort; 

wrapup* ; : 



ac,C2«U; 



00774600 T 0978*3 
00774700 T 0981 H 
677480 T O A fl-j- U 



10 

11 

12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



P<*[0UTFIB114]])J FORGLTDISK; 
OUTFIB «• OUT HEAD «■ 0; 
TF TM THEN 



S I TE S QRT ME RGE 



|TR"117 



00774900 J 098l*3 
00775000 T 098410 
0775 100 T 0985'! 



BEGIN P (lO.COM); 

GO TO P(P0LYMER6E 

eno; 



XRETURN MERGE MATRIX 
m GO TO ITD MERGE 



*TR*117 
*Ti-U7 
*TR-117 



00775120 T 0985*2 
00775130 T 098612 
QQ7 75 1 40 T 96 9*1 



SoRTDONE! 



COMMENT VUST 
COMMENT RETURN EVEHYTHI 



DID FINAL PASS; 

UIxI , , 



00775200 T 0989 
00775300 T Q989 
00775400 T 0969 



«1 
II 
14. 



P(t00T0i3&0C 
IF NOT OPTOG 
P(MKS.2.0.rQ 



18»18U5 3»6>1WC0M.0EL»DEL); 

THEN BEGIN 
UTFILCNOT 2J3.4.FCR) 



00775500 J 098911 
00775600 T 0991*1 
0077 57QQ T Q 99?*l 



IF NOT AC TbEN P (Of.QUTf.jL [NO 

END ELSE 
BEGIN COMMENT CAL L OUTP UT PR 



T 23#8#CDC#STD); 

QCE PURE , PAS SI NG E NU-pF- SQRT FLAG; 



0995*3 
0999* 1 
007 76000 T 0999*1- 



00775800 T 
00775900 T 

Li 



IF 



AC THEN 
BEGIN 



ENDQ * 1J IF 



F( MK5 *filNGn*0 
P<MKS,81NGQ,C 
P(MK5.1.Q.0.Q 



C.C46I13 THEN 
fPFRFnRMfiFN) 



» C0B0L6fl 



00776100 T 0999*3 
00776200 T 1000*0 
00776250 T 1002*1 



29 
30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 



ELSE 
END ELSE 



PRTBASEtPC0UP)3 3>L0D,lPFlDx>CQC) 
UTPRQ)/ 



-&NOJ 



QO 7 7630Q T 1 3 I 3 
00776400 T 1006*0 
00776500 T 1 007*3 



V 



kj 



SL 



p< io.com); 

IF OUTCOUNT^ 

cnnTngtNQT 



INCOUNT THEN P(I 
233»82*17<C0M); 



% return merge matrix *tb«h7 

NCOUNT.OUTCQUNT.O. 



00776350 T 1007*3 
00776600 T 1008*1 
00776700 T 1010*1 



& 



*£ 



END 



p(io,co»j; 
oisksqrt; 



* FALL OUT OF BLOCK CUM WILL RETURN EVERYTHING 



^ 



00776800 T 

00776900 T 

SJ. 



1012 
1012 
ZE= 10 



»0 
»2 
13- 



WOROS 



^ 



PROCEOUSE POLYMERGEC 



START OF REL 



Tl « T 2iT 3f : 

ENDQ'BINGO#IPFIUX.OUTPRO.INPRO#QUTF# inf. 

OP TOG. I PTOG.DKQ.dk I. TP1,TP2.TP3.TP^.TP5. Nj' 
HIV ALU. LQUALS.R. ALFA. CORES I ZE.DISKSUf); 

RT BY L.Rt GUCK DATE 9/19/1965 i 

eta ■m.n - iSTA. ill* . . • • • • I i i :-. 1" « . . i- 1 ■ i. .'.. B - A 1 •» A 



00800000 T 0000*0 

segment; disk address « 

00800100 T 0000*0 



00178 



40 

41 

42 

43 " 

44 

45 

46 

47 

18 

49 

50 

51 

52 

53 

54 

55 

56 

S7 



00800200 T 0000*0 
OO8OO3OO t 0000*0 
0800400 T O QOO 'O 



COMMENT DISK 
VALUE 



-SORT BY L.Rt GUCK DATE 9/19/1965 > 

OPTOG. IPTOG.NT.HIVALU.EOUALS'R' ALFA, 
CORFSIZE.DISKSIZEI 



OO8OO5OO T 0000*0 
00800600 T 000010 
08 0070 T QQQ QfO 



REAL EnOQ.BI 

BOOLEAN OPTOG. I 

REAL DKU.OKl 



NGa.IPFIDX.UuTPR0.1NPHO.OUTF,Tl.T2.T3.INF; 

ptqg; 



00800800 T 0000*0 
00800900 T 0000*0 

008Q1Q00 T , QQQO'Q 



NAME TP1#TP2 
REAL NT»MIVA 
BOOLEAN ALFA* 



•TP3.TP4.TP5J 
LU.EQUALS.RJ 
» TRUE FOR 



% SCRATCH TAPES 
ALPHA KEYS 



OOBQUOO t 0000*0 
00801200 T 0000*0 
00801300 T 0000*0 



REAL CQRESUE; % CORE STORAGE AVAILABLE 

INTEGER DISKSUe; * DISK STORAGE AVAILABLE 

BEGIN 



.M IE. START. TPD.TPE.TPF.RTNTR.TRA.5QRT0QNE.RTA#TRx; 
SfPP.D#00a»8F.TBQM'X*r»DNj 

NAME VN * VI 



OO8OI4OO T 0000*0 
00801500 T 0000*0 
00601600 T 0000*0 



LABEL MlCMlO 
REAL S.M.MS* 
ARRAY V£*3i .. 



00801700 T 0000*0 
00801800 T 0000*0 
00801900 T 0000*0 



n 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 



DEFINE VXlsFLAGCvtx + l])** vX*FLAGC Vt X3 )*# vl*Fl,AG< Vt VlOW ] )»i 
DEFINE VAl = FLAG(V[X + l ] KP ( 0/ BUS ) [ CTFJ ) ## 
VA a FLAGCVLX 3 &P C 0, RDS H CTF 3 )#, . 



00802000 j 
00802010 T 
Q08Q202Q T 



0000*0 
0000*0 
QQQQ*0 



VAL * FLAG(VCVlQw3&PCQ#aDSHCTF3)f J 
REAL VLOW; X INDEX OF NEXT RECORD IN SEQUENCE 
ARRAY MHKC»1* X HIGH KEY FOR MERGE PHASE 



NAME MHN»MHKi 

NAME DOTQP * DKO; 

BOOLEAN HOREDATA»FM»rOF>TM,PFjTRI 



00802030 T 
00802100 T 
00802800 T 



0000*0 
000010 
QQQOln 



00802300 T 
00802400 T 



0000*0 
0000»0 

Qooo'n 



BOOLEAN MF» Tli 

DEFINE IOC » *200000Q000#* 

: P m POLISH*; 



00802600 T 
00802700 T 
00802800 T 



000010 
0000*0 

nnonio 



COMMENT PARAMETERS RELATED TO PROGRAMMERS FILES* 
NAME INF.Il * INF/ X POINTER TO TUP I/O DE^C. 
NAME Q UT FI L a QUTFJ 



00802900 T 
00803000 T 
803100 . T 



0000*0 
0000*0 
0000*0 



NAME WAOUT » T2; 

ARRAY PRFI85*]; 

R EAL A Ci , % TR UE 



X C0B0L68 QUTFJLE WORK AREA 
X CONTAINS TAPE FILES FIB 
FOR COBOL INPUT FlLF : 



00803j20 T 

00803200 T 
OOWQ330O T 



0000*0 

0000*0 
OOOOtQ 



real incouint^outcount; 

NAME MEM * 2; 

REAL BLOCK 3 fr t AjiiiiRfl2^ALR0gl3i^0F.C,Rg.2 < cnRlii«U»AUFCRal4 < 



008034 00 T 
00-803-500 T 
00803600 t 



0000*0 
0000*0 
OQOO.iO. 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



PeIFQRMGEN » 13> 

blkcth m 16; 

A RR A Y PR TRASE m 1QC*H 



X C080L68 IN-OUT PROCEDURES 



00803610 T 
00803700 T 



0000*0 

0000*0 

00803 8 00 T 0000*0 



RFA L 



REAL 0F#QH,10,0NS,0RC*QCDA,0 
ARRAY BASEt*]i X POINTER 
lTP»DDNTnDNOTHiNiEOPrN«i isa; 



RL#0RI#5BI,SR.b,0BC/IFB,lFHi 
TO CONTROL INFQ IN DATA 



00803900 T 
00804000 T 
00804100 T 



0000*0 
0000*0 

000,0*0 



DEFINE FCR ■ IF AC THEN COFC 
COMMENT PARAMETERS RELATED T 
INTEGER C TR L; X CURRFN 



R ELSE ALFCR#; 

merge tapes; 
t control tape 



0000*0 
0000*0 

00804400 T — 0000*0 



00804200 T 
0080*100 T 



INTEGER COT; X CURRENT OUTPUT TAPE 

NAME COIOO; % LUC OF I/O D OF CURRENT OUTPUT TAPE 

NAME TJPJ % BASE POINTER OF MERGE TAPES 



00804500 T 
00804600 t 
00804,700 T 



0000*0 
0000 10 
Q0QQ»n 



ARRAY 
ARRAY 
ARRAY 



tsc*j; 

TC£*j; 

TNr«i; 



X ARRAYS FOR CONTROLLING DISTRIBUTION 
X PATTERNS ON MERGE TAPES 



00804800 T 0000*0 
00804900 T 000010 
00805000 T 0Q0Q1Q 



n fc. AL 

NAME 



imiscoresize; * tapes - 1 

ciiod; x luc of i/o d for current input tape 



00805100 T 0000*0 
00805200 T 0000*0 
00805300 T — 0000*0 



Subroutine wait; comment wait for 

on top of sta 

S SFT QMTT » NQTfTlHFSHARlNG) 



i/o complete using adrress 
ck; 



00805400 T 
00805500 T 
00805550 T 



0000*0 
0001*0 

oooitn 



$ SET OMIT s TIMESHARING 

BEGIN JF NOT (P C XCh* DUP>LOo> > t C 19 » 1 3 THEN P ( lUc> 2* COM* QEL )* 
i POP UMIT 



00805599 t 0001 JO 

00805600 T 0001*0 

0080560; T — 000 *0 



pcded; eno wait; 

X*****«*********MM+****************JK 

subroutine releasetape; x calls mcp to write out buffers 



00805700 T 
00805000 T 
00805900 T 



0004*0 
0006*0 

ooQfttn 



45 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 1 

54 

55 

56* 

57 



BEGIN 
PRFIBll.13 
P(C0IQD[Q3 



• tbu; 

» FLAGCPRFIBC16 3?*CQ IQ D*PRI*D E I?; 



00806000 T 
00806100 T 

ooeoezQQ, T 



0006*0 
0006*0 
9-0JUU4 



RTA* PCCOIOO); WAIT* 

IF <*C0l00).t27tl3 THEN' X REEL SWITCH 
BEGIN 



00806300 T 
0080640-0 T 
006 06 50 T 



000012 
0011*0 
001 210 



P(MKS>Q,0,CC0I0DCNUT 233#6#FCR)^ 
GO TO rta; 
end; 



00806600 T 
OO8O67OO T 
00B06fl00 T 



0012*2 
0016*1 
Q016'| 



IF N0n*CQ!0D>i£2 
C0I00C03 ♦ 1 INX 
END RELEASEIAPC; 



1*13 THEN P 
FLAG(PRFIB 



(l^CCOlOOCNOT 2 J 3,74, 17, COM); 
1163 * NFLAG(*COIOD))^ 



00806850 T 
00806900 T 
00 807000 T 



0016*3 
0020*2 
00 23*2 



• • 



n 

2 
3 
4 
5 
6 
7 



SUBROUTINE TAPEWKITE* 

BEGIN 
P R FJ B r MC OlQPlNnT ? 3J; 



X BLOCKS OUTPUT TAPES 



PRFIBC93 * PRFI8C93 ♦ U X RECORD COUNTER ♦ 1 
IF (PRFI8C1U * PRFIBUH m . 1 > > THEN X BLOCK COUNTER 
CQlOOtQl *■ R INX »COIQQ 



O08O7J0O T 0023 
00807200 T 0024 
08 07300 T 00 24 



00807^00 T 0025 
00807500 T 0027 
00807600 T 0030 



ELSE 

BEGIN *. TIME FOR RELEASE 
P^Ll£5£IM16J INX MEMjSID); I ZER O C O NTRO L n QRO IN B UF H23 



00807700 T. 0031 
00807800 T. 0032 
00fl07 9 0Q t 0032 



9 

10 



RELEASETAPEi 

end; 

FNn tapewriTf; 



00808000 T 
00808100 T 
0080820 T 



0036 

0035 
0035 



ii 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

2« 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 ~ 



SUBROUTINE ...HR.IT.E8.TQP.PER j. 

BEGIN % WRITES END OF STRING OR DUMMY STRINGS 

prfib t »[cni(.DrNnT zjj; 



OO8O83OO T 0035 
0.0808*00 . T 0036 
OOflOBSOO T 0036 



X * PRFIB{9J&(T80*PRFI8Cnmi8l33li5H< H DS")C3l33*l5J; 

P(X#PRFIBC163 INX MEM^STD); 

TNCC0T3 » TNtCOTl ♦ li X COUNT UP STRTNr.S ON OUTPUT TAPE 



00808600 T 0037 
00808700 T 00«l 
00608800 T — 0-042 



BELEASETAPt; 
.PRFIB.. £9.] ♦ ; 
WRITESTQPP 



X ZERO OUT STRING CTR 



-PU3- 



£M4- 



00 8 08 9 00 T 0044 
0080891 T 00*6 
00S09000 T 004* 



x**********************************x 

SUBROUTINE QSeNOUTI X OPENS PROqRAMM£RS OUTPUT TAPE 

B EGIN 



00809100 T 0049 
00809200 T 0049 
00809300 T — 0049- 



IF OPTOG. THEN 

BEGIN PCMKS,tOUTFIL3'R* 1*1*1 * BLOCK); 

IF AC 'THEN 



OQ809400 J 0049 
00809500 T 0049 
00809600 T 0051 



BEGIN BINGO * QUTPRQ; EfoDQ ♦ 0; 
IF AC.C46*U THEN X C0B0L68 
BEGIN P(MK$t RlNGQ»Q/PERFORMr,£N)| 



00809700 T 0051 
00809730 T 0054 
00ft 09 74 T 00 5S 



COIOO * [HAOUTJi. 

WAOUT ♦ P(*[OUTFlL]#Of CDC); 
END ELSE 



00809745 T 0056 
00809750 T 0057 
Q 0fl QS>76Q , T 0058 



pcmks#8Ingo#cprtbasecP(duP)U#loo»ipfidx#coc); 
end end else 
begin tr » false; prfib » outfilcnqt 23; 



PRFIBC133.C27I1] «-0; 

IF AC THEN 

BFQI N 



00809000 T 0058 
00809900 T 0061 
O Qflt OO OQ T 0061 



OOBlOlOO T 0064 
0Q810200 T 0066 
00810300 T 0066 



P<MKS,C OUTFILCNOT 23 3#3»COFCR Jl 
IF AC.U6U3 THEN X C0B0L68 
BEGIN COIOO » [WAQUT3; 



OO8IO4OO T 0067 
00810440 T 0069 
0Q 81Q 4 5Q y 069 



ENpj 



WAOUT «• P(PRFIBC203,trF3»DUP'OlB 0*LOq»0' 
C0C*0EL»01B o,lqd>; 



OO81O46O T 0071 
00810470 T 0073 
00810480 T 0074 



♦6 
46 
47 
48 



TR * PRFIBC43.C8U3 » 4/ 
ENO 
ELSE BEGIN P(C0UTFIL'3>0*U*C0M»0£L'DEL); 



00B1O60O T 0074 
00810700 T 0076 

ooeioaoo t oq76 



hcmksm'0'0»(-R)#coutfil3*alhr*ded; end; 



END 

end openout; 



00810900 T 0078 
00811000 T 0081 
OQ 9 1U 00 T 009 1 



«9 

50 

51 



x******#***************************x 

SUBROUTINE TAPEREAD; X READS TAffS ON POLYPHASE MERGE 

BEGIN ' . . , . 



00811200 T 0081 
008 IX 300 t 0081 
QQ81HQ T Q 82 



52 
S3 



54 

55 
56 
P? 



CIIOO * TPtV 
PRFIBL93 «• PRF 
IF (PRFIBCU] 



VCVL0W3 * R 
* ELSE 



LOW + 1 3; PRFIB ♦ CIIODCNOT 23> 

IB[93 + i; X RECORD COUNTER ♦ 1 

*■ PRFIBCU3 -1) > THEN X BLOCK COUNTER 



INX VCVL0W3 
FOR. RELEASE 



00811500 T 0082 
00811600 T 0085 
00811700 T 0087 



00811800 T 0090 
00811900 T 0091 
PQft i a O QQ T 092 



J5? 



» • 



IF (Y «■ PCFLAG(PRFIBC16J)»LQD)) / THEN 008l2l00 T 0093*1 

BEGIN X CONTROL KORQ * SO END OF STRING 00812200 T 0095*1 

LRAJ DF <• THUe; 00812300 T — 0Q95»3 

IF Y, (331151 * PRFlBt93,(33*l5J THEN 008|2«00 T 0QW2 

*■' P(0#CCiI'O0tN0T 2J]*83#l7#C0M*0El»0CL»DEt)l'- 00812500 T 0098*2 

END* — __ : 00*18*30 t CJ iOi't-8 



PUIIQDCOl .*. FLAGCPHFIBtl-6])#CIl00»PRL*DEL)i 00812700 T 1 1 1 3 

TRXI P.CCIIOO)i MIT/ 00812800 T Q104»0 

IF NOT (»CIIQDM2M1 TrlFN % ERROR QR EOF Qr eOR 00612900 T — OlQ 5 *0 

BEGIN 00813000 T 010811 

EOF ♦ P(MRS#l#Q»CCnQQCNOT 2J3*6#FC«)J 0Q8l3l00 T OiQ6<3 



9 | : IF NOT FQF THEN GO TQ TRXJ 0Q813200 T — Oi l 1«0 

END/ 00813300 T OlH*3 

IF EOF THEN GO TO RTnTRJ 00813^00 T 0lll»3 

PRFTRCU3 «■ TF P(Y» P t »C J TODjLOD ) ) s Q THEN TBQ 00813500 T 0U2*3 



10 

ii 



13 

14 
IS 
16 
17 
18 
19 
20 



34 



36 



EUS E Y,ti8«l5jJ 00813600 T 011512 

CII00C03 * 1 INX FUG<PRFIBT16J «• NFLAG< *CI 100 ) ); 00813700 T 0ll7*2 

TF r>F THF N Gn TQ RTNTRI ; ; OQflMgOO T 0120*8 

IF PRFIBC111 * THEN VtVLOWl «• VC VLOW 3&C *C I IQQ. ) C 33 » 33 1 1 5 3 0.QA1.I.90.0 T 012112 

ELSE GO TO TRAi 00814000 T 1241.2 

_ENJU OOfl i nOO T Q 12 5U 



RTNTRJ IF EOF QR OF THEN BEGIN 008l«200 T 0l25*l 

VCVLOW] * NFLAGCMHKHMSU8»33I15JJ 00814300 y Ol26t2 I 20 

21 |_ IF FM AND NOT MF THEN X REL TAPE LST PaSS 0081* 340 T 0128*3 

«\ P(MKS,<i,0,tCIIQOCNOT 2] 3#«#FCR)i % FoR Srj 00814350 T 0l29»3 

» EOF*DF*FALSE; 008i4400 T Ql34»0 23 

» F-NGJ , 00814500 T Ql35'l 

25 | END TAPEREAO; 00814600 T Oi35*l 

X*********************************** 00814700 T 1 35 * 2 

2'|_ SUBROUTINE INREAQ; % READS PROGRAMMERS MERGE FILES QnfllaflOO T 0HM2 

M BEGIN 00814900 T 0l36*0 2S 

» CIIQO * TPCVLOW + 13; PHFIfi * CIIODCNOT 23; Oo8V 5 000 T 013.6 1.Q 

30 BEGI N OofllSlQO T — 0l39*3 

3 i IF AC THEN TCCVL0W3 «■ PCMKS,R#CI IQQ,0,C0Rw > 00815200 T 0J39I3 

ELSE 00815300 T 0l42*0 
BEGIN 0Qfli5A00 T Q1 42I 3 



P(MKS,O#O>CH0D,ALRD); 00815500 T 0143*1 

■I TCCVLOW] «• PCMKS#0.3>CII0D#ALRD) < 0; 0Q815600 T 0l44»2 



29| 

30 

31 

32 { 

33 

34 

35 { 



ENQj , , 00 81 570 T 0147*1 x 



37 IF TCCVLQW3 THEN VCVLQW3 «■ NFLAG(MHK)&MS[ 18 1 33* 153 0Q8l$80Q T 0l47»l 

38 ELSE IF (AC AND 3) * 3 THEN X NOT CQBQL68 00815900 T 0149*3 

39 VCVLQW3 » UPCOUP)) £ (*CCIIOD3)(CTC3j 00815910 T 0l5 g »l 

« END/ 0081&000 T 0155*0 

*i END INREAO; 00816100 T 0155*0 

X***»»»»»»»»»»»»»»»»»*»»»»»»»»»»*»X QQ8l6gOQ T 9.1 5 5 *1 , I 42 

SUBROUTINE WRlTEOUT; " ~ ~ " ~~ ' 00816300 T 0155*1 « 
BEGIN * SELECTS FILE TO BE WRITTEN DURING MERGE 00816400 T 0l56*0 
: IF NOT FM THEN TAPEWRlTE ; ] , OOB165QO T 0156*0 



46 



49 
SO 

SI 



S3 

54 
55 

56 



37 
38 ( 

39 
40 
41 ( 



ELSE 00816600 T 0.157*3 

" BEGIN COMMENT CALL OUTPUT PRQCEBURE OR WRITE INTRINSIC; 00816700 T Qi58*0 47 

w | OUTCnUNT » OLTCOUNT tU __ , 0Q6168Q0 T l 5 8 *2 

IF OPTOG THEN OO8I69OO T 0159*3 

BEGIN 00817000 T ©160*0 

IF AC THEN BEGIM ENDQ » O J .. 00817100 T QU0I2 -. 

H IF AC.C4GJ13 THEN P(MKS/BINgO#0»PeRFURMqENJ 008l7 120 T 162* 1 

ELSE P(MKS»BINGQ,CPRTBASECP(DUP)33#L0D*IPFIDX#CUC) 008l7l50 T 0164*1 
END ELSE PCMKi)*0»nOyTFIL3»0,»C)MTPRO?? 00 8 17200 T — Ql 6 6<3 : 



48 

49 

50 I 

51 

52 

53 < 

54 

55 

56 ' 

57, 



-I— 



END 00817JOO T Ol68»3 

ELSE 00817400 T l 601 3 

*1_- ^ , BEGIN CHMMFNT OUTPUT FILE RATHFB THAN OUTPUT FRQCEQUHE* 00817500 T 0168*3 



h 



IF AC THEN P(MKS#0»1#1»Q#R#E0UTFIU#1#C0RH) 

ELSE BEGIN 
P(MKS» U QaOtHt tOUTFXL3«ALWR?i- 



IF TR 
ENffJ 



P<MkS,1,0,0,(»R),C0UTFIL3#AL>R»0El); END* 
THEN IF P THEN PC 1# COUTFILCNOT 21 3 #83* 17* COM}/ 



00817600 
00817700 
O Q8 170Q O 



00817900 
00818000 



0l69«l 
0l72»0 
Q17H3 



0l74*2 
Ol76»3 



00818100 T — O l80 » 



_sjj 



ENOi 
END WHlTEOUTj 
BRQUTINF. FlRSTSE LEC T / 



% INITIAL SELECTION QF ,LUh RECORD 



00818200 T 0180*0 
00818300 T 0180*0 
OoBlflgOQ T Q18Q11 



BEGIN 

x * o; 

DO BFG 



i*MS"i; 

US — 



00818500 T 0101*0 
00818600 T 0*81*0 
00818700 T Ifl 3 I 



10 

11 



. I*. I. ♦1.1 

V C 13 * 



V[X+<< IF ALFA THEN 
EL*E IF AC THEN 



P(0>MKS#Q#VX1#VX, EQUALS) 
P(Q,MKSiVX1»VX,FqUALS) 



00818800 T 
00818900 T 
00819000 T 



0l83«0 
0184 » 1 
0168*2 



13 

14 
15 



ELSE P<MKS»VAl#0#VA#0#EQUALS>) 
END UNTIL <X«-X*2) • STPPi VLOW * 
FND FIRSTSELECTJ , 



AND TRUE)3; 

vtn,ti8U5l; 



008l9i00 T 01921? 
00819200 T 0199*3 
00819300 T 020313 



16 
17 
18 



SUBROUTINE 
BEGIN 

X » VLQW 



low select; 

AND 1022; 



00819400 T 0204*0 
00819500 T 0204*0 
Q08l 9fi QQ t Q2M±£L 



19 
20 



00 BEGIN 

1 ¥ MS ♦ X.C38I93; % J 3 

vcn » vrx+(fir alfa Then 



MS ♦ (X/2) 

P( Q > MKS , Q, V x i » VX t EQU A L S 3 - 



00819700 j 

00 8 1*800 t 
Q81 99QQ T 



0205 M 
0205*1 
Q 2 Q7»0 



22 

23 

24 

26 

26 

27 

28 

29 

30 

31 " 

32 



else if ac then p (o'mks* vx \> vx#equal5 ) 
else pcmks^vai>o>v/a,o#e«ualS)) and true>j; 

I AN D 1 0? ?/ 



00820000 T 02U'l 
00820100 T 0215*1 
00820200 T 02 2 2* 2- 



ENO UNTIL I 

END lowselect; 



« STPPJ v l qw «■ Vtl3.Cl8*153; 



00820300 T 0223*3 
00820400 T 0226*3 
00850*00 T 0227*0 



subroutine mergeit; 

BEGIN 

mtc* firsjselect; 



* MERGES M STRINGS TO 1 STRING 



00820600 T 
00820700 T 
0Q8 2 OB0O T 



0227|0 
0227*0 
02 27'C 



GO TO MIE* 
MID* LOWSELECTI 
MIE* IF VLOW < MS THEN 



00830900 T 0228*0 
00821000 T 0228*2 
00821100 T 0230*0 



34 
35 

36 
37" 
38 
39 

40 
41 
42 
43 



BEGIN; X MOVE LOW RECORD TO OUTPUT FILE 

STi?EAMCPi«-VL#P2 < -R»P3*<PCDUP)).l36»63#P4*-MC0l0D3); 
6EGIN a I»PlFP3(nS»3_HnS_nS<-32W_3.;DS» P2 * 0S ENOI 



00821200 T 
00821300 T 
0Q82UQQ T 



0230*3 



0231 
0234 



WRlTEOUTJ IF 
GO TO Mid; 

end; 



MF THEN INREAD ELSE TAPEREAD; 



00821500 T 0236 
00821600 T 0241 
00831700 t 02 41 



FDR I «■ STF.P 1 UNTIL MS-j dO * CHECK FOR RECORD 
IF (VLOW * Vtn,L18»l5]) < MS THEN GO TO MIE; 

fnd mergeit; 



HIGH K£Y 



008218.00 T 0241 
00821900 t °2*5 
00822Q00 T 0249 



START* 

CIIOO ♦ 
MS » 2; 



0; P((CClI003.t33*l53*2>#STS); 

TM1 + NT-U WHILE MS<CTM1^MF) 00 HS»MSx2j 



00822100 T 0249 
00822200 T 02*2 
09 22300 T Q2 6 5 



46 

47 



48 



IF MF THEN 

BEGIN * MERGE 
TP «■ UNO J 7) 



t 



ONLY 

X t NTJ); 



FM 



JLH 



P(MKS# tVNJ# C2>*MSri'i'l*l' BLOCK j|P<MnS#c M HN3#RnMM'B'-0CK); 
P(MKS*MHK)J IF NOT AC THEN P(Q#COC#MHK#xCH*ROS»CFx*0)J 

Pr hiv alu); - _ 



0Q822400 T 0270 
00822500 T 0270 
008 226 00 T 0271 



49 

50 
51 
52 
S3 
54 



00822700 T 0273 
00822000 T 02^8 
00822820 T 028? 



FOR VLOW + STEP 1 UNTIL TM_ DO 
BEGIN % OPEN TAPES 

CHOP _ TPCVLnw-t.ii; _____ * ciiodcndT 2i; 



00822900 T 0282 
00823000 T 0283 
0Q823i0Q T 029 3 



55 

56 



PRF I8t 133 ,t 27*13 * 1* I SET TO OPEN INPUT 

IF AC IHEN PfMKS#tCIlOOXNOT 233>i#COFCR3 
», _______ tCC\/LQw3»PfMK&jQ»^CIIQ0,Al RDXfll 



00823200 T 
00823300 T 
00823400 T 



0286 
0269 



02911? 



2 
3 



IS 
19 
20 



22 
23 
24 
25 
26 



28 
29 



31 
32 



34 
35 
36 

37 " 



38 



40 
41 
42 



43 



46 



48 



49 
50 



S3 



55 
56 



BEGIN 



IF PBFIBC53.C39I1J THEN TCtVLQWil * 1 ELSE XQPTlQNAL 



end; 
end; 

FQR 



PCC IIQQ ) J HAIT? IF AC THFN INRFATM 



J * STEP t UNTIt MS-l fiD 



BEGIN 

IF 



I > TMl OR TCCU THEN VC I 3 ♦ NFL AG( MHK ) &MS 1 18 * 33 $ 15 J 
E LSE VLI]»NFLAQ(P(TP[T»13 ]&lir< AC. A Nn l)*3 T H pN 



PC2*N0T*XCH,XNX»tQD»20*COC*0*xCH»FCx*DlB 0*4.00* I ) 
ELSE PCL0D'XmCTF3>; 



FNn; 



qpenqut; 

STPP «• 2 

mergeit; 



IF(AC 

x MS - 



AND 
2; 



3>*3 THEN COIOD «- OUTFIL; 



FOB I *1 STEP 1 UNTlu TMl * 1 DO 
BEGIN CXIQO «>TP C X J i 
P (MKS*P*o>cciinnrNnT 



GO 
JLUDJ. 



End; * 

to sortdone; 



xclose lock all 

7 33»4*rr:B)i 



TAPES 
X PG 
X PG 



X PG 



FOR I * cOT STE p 
IF TNCX3 < TCC 1 3 

BEflTN 



1 UNTIL TMl 00 % WRjTE OUT DUMMY STRINGS 
THEN % PERFECT DISTRIBUTION 



IF 



COT X 
bEGIN 
PRFIB 



i THEN 



P(((NOT 
COIOD » 



I 



COT 

end; 
vxhill tneu 



culoDtNnT 23; cainpco] 
2) INX TPCI3)*((N0T 2> 
20*COM*OEL#DEL); 

tpcij; cqiod[q] + 1 inx ♦coioo; 



«- FLAGCPRFIBU63); 
INX TPCCOTJ)* 



< TCCT3 DO 



BEGIN 



end; 



COIOD ♦ 
PBFIBC113 



TPCI3 ; PRFIB *■ 
* TBC; PRFI8C93 



COIODCNOT 23i 

♦ 0; writestopper; 



end; 

FOR I 
BEGIN 



CIIOO * 
PCMKS* 2 

end; 



«• 1 iTEp 1 untr tmi do 

% SET UP TO HO PLLYPHASF 



MERGE 



TPCI3 } 
*0>CCIIQC[N0T 



233*6*FCR); X REWIND OR RELEASE 



PCMKS*tVN3*(2xMS)*l*l»l'l*BLOCK); STPP «• 2xMS-2; MHN<-0; 

PCMKS#.CMHN3#R»i»i«i*BLDCK);. % HI-KEY 

PCMKSiMHK); I F NO T AC THFN Pf .C. nc . MHK . vf!y .RDS f rFy r n ) ' r 



P(HIVALU); 
FOR I «• 1 STEP 1 UNTIL ThI 
REfiTW X OPFM INPijT TAPF^ 



DO 



CXIQO * TPCI3 ; PRFIB ♦ CIIODCNOT 23; 

PBFiBcm.c2.nn «■ 1; pcciioo*o*iwcom*del*ded; 

PCCIIOD); hmt; prfxbciij 4- thd; PRrmrqi » o; 



TP D» 



CH0DC03 * i inx ♦cixqd; 

end; 

fm » true; 



FOR I «- 1 STEP 1 UNTIL TMl qO IF TN C 1 3 > 1 THEN F* ♦ FALSE; 
IF FM THEN 

BEGIN QPENOUT; TF(AC AND 33*3 THEN COtOD <- OUTFJL EmD 



ELSE X OPEN SCRATCH 
BEGIN CGIOD ♦ TPCNT3J 
PRFIBa33.Ca7»l3 ♦ QJ 



OUTPUT TAPE 

PRFIB ♦ *CCOXODtNOT 
X SET TO OUTPUT 



233; 



00823500 
00B23600 
00H2.370U 



0295*0 
02*7*3 
Q29BU 



00823000 
00823900 
00824000 



00824100 
0082*200 
0082*300 



030210 

030210 
QHQatt 



00824310 
09824320 
00824400 



0308*2 
0308*2 
0312*0 



00824500 
00824550 

00894*00 



031612 
0320 to 
0122U 



00824610 
00824630 
00834*60 



0322*3 
0326* 2 
Q328U 



0329 
0333 
033 4 



00824670 
00824 700 
00824800 



00824900 
00825000 
008251 00 



033e 
339 
33 9 



00825200 
00825300 
0825400 



0339 

0341 

342 



0342 
0343 

344 



X PFRFECT OISTRIrUTION PaTTLRN 



00825500 
00825600 
00825700 



0347 
0350 
35 1 



00825800 
00825900 
Q0fl?6n00 



0354 
0355 
0355 



00826100 
00826200 
08826300 



0357 
0360 
0364 



00826400 
OO8265OO 
00826600 



0364 
0366 
03*8 



00826700 
00826800 
00826900 



00827000 
00827100 
0082720(1 



0368 
0369 

-03Z3- 



0375 

0380 

-Q-3£2 



00827220 
00827300 
008g7 <t 00 



00827500 
00827600 
08827700 



0386 
0386 
0388 



0388 
0391 
0395 



0Q827600 

00827900 
onfiOBnon 



00828100 
00828200 
00628250 



0399 
0401 
0403 



00828300 
00828400 
00628500 



0404 
0409 
Q409 



0413 
0413 
0flt7 



li 



» » 



h 



10 



12 
13 



IS 
16 

> « 
IB 
19 

) 20 
21 
22 

I 23 
24 
26 
26 
27 
28 
29 



30 
31 
32 



34 



36 

37" 



38 



40 



43 



• 
• 



46 



SO 



• 
t 
• 



56 



P C CQIQU* 0,11* COM* DE.L#0EI); 

PRFIBUU * TBO; PHFIBC9] «• 0; COT * N T; 

PUCJUmUi WAIT; COIOOrOl «• 1 tkx F LAGrPRFfRp ^ m 



TP E* 



end; 
comment set 

FOR I » Q STFP 1 



BEGIN 
IF I * 

ci ion 



UP VECTOR 
UNiTTL MS ■ 



ROW Oi 
1 1 no 



IF 

IF 

-IE. 



tmi then begin EOf «. true; go to tpf 

ttU±i2 i — PRFIB «■ rnnnt^OT pm 

CEQF «• C*cn0D).£27U3) THEN GO TO TPf; 

< X * (*(FUAS<PRFl8tl63)))) *0 THEN 

NOT C EOr ox.caanai » o ) tmfn PRFTBnp 



end; 



tpf; if 



else else 
TNM+n ■ o 

THEN RFfilM 



PRFIBUU 
OR EOF 



«■ TBO ; PRFIBC9] «-0; 



XTR-142 
<-X.fl8*l53 XTR-ia? 



VI 1 3 ♦NFLAG(MHK)&MSC18I33U53; 
IF FM AND I LSS TMI THEN P<MK5#0,0# CCI IOo£NQT 

Em 



XTR-142 



-X PG 



ELSE VI I) 

EOF > false; 
-Em* 



NFL AGCP t *TP 1 1 + U )&i [ 16 « 33 * 153 ) I 



I IG 
233**»FCR)j 

_ * PS 



MERGE IT; 

IF FM THEN GO TO SORTOONE ELSE WRlTESTOPPER; 
COMMENT HAVF MFttfiFtl A STPTijr.. pF ^ FArH T ft P E , 



FOR 
FOR.. 



COMMENT CHECK IF REWIND NEEDED; 

i <• i step i until tmi oo tnciJ ♦ tncu - r; 

I » 1 STFP 1 UNTT I T MI DO I F T Wfl l * n thfn, 



BEGIN * REWIND IS NEEDED 
PRFIB * COIODCNOT 23; 
PfMKSf ? *o»rrOTnprnoT aii. A . FcR)| 



CIIUO*T.P.U.ll 

PCMKSM*0TCIIOD[NOT 2 3 3,4#FCR); 
TN U 1 «• TNfNTIl tntmtj* n; 



* RekiNq or Release 
x close purge 



* , RFj8£l3J,£27*l3 *• j; » S et FORMER OUTPUT TO INPUT 



P£CQIflD,0*11.CriM.nr L,Ugl u 

PC.CQ.IQQ)> WAIT; COI0DLO3 <• 
P(.(TP.CNTJ))i TPCNT3 ♦ TP£J]J 
go Tn tpo; 



it OPEN Ffl R INPUT 

1 INX FLAG(PRFIBC163); 
TPEI3 * pcxchj; 



XTR-H2 



end; 

GO TO 
SnRTnnNri 



tpe; 



_L£ 



COMMENT OUST DID FINAL PASS; 
COMMENT RETURN EVERYTHING; 
NOT MF THEN 



PUDOTQP 3*Q£ 18118*15 3, 6,U, COM, DEL#DEL); 

IF NOT OPTOG THEN BEGIN 

P(MKS#2>0* [QUTFlLi:NnT 2n*0«FCtn 

IP NOT AC THEN P( 0* OUTF lLC NOT 2 I \, B> CDC, STD ); "* 

ENO ELSE 
BEGIN COMMENT CALL OUTPUT PROCEDURE PASSING END-QF-.SQRT FLAG; 



IF 



AC THEN 
BEGIN 



END 



ELSE 

ELSE 



«00 ♦ 1J 
P(MKS,B 



AC, £46113 THEN 
)»0>PEKF0RMGEN) 



» C0B0L68 



-V 



■■■■■■ '--■■■ 



_i4i 



end; 

IF NOT MF 

If OUTC«U«T*t«C( 
£DOTQPCNOI 



P(MKS,BING0,CPRTBASE£P(DUP)]3,LQD,IPFIDX*CUC3 
P(MKS» i#0»0»QUTPHO)J 



THEN PC INCOUNT* OUTCQUNT'Q* 
»#17,CQM)J 



00828600 
00828700 
Q0fl2fl800, 



00828900 
0082*000 

00829200 
00829300 
008?9gn0 



00829500 
00829600 
00839*10 



T 
T 

J- 
T 
T 

J_ 
T 
T 
4^ 



0419*3 
0421*1 
0024*2 



0427*3 
0427*3 
002713 



0432*0 
0432*0 
0434*2 



00829620 
00829700 

Qnflg9eoo 



0438*1 
0440*2 
0003*9 



00829e25 
00829850 

00fl?987*i 



00829900 
008 30000 

ooflaoioo 



0446*0 
0450*3 
0052*1 



0453*1 
0455*2 
0A61 *n 



00830200 
008 30 300 

Onfl3Q/iOfl 



0461*0 
046510 
0465*4- 



0466*1 
0467*0 
0469*0 



OO83O5OO 
00830600 
00fljQ7Q0 



00830600 

00830900 
00831000 



008311 00 
0Q83120C 

Qnfl?i30n 



0469*0 
0469*0 
4 74* 1 
0476*0 
0076*2 
0478* 1 



00831400 
00831500 

00831600 



0482*0 
0463*2 
0467*1 



008 31700 

00831800 

Qofmqfln 



00832000 
00832100 
ontnggon 



0490*0 
0092*2 
0092*2 



0494*0 

0496*3 
Q'iQl'2 



0083230C 
00832400 

00833000 



0502*0 
0504*1 
OSOfl** 



00833100 

00833200 
00833^00 



0504*3 
0504*3 
0504*3 



00833^00 
0083350C 
QQ833600 



0505*1 
0507*3 
5 , 08 *3 



00833700 
00833800 
00833850 



0512*1 

0515*3 
051513 



00833900 
00830Q0C 
00834100 

_ ^ _ ' , ■*;■--»■.> 



0516*1 
0516*2 
0518*3 



_*_ 



008 

00830300 

00830400 



T 

T 



0520*1 

0522*2 
0524*1 



0524*1 
0324* S 
0527*1 



10 



39 

40 

4,1 
42 

43 



45 

46 

47' 

46 

49 

50 I 



52 
53 ' 
54 
55 
56 I 



56 



puo,com); 

end pulymerge; 



X FALL OUT CF BLOCK CUM WILL RETURN EVERYTHING 



0063450C T 0529*0 
00834600 T 0529*2 
SlZE,8 0530 



HUROS 



REAL PROCEDURE OUMPINTC SN#Cv*8V* TIPE# TENS»ALFA,CHAR#FIEL*FQRMT); * 

START OF REL 

im 



VALUE SNfCV»8Vj 



S* 
TIPE»TENS*ALFA»CHAR>FQRMTJ» 
TIP£#TENS#AUFA*CHAK*FORMT;* 



00900000 

segment; oiSk 
onqpoioo 



T 0000 
ADDRESS 
X QADJ1 



10 



00196 



real sn, qv*av> 

NAME FIELU 

-MGJNJS 



00900200 
00900300 
00900a0() 



T 0000 
T 0000 
4 0000 



10 
JO 
LO- 



REAL e«+i#x 

VALUEE«+2»X 



00900300 T 000010 
00900600 T 0000*0 
00900700 T — 0000*0 



7 

«< 

9 

10 

"( 

12 

13 

»\ 

15 

16 

" I 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32« 

33 

34 

35 ( 
36 
37 

36 | 
39 
40 
41 ( 
42 
43 
44 { 

*5 

46 

47 ( 

48 

49 

Hi 

51 

52 

53 I 

54 

55 

56 ( 

57 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



DH2*+4*% 

LNGTH»*5** 

CSI7£gt6iX 



00900800 T 0000*0 
00900900 T 0000*0 
009 01 T — Q QO Q » 



B CT«-*7X 
TEMP« + I»»X 
Jtl *+9% 



0090U00 
00901200 



T 0000 
T 0000 



»0 
10 



00901300 T Q0«0 



TROW* + 11* X 
INT» + 12>» 



couf 



00901400 
00901500 
0Q9 C 1600 



T 0000 
T 0000 
4 00£ 



1.0 
»0 

i-J 



oxa 



TARRY«*13»X 
N»BV»X 
SI N N 99 H 



00901700 T 0000*0 
00901800 T 0000 *0 
00901900 T — 00 00*0 



LABEL 
PRINT 
PR3«X 



X 
»% 



00902000 
00902100 
009022 T 



T 0000 ; 
T QOQO 1 
0000 I Q 



«0 

!*0 



8RTXUJ 

TA»X 

TCP»» 



00902300 
00902400 



T 0000 
T 0000 



009025 00 T 0000*0 



*0 
*0 

14 



IRTN#: 
P2«* 



00902600 T 0000*0 
00902700 T 0000*0 
009 02 80 T — QOQ O 'O 



Pi** 



00902900 T 0000*0 
00903000 t 0000*0 
0Q903100 T 0000*0 



P3E*X 

TF#X 

TP2 >X 



00903200 
00903300 
00903400 



T 0000 
T. 0000 



*0 
»0 

la. 



TP3*X 

TP22#) 

TR 1 *» 



00903500 
00903600 
0Q9Q37Q0 



T 0000 
T 0000 
J DJlfljQ. 



*0 
*0 



TP8*X 

TP5*X 

TPU* 



JL 



00903B00 
00903900 
00904000 



T 0000 
T 0000 
4 0000 



*0 
50 
UL 



45 

46 

47 

•8 

49 

50 

51 

52 

53 

54 

55 . 

56 



T01#X 
T02#* 
TD3*» 



0090*100 
0090*200 
00900300 



T 0000 
T 0000 

4 o&aa 



*0 
10 



TP10#J 

TP9,X 

TP6#X 



00904400 
00904500 
009Q 460 Q , 



T 0000 
T 0000 
T OQQO 



10 
«0 
*JL 



TP7#X 
TP7l#1 
JPJLtJL 



00904700 
00904000 
QQ9049Q0 



T 0000 
T 0000 

-I ojjua 



*0 
10 



P3A#X 
P3li*X 
P3I *X 



00905000 T 0000*0 
00905100 T 0000*0 
00905200 T — OQOQJO 



EA#» 



IC fJv 



'V ■■■'■ .' :'/%■-'• i" .: 



i^_ ■ "•*: 



00905300 
00905400 
00905500 



T 0000 
T 0000 
T 0000 



to 

10 
ijQ_ 



^r 



10 



13 



16 
17 
18 



19 

20 



21 



24 
26 



26 
27 
28 



23 

30 



31 
32 



34 
35 



36 

37 " 



39 



42 



44 

45 



47 
18 



49 
50 



53 
54 



55 
56 



ED'% 

U » [,, J r ., J— 



EFAA*X 

EFA#X 

ERTWil 



EFB*X 
EFCiX 
SWITCH 



UCSHHCHi-TAfTtfiKf TCPtTHt* 



switch tipesw*,P3L»P3E#P3a>P3i;* 

REAL RITEINT«12;X 

RFAt SFLFCT«UU 



NAME M*2;X 
DEFINE UALFAj;* 
SUBROUTINE RITFJ* 



BEGIN* 
P(MKS*i#0»0*LNGTh/FlEL»RlTEINT# 

MKStt»Oifli(<M)tf IF! iRTTElNT»nEt)i 



END;* 

subroutine finoe n 

BEGIN IF PcVALLFFxHiATQQQOOQOQOOQn.nUPXO 



THEN* 



4£- 



8EGINX 

SINN*P(OUP>0#0; p<ssp>,valuee*snd>;x 

PCf>«XCH»DTA ^PIB 4?fTRB 6»V A LU£E«D lrt 



-2*- 



DIB l»TRB 1' l2>+#Pll57l6303476i674>x*X 
eil54OQ0000OOQOO0*<M ,E*ISn>OUP)<Q then go to efb;x 
PC TEN5 3 J » 



EFAAUF P s VaLUEE THEN GO TO ERTN;qO TO £FCi* 

ENOIX 
PfDEt >)» 



EFB» 



.e*sinn*o;g.o to ertn;* 
P(ChS*TeNS# i*xch>/j; go to efaa; 

EF C » E»E-i; » 



ERTNU 



eno;x 

SUBROUTINE 



OUTU» 



BEGIN FINDER 

PCVALUEE#.bh'l#IS03iX 
STRFAMfPfl«.Q}P7«.STNN*P6 < 



E+1 + SINN,P2«-0,P1*BCTR);X 
6EGINX 
P2CDS«-LIT" «MJ* 



tVALUFF3»P5»Si;NN*P4«.0,P ? » < 



00905600 
009C5700 
00905800 



00905900 
00906000 
0Q906100 



0000 
0000 
0000 



0000 
0000 

0000 



00906200 

00906300 

00906000 



00906500 
0090660C 
QQ90 6 700 



0000 

0000 
0000 



0000 

0000 
0000 



00906800 
0Q906900 

009 700 



0000 
0000 

00 



00*07100 
00907200 
00907300 



00907400 
00907500 
OQ907600 



0001 
oooi 

0002 



0005 
0005 
0006 



00907700 
00907800 
00907900 



0007 
0008 
01 



00908000 
00906100 
00 90 6200 



00908300 
00908400 
0090 8 900 



0011 

0013 
-00^5 



00908600 
00908700 
00908800 



0015 
0021 
0021 



0021 
0023 
0024 



00908900 
0XJ909Q00 
00909100 



0026 
0026 
0026 



00909^00 
00909300 
00909400 



0027 

0028 
QQ28 



Pi«-Di;si«.p6;us<-P4 dec; si«-P6»si«.sh.8'* 
cs«-P3 dec; p8»di;si*pi;di*pi;x 

P/CIF SCX"0" THEN JUMP REAL TO IAjIt 



00909500 
00909600 
00909700 



T 
T 



0030 
0032 
00 32 



DS«.LIT " M ;Sl*Sl + i);X 
IA$SI*LOC P4;si*si-uif SC»"1 M THENX 
BEGIN* ,_ 



00909800 
00909900 
091 ,0000 



0033 
0035 

Q0 36 



ENDU 
SUBROUTINE 8LNKJX 



end; 



END;* 



di*di-i;x 

DSfrLIT*""';* 



00910100 
009J0200 

Q09ioaoo 



0038 
0039 
0040 



♦p;x 



00910400 
08910500 
00910600 



0040 
0040 
0040 



■>- 



begin;* 

S'TREAM(P3»CSiZE*P24.CSlZE 



00910700 
00910000 
00910900 



DIV 64»P1*(BCTR**FIEL InX 0) 



00911000 
0891U00 
00911300 



0040 
0041 
0041 



0042 
0042 
0044 



P2<32<DS*2 
P3(0S»L3T"> 



LIT* 



>>;x 



00911300 
009U400 
QQ 9 U 3 0Q 



7 0045 
T 0045 
J fiM6_ 



< 



1 
2 
3 
4 
5 

6 
7 
8 
9 
10 
11 
12 



2 
3 

4 
5 



end;* 

IF FQRMT«5 



end;* 



THEN DUMPINT*FIEL ELSE* 



00911600 T 0048*0 
00911700 T 0048*1 
9U80 Q T 00 4 8*2 



BEGIN P(0#0»0 3>* 
IF MEMCFIEL INX NOT 23 INX 53 ♦£43113 
P(MKS«Q»n.rifL,l.SFLFCTlJ* 



THENX 



009H900 T 
00912000 T 
0091 2 lOQ T 



0051U 
005212 
0056 I Q 



IF P(MKSrl'Q>Q*C-l J'FIEL' 
IF P(DUP) <4 THEN P( 
Pcm , iP*fl J x f n,n );ri.n 



RITEINT#DUP)>16 THEN P(DEL#16) ; 

xm;x 

k;x 



00912200 T 0058*0 
00912300 t 0061*3 
91 24 T 06 3*1 



/ 

8 

9 
10 
11 
12 
13 
14 
15 
16 



BRTN* 60 TO OCSwITCHC 
TAI J>TREAM<BCTRtA*Al.FA ) 

SI»LOC Af 



formT];x 

; BEGIN 01*8 

si»si+i; ps» 



CTRU 

7 CHR END IX 



00912500 T 0066*0 
00912600 T 0069»2 
00«12700 T 0071IQ 



TCP* IF 
IF PCTEMP-l i NQT^CVJ 'I 



rite;pcxit);x 
ctemp*temp+1)sn.t 

N Xy LQn ?;P(TE MP+ N - 



HENX 
l*NQT>tCVJ»» 



00912800 T 0072*0 
00912900 T 0073*1 
9 1 3000 T 0075 * 



inx#loo) then p< 
tc» streamcbctrta+alfa 

Sl»LQr At 



XIT) ELSE GO 
)J B 

si»si*n os» 



to tcp;x 
egin oi*bctr;x 

6 CHR;qS»S 



00911100 T 

00 9 13200 T 
00913 



0079*0 

0080«2 
13300 t 0082*0 



17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

♦4 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



i lit"!:"; 
end; bcth«-p;x 

VA LUE E«-PCN -W NOT ^[CVjf INXfLnD)/X 



bctr*di;x 



00913^00 t 
00913500 T 
00913600 T 



0082*3 
0083*2 
0084*.! 



OUT 

IRTN* 1* 

£21 LL_ 



IiX 

o;x 

(I»I»1)< N 



TH ENX 



009)3700 T 
00913800 T 
QQ9j 3900 T 



0086*2 
0088*0 
0088*3 



BEGINJ5TREAM(B«-0 * 
BEGIN DS 

VAL UEE »PCN- I -l'NnTy [ 



bctr);x 

«■ i lit'%»';b 
cvjmnx^loo) 



*di eno;bctr*p;x 
1% 



00914000 T 
00914100 T 
009 14200 T 



0090*2 
0092*1 

0093*3 



OUT! 

Pi* VAL 

S_LR 



JGQ TO P2; 

uee«-cv;x 

EAMfB»Ot- 



end;x 



fl C T RUX 



00914300 T 
00914400 T 
0091 4 50 T 



0096*2 
0098*2 
0099*1 



TB* 



begin os«-2 lit"j=";b*-di end; bctr*p;* 

GO TO P3;X 

\/ALUEE»Bv;X 



00914600 T 
0091470C T 
OQ91 4 8 0Q T 



0100*2 
0102*0 
010?'? 



s»tream(bctr«alfa 

suloc alfa;si 

BC TR»Q I* 



)/ BEGI 

«-si*i; os+6 



N DUBCTRU 
chr;ds*i LlT n » w >* 



00914900 T 
00915000 T 
00915100 T 



0103*1 
0104*3 
QlOftlO 



TD» 



end; bctr*p; go 

Sf REaM(BCTRIALFA 

si + loc alfa;si 



to P3;x 

)/ BEGI 

<-si + i; DS*6 



n di«-bcTr;x 
chr;os»i lit"8";x 



00915200 T 
00915300 T 
00915400 T 



0106*1 
0107*? 

3,09 * 



BCTR*DI» 

end; bctr*p;x 
rite; blnk;x 



00915500 T 
00915600 T 
009^5700 T 



0110*1 
0110*2 
0111*1 



TF« PC(LNGTHx6) 



iJIVCIF T 
THE 

ELI 



ipe=o then 6 

N 19 ELSE IF 
f 1 4?'0'Q'Q* 



ELSE IF TIPE*1» 

TlPEs 2 THEN 9* 

OQ'DEL'OEDiX 



00915 
00915 
00916 



800 T 
900 T 
OOP T 



0113*0 
0116*1 
0119*1 



PUTARRYJ&C2X 
TP2I P<0 
TP3l IF 



N+l)t8»38*103);i* 

>;x 

M»I»1)<N THEM Gfl 



OJX 
TO TP21X 



00916 
00916 
00916 



100 T 
200 T 
300 T 



0122*0 
125*0 
0125*1 



. 1*0 

TP22»P(0 

TP l »Pc.T E MP,SNQ,D l A B » 



i.P<0#.CV» LPo)iGO.. 
«.TEMP*.LQD»LQD.m 
OIB 38>TRtf lOiUF 



TO tpi;x 

(I»I*1)<N T 



HEN* 



00916 
00916 
00916 



USL6 



400 T 
500 T 
00 T 



0127*2 
0129 12 
013012 



GO 
TP81 I«0 
TP 5 * IFC 



TO TP22;X 

jpc,cv*lqd);x ., 

1»U1X H THE N1 



00*16 
009}6 
00916 



4L&* 



700 T 
800 T 

00 T 



0133*2 
0134*0 
0135*1 



BEGINX 

p(I*tarry,cdc*lqd);go to tpsx 
e nd;* . 



0091? 
00917 
00917 



oa 



000 T 
100 T 
00 T 



0137*0 
0137*2 
0139 SO 



trow«-p; j*o;x 

tp 1 1 1 p c j > ; valuee*trowi go 

Tnil .lf.tJ-»J*i V«HM«.DfclP»*j 



TO P3iX 
TARRY) THFN 



GO TO TP7JX 



0091? 
00917 
00917 



300 T 
400 T 
500 T 



0139*0 
0140»1 
014113 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



TD2» 



hite/9lnk;x 
hite/8lnk;x 



Tnn ptn. t cnnMT.si\.uur f n Tn tpa;* 



TP16* IF P(N-I>TARRY»2xN»I#TARRY,l#«,«) THEN 60 TO TP9JX 
P(N*I#[TARRYJ*DUP*C0CM**>XCH#«OjG0 TO TP8iX 
TP9I PCO»N»I»{TARRYl»*«I)f 



00917600 T 
00917700 T 
00917S0C T 



0144*3 
0147»0 
flj,49*0 



00917900 T 
00918000 T 
0Q9l8iQ0 T 



015011 
015411 
01571 



4- 



TP6* IF(I*PCl,t))5N THEN PCXIT) ELSE GO TO TP1QJ* 
Tp7* IFCCOUNT + CQUNT + UXNL THEN GO TO TPlliX 

R l te: jblnk ; % 



00918200 T 
00918300 T 
00918400 T 



0159*0 
0161*1 

0163*2 



tp7hcount*o;go TO TPlUX 

P3* GO TO TIPESWCTIPEJiX 

P3A» STRFAMfBCTR»VALUrF)l Brr.TN nt+BCTRJX 



SJtUQC VALUEE;Sl4-Sl + i;oi»«-2 LIT" »JD s «-7x 

.chh;bctk*o.ii.*.. 

ENDJ BCTH»p ;GO TO P5J* 



00918500 T 
00918600 t 
0n<tft7QQ T 



0j66*0 
0167*1 
Q17QU 



00918800 T 
00918900 T 
Q0 9190 Q T 



0171*3 
0.1.721.3 

ouaii 



P3LI STREAM(V*VALUEE ANO llBCT'R}! 

BEGIN DS*6 LIT " FALSE"; 
, VCDI»0I«5; DS»5 LIT "TRUE ")i 



009191 00 T 
00919200 f 
0091 9300 T 



0174*2 
0176*1 
01 7711 



v*di; 
end; bcth*p;go to ps;x 
p3h if valuef < 97777777777777 then* 



009 19 400 T 
00919500 t 
00919600 T 



0179*1 
0179*2 
Ol 8Q< JL 



19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 " 



BEGIN P(VALUE£#.VALUEE#ISN#0UP»0,<,»SINN#*,* 
SSP, # DH2#SND'* 1045753604000000*0 JV*» 
.DHl.OJX 



00919700 t 
00919800 T 
0091990 T 



018H2 
0i84»0 

Qias* 1 



STREAM (P8«-0»P 7*1 i>P64.cQHl]»P5«-SlNN#P4>4'P3«.8*P2«-;i*% 

PltBCT.HHX 
BXjG-LNJ . , 



00920000 T 
00920100 T 
00920200 T 



0l85*3 
0188*0 
0; 8 8 i-2- 



P2CDS«.LlT ff M )iX 

pi*dux 

SI»P6|» 



00920300 T 
00920400 T 
00920500 T 



0188*2 
0189*3 
019010 



DS*P4 QECI...SL*P6;sit.5I*8;os»P3 DECJX 

P8»oi;si«-pi;di«-pi»* 

P7CIF SC*"0" THEN JUMP REAL TO IAJX 



00920600 T 
00920700 T 
O Q9PQ8Q0 T 



0190*1 
Ol9l«3 
1 9?*? 



DSf-nT * w ; si«-si*i);x 

IA«SI*L0C P4iSl*Sl-UIF SC*"1" THENX 
BEGIN! 



00920900 T 
00921000 T 
00931100 T 



01 94*0 
0195*0 
Ot9ft*0 



di*di-i;ds*uit "-";x 

end;x 
enq;bctr*p; go to ps;x 



00921200 T 
009gl300 T 
0Q92 1 40P T 



0196*0 
0196*3 
0j 96*3 



39 

40 
41 
42 
43 ~ 

** 
45 
46 
47 
48 
49 
50 
51 
62 
53 
54 
55 
56 



P3E* 



_£AL 



end;* 

FINOE; DH2*QjX 
IF P(VALuFF,E»11,"jDH2j+,DUP)<0 THENX 



00921500 T 
00921600 T 
00991700 T 



0200*0 
0200*0 
Q2Q1*3 



EC* 
-EUL 



BEGIN P(CHS»TeNS>MUL); GO TO ED END'* 

PCTENS'O; 

IF PC PUP? i *7777?77777777 THEN* 



00921800 T 

00 921900 T 
0fl9g?n00 T 



0204*0 
0205*3 
Q20ft'l 



BEGINX 

PC.0H1#ISN)U 
IF PCDUP^ i P(l2xQM2*TFNS) THEmX 



00922100 T 
00922200 T 
009223Q0 T 



0207*0 
0207*2 
020 6*0 



BEGINX 

pcoed;*... 

PCU" DH 2*TENS»,DHlf ISN); 



00922400 T 
00922500 T 
00922600 T 



0209*2 
0210*0 
02,10*1 



E * E + 11* 
X 

Pt»lO457S3604OO06OQ*tOV».VALUgr»«.3; 



00922700 T 
00922800 T 
00932000 T 



0211 1 3 
021310 
213*0. 



STREAMCPl04.0*P9«-ABS(E)>P8*CE<0),p7*5jNN*P6*OH2,X 
P5«-CVALUEE3*P4*4-0H2»P3«-8#P2«-2'P1*BCTR);X 
BEGINX 



009?3000 T 
00923i00 T 
00923^00 T 



0214*0 
0216*2 
0218*2 



P2tQS*UT« ">W>l*PIJS|*LQC P6>SI>SI-UX 
IF SC**1 M X 



90*29300 T 

00*2 1*400 T 
00923S00 T 



0218*2 



frggfl * 3 



rf 

2 
3 

4 
5 
6 
7 



oi«-oi-i;ds«-uit"- w * 
end;* 

Dl»PI t i;Sl »P 5 ;DS»p<t DKCJSi «.pb;Si»S I + 8 ;s 



00923600 T 
00923700 T 
009?3flOQ T 



022l«0 
0221 13 
Q223 '3 



os»P3 oec;x 

P6(DS*LIT M W )IX 

O StLlT-P"*' * 



009^3900 
009?4Q00 
OQQgfltOO 



T 0223*1 
T 0223*3 
-* 0225*0 



SI HOC P7.iSltSl-UX 

IF SC.«?.l" THEN DS*LIT"- M ELSE DS«-LlT M + M ;X 

SI»L0C P9jQS»2 QECJ Pl.Q»PlJS.l»PliSl»S 



4±4n 



00924200 
0092*300 
00924400 



T 0225 * 2 

T 022610 
41 — 022713 



di*pu0$*chr;0s«-ut". w >x 
end;bctr*p*x 

_E5J IF F0RMT«4 THEN fiO la TniJt 



009JH500 
00924600 
00924700 



f 0229*0 
t 0230*0 
J — 0230*3 



r 

«< 

9 

10 

iH 

_V2 
13 
14 i 
15 

16 

17 < 

18 

19 

20 ( 

21 

22 

23 i 

24 

25 

28 I 
27 
28 

29 ( 
30 
31 
32 ( 
33 
34 
35 | 
36 
37 
38 ( 
39 
40 
41 ( 
42 
43 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

•2 

43 



end;* 



rite; pcx it) ; end.;* 

P.(.PEL.>;0H2*0H2.t.li.60 To EB;X 



0092*800 
0092*900 
Q0925000 



T 023210 
T 02331 1 
I ■ 23 ^0 



END DUMPlNTiX 
PROCFOURF XTOTHEI INT C BASE* fXPON'M,LOG»FXPllX 



00925100 T 0216*0 

SIZE* 0239 WORDS 

Qionoooo t Qnooio 



value base#exponVm#log»exp;x 

REAL BASE»t.XPnN/M»UOG*£XP;ai 



START OF REL 



SEGMENT 

01 

0_L 



; DISK 
001000 
002000 



ADDRESS * 
T 0000*0 
J 0000*0 



002o« 



BEGIN LABEL RQWSfMQRe^EXlTiX 

REAL CTR*+l,F2«+2;» 
IF EXPQN » n THFN* 



0003000 T 0000*0 
1004000 T 0000*0 
01005000 T 0000*0 



BEGIN BASE t U PCXIT) END#X 
IF BASE ..■ THEN P(XIT)#X 
IF EXPQN. [3*351 * THEN* . 



01006000 T 0000*3 
OlOO/OOO T 0002*1 
OlOO B OOO T — 0003*3 



BEGIN BASE * P(MKS#BASE#LOG#MKS*CTR#EXPON#X#EXP>lX 

P(XIT);X 
ENDU : 



01009000 
OlOiOOOO 
01 Oil 000 T 8 11 



T 0005*0 
T 0006*0 



ROWS! * 



P(l#EXPQN»BASt»DlA 38* DIB 39>EXPQN>;X 
IF PCQ'XCH>FCE 9) THEN* 
tffcfilN PCDEL)i» 



1012000 
01013000 
QlOlAQQO T 10*3 



T 0008*1 
T 0009*3 



MOREl* 



IF (CTR * CTR-i) « fH£N GO TO EXIT;* 
P(MUL>;X 

fin to mgnf?x 



01 
01 



015000 
016000 
017Q00 



4JU 



T 0011*2 
T 0014*1 
X 00 14 *2 



( t% 

end;x 



01 
01 



018000 
019Q00 

020000 



0015*0 
0015*0 

ooi5»n 



IF EXPON THENX 

BEGIN CTR ♦ CTR+t;X 

Ptauput 



01 
01 

JU 



021000 
022000 
023000 



T 0015*1 
T 001512 
T 0017*1 



end;* 
p <dup>mul*0> expon *trb 9> .expon* snd ); x 

G Q TQ RO WS;* 



01 

01 

JU 



02*000 
025000 
026000 



T 0017*2 
T 0017*2 
J 0019*1 



45 
«6 
47 
•8 
19 
50 
51 
52 
53 
54 
55 
56 
57 



EXITl 



IF F2 < THEN PC1'XCH#/>;X 
8ASE * PU 



e nd;* 



01 

01 

JU 



027000 
028000 
290 00 



T 0019*3 

T 0021*3 

JC QQ22*1 



45 

46 

47 ( 

48 

49 

50 4 

51 

52 

53 ( 

54 

55 

«l 

57. 



PROCEDURE STATUSINTCT*C); VALUE T/C; REAL T.J INTEGER C; 



ST A RT OF R EL 



OllOOOOO 

segment; disk 



SiZE s 0023 
T, 0000*0 
ADDRESS » 



WORDS 



•Jtyl^M-Xa iwf wm 



BEGIN PCT*C#28#C0M#DEL#KTN) END; 
RFAI PRriPEnUfiE AftSlNTfy)i \zA>U£ Xi «EA> *t% 



01101000 T OOOQIO 

SjZE" 0002 WORDS 
QiaOQOOO T QD-O-OJH - 



BEGIN PCABS(X),RTN) END/X 



START OF REL 



SEGMENT* DiSK 
01,201000 



ADDRESS « 
T 0000*0 



00206 
S I ZE S 0002 W O R DS 



REAL PROCEDURE 5IGnInT(X >; i" VALUE X| REAL X;X 



START OF REL 



BEGIN PtSI 



iiRTNl ENQH 



01300000 

segment; DISK 

0H01Q00 



T 0000*0 
ADDRESS ■ 
T 0000*0 



00207 



INTEGEN PROCEDURE ENT IEKINTC X ) i VALUE X; REAL X;x 



n 

2 
3 
4 
5 
6 
7 



.START QF REL 



SiZE» 0003 

OHOOOOO T 0000*0 

SEGMENT* DISK ADDRESS « 



WORDb 



QQ 20 8 



BEGIN ENTIEHINT * X-,5 END;X 
REAL PROCEDURE TIMEINT (X); VALUE Xi REAL X;> 



OlftOiOOO 
15 0QQQ Q 



T OOQOfO 

IZE« 0003 

1 0, 00 0*0 



WORDS 



i 

2< 

3 

4 

si 

6 
7 
8< 

9 
10 

nl 

12 

13 

14 i 

15 

16 

,7< 

18 

19 

20 ( 

21 

22 

23 ' 

24 

25 

26 ' 

27 

28 

29 I 

30 

31 

32 I 

33 

34 

35 I 

36 

37 

38 I 

39 

40 

4, < 

42 

43 

44 ' 

45 

46 

47 

48 

49 

50* 

51 

52 

53 < 

54 

55 

6a < 

57, 



BEGIN PCX'l* COM,RTN) £Np;% 



START OF REL 



SEGMENT 
01 



; DISK 

501000 



ADDRESS * 

T 0000*0 

HZEs OOP? 



QQ209 
WORDS 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



PROCEDURE DELAYINT(ARRY# MaSK# TIME>J% 
VALUE ARRV* MASK* TIMEil 



*WF 01600000 T 000010 

START OF REL SEGMENT; DISK ADDRESS « 

XmE__ oiftoioQo t ooooto 



00210 



ARRAY AHR.YC.*.]; REAL ...MAS.K1.. INTEGER TIME!* *HF 

BEGIN PULI.SHCAR.RIf ...MASK* TIME* 31* COM* DEL* DEL* «TN) END;* *wF 



01602000 T 000050 
01603000 T 0000*0 

SiZ£B 000 3 W O R DS 



PROCEDURE SQRTINTCX); VALUE x; REAL x;X 
BEGIN RFAL Y»«l »?a + ? i% 



START OF REL 



01 
SEGMENT 
0170 1 



700000 
J DISK 

70 1 000 



T 0000*0 
ADDRESS ■ 
• — 00 :0 



002U 



LABEL P.5.#0.N£iX 

DEFINE INNER ...» XCH'MUL'DUP* .Y.# XCH//#* % 
1TFR s P<+yP5'lNNFRH/S 



01 
01 



702000 
70 300Q 
704000 



T 0000*0 
T 0000*0 

-T oono>-0- 



IF 

IF 



X<0 THEN PClf26#C0M>; X ARGUMENT CHECK 
PCABS(X)fOUP) * THENX 
BEGI N P( QNE»»*nUPfQ/OFI 



XIA 



:i»% 



01 
01 



705000 

706000 
707Q00 



T 0000*0 

T 0002*0 
4 0001*1 



DIA 7f 
OlA 2f 

Y»DUP 



juO 



DIB 45* VFI 3 7* YfX 

TRB 1*,QNE*«-*LQD'X 

IR 3tTRB 6iXCH»INNER);X 



01708000 T 0005*0 
01709000 T 0006*0 
01 7100 00 T 7*1 - 



27 
28 
29 
30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



^LO- 



ITERHTfcRHTERJX 
PCZ*-*P5»x#+>;x 
JlX 



01711000 T GO 10*0 
01712000 T 0016*0 
01713000 T 0017*1 



-CUvE- 



Pb* 
LLS 



. PC.8TN.U*. 

' <?1154000000000000;* 
ei7700QP00Q00riQ0li» 



01 
01 



714000 
715000 

7iftono 



1716QI 



T 0017*1 
T 0017*2 
4 0019* 



31235560000000000** 
ei233250000000000*X 
»i33i>ooonoooQOoonf» 



01 
01 



717000 
f IBOOO 
719QQ0 



U-l 



T 0020*0 

T 0021*0 

J 0022*0 



P1221150000000000'* 
eU15556QQ0QQ000a0>* 

fr0l53250Q000QQ00n* it 



01 
01 



720000 
721000 
722000 



T 0023*0 

T 0024»o 

J. QOPVO 



?0152000000000000>X 
eOl5ll5000000QOOO*X 



fnd;x 



oi 

_0_L 



723000 
724000 
725000 



T 0026*0 
T 0027*0 
f 002fl*0 



DEFINE SINCOSBOOY «* 

PJJJJU 



oi 



800000 

e aioo Q 



ijZE 8 0029 
T 0000*0 

T 000* 



WORDS 



IF X < THENX 

BEGIN X ♦ *X; 
IF X i P(PI) THENX 



P(CHS) ENO** 



01 

01 

_0_1 



802000 
803000 
8Q4Q0 Q 



T 0000*0 
T 0000 tO 
T 0000*0 



46 
*7 
W 
49 
SO 
51 
52 
53 
54 
55 
58 
67 



BEGIK P(NOP)** 

IF P(X/PCPI)*P(HALF)' DUP)>P(MAXI) 
ThEN PCLlTERALf 26* COM)/ 



XWF 

XwF 



01 
01 

-Oi 



eosooo 

806000 
807000 



0000*0 

0000*0 
000010 



end;* 



IF I ♦ POLISH THEN P< CHS); 

x * x moo PCPim 



XWF 



01 
01 

JP_1 



808000 
809000 

eiQ QQo 



T 0000*0 
T 0000*0 
T 0000 1 



IF X i P(PIHAF) ThENX 
BEGIN PCCHSJU 

X ♦"X-PlPi)!* 



01 
01 
01 



811000 
812000 
813000 



T 0000*0 
T 0000*0 
T 0000*0 






end;x 

IF *#&CX) < ,000001 THEN PC2xX»«TN);X 



'" - i; ■■■■ ■ " ■-■ - - 



oi 

01 
_0i 



814000 
815000 
• 16QQQ, 



T 0000*0 
T 000010 
T 0000>0 



h 



-ELL 



x,DUP,K1,NUP,x,K2,-,T,x,k3,+,T,x,K4,-,T,x,K5>+>T#x#k6,-,T, 

x*1.0»**X#**Z#XCH#*#RTN>J* 

MIP iya311p375524i»l0jg 



01817000 T 0000*0 
01818000 T 0000»0 
OlfllVQOO T ..,..000,010, 



i 

2 
3 
4 
6 
6 
7 
8 
9 

to 

11 
12 



PIHAFI*** 
HALF **»0 
Kl *H# 



1*41444176652104JX 
11540QOOQ0O000O0JX 
l27t3«523443lll3ll 



01820000 T 0000*0 
01821000 T 0000»0 
01HP2QO0 T 0000 JO 



K2 

JiJL 



I I If. 

JJJJ. 



1253270Q.0.5.32Q6 2.*;*. 
12.3561.67162011771.11 
l2!6flQQ637<'i3qi5Qf* 



01823000 T 0000*0 
01824000 T 000010 
0162&QQQ T 0000*0 



K5 III? 1174210421041102** 
K6 II I* 1151252525252524;* 

MAXT LLLg 0007777777777777** 



XWF 



01826000 
0i82?000 
03828000 f — QOOQIQ 



T OOOOIO 
T 0000*0 



PROCEDURE 



8lNl.NT.CXil. VALUE X; REAL XI % 



01829000 T 000010 

01830000 T 0000*0 

START OF RE L S E G M E NT' DI S K A D DR ESS = Q0al2 



13 
14 

15 



BEGIN REAL T»o2#Z»+t;X 
INTEGER I»T1X 

label PijPihaf>halfj*. 



01831000 T 0000*0 
01832000 T 0000*0 
01833000 T 0000*0 



16 

17 



LABEL K1#K2*K3>K4/K5#k6;X 

label maxiu 

D E F I N E L I TER A L » «» i 



XWF 



01834000 t OOOOIO 
01835000 T OOOOIO 
0183 6 00 T — 00 0*0 
01837000 T 0000*0 
01838000 T 0034*0 



19 

20 



;sincgsbody;* 



EN01X 



S iZ£ » 0037 WORD S 

01839000 T 0000*0 
START QF REL SEGMENT* DISK ADDRESS * Q0214 
01840000 T 0000*0 



22 

23 
24 
25 
26 



PROCEDURE COSINTCX}* VALUE X; *EAL XJ} 
BEGIN REAL T«t2'Z" + 1 i% 



28 
29 



31 



INTEGER I«TJX 

LA&EL PI#PIHAF >HALFJX 

LABEL K1.K2.K3.K4.KSjK61X 



LABEL MAXi; 

DEFINE LITERAL = b*J 

X ♦• X+P(PlHAF »NQP'NOP»NQPm 



*WF 
XWF 



01841000 
01842000 
01843QQQ 



ENOIX 



SINCOSBODYJX 



01844000 
01845000 

01846000 



0000*0 
0000*0 
QOOQIQ 



01847Q00 t 

01848000 T 

StZ 



0000*0 
OOOOIO 

QQOQIQ 



12£ 



0002*0 
0036*0 
9 0039 



WORDS 



34 
35 

36 



COMMENT ARCTAN INTRINSIC fQR ESPQL'X 
REAL PROCEDURE ARCT ANl \T C Xl ) ; X 



START QF REL 



01900000 T 
01901000 T 

segment; disk a 



0000*0 
0000*0 

RESS m 



DDRE 



AQ216 



38 



40 
41 
42 



43 



46 



•8 
49 
50 



55 

56 



VALUE Xll REAL X1J* 
BEGIN REAL Ts* 1*D*PI2* ARC YJX 

LABEL H,QNEL*PIHaF»A»B*ARCA»ARC8»TENm6J* 



LABEL Kl,K2,K3»K4>K5#K6,K7;X 
DEFINE ONE « P(ONED#J* 
REAL XSXllX 



01902000 
01903000 
01904000 



PCDIA J>DI8 DiX 
IF CT * ABS(X")> > ONE THENX 
BEfilN Pig «. P(FlhAF»X»TRB 1);X 



01905000 

01906000 
01 9Q7Q0Q 



OOOOIO 
0000*0 
O QO Q'Q 



IF T 2 PCL1) THEN PCX«-0)X 
ELSE P(ABSCX«-*CDNE/X)))1X 
T «-_P_i* - 



01908000 T 

01909000 t 
0191Q00 T 



0000*0 
OOOOIO 

ooqq;o 



EN01X 

IF T < PCTENM6) THEN PCX+PI2, RtN )J* 
IF T > P(K1) THEN*. 



01911000 
01912000 
01913000 



0000*0 
0001*2 
000110 



BEGIN IF T < P(K2) THEN PCA'ARCA) ELSE PCB#aRCb)1* 
D «• P(X>TRB 1*.ARCY#SND»TRB 1)1* 
X *• CX-Qi/CnxX + ONEUX 



01914000 T 
01915Q00 T 
0191 6 000 T 



000413 
000613 
0009*0, 



END1X 
P(X#0UP>X 
Xi.T»SNQjK3,*,K4»+>T,*,K5.»,Tt»jK6,+.T,x,K7.».T.«.0NE,+ 



0i9l?000 
01918000 
01919QQ0 



0009*2 
0009*2 
01 1*3 



T. 
T 



01920000 T 
01921000 T 
Q1 922Q QQ T 



0012*2 
001513 
001712 



0020*1 
0020*1 
Q Q2 0M 



# • 



n 

2 
3 
4 
5 



dnel ***e iuiooooqooooooo;* 

-U mp,fl03lOQO,OQOOOOQOOI» 



Kl *<** 1151210574175662;* 
K2 *!** 11540470lQ24l407;X 

_tc3 ntp 3i,ft3a , u*aflA7(mm 



01923000 
0192^000 

01925Q00 



0026*2 
0027*3 
02 9* 



K4 U»e 1167063634367006;* 

K5 «**? 1151 11 110 47 36 450 j* 

JL& HIP 1151,<Kj,3Hft300l?6JS 



01926000 
01927000 

Oi9a e ooo 



0^929000 
0i930000 
01931QQ0 



ooioto 

0010© 
00 3 210 



00 33*0 
0034*0 
0035>Q 



9 

10 

11 

12 

13 

14 

IB 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

90 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



K7 III* 1152525252525235)* 
PlWAFUie 1141444176652104;* 
A I t t» 11*9Jn6;>67S77 3293t» 



01932000 f 
01933000 t 
0l934Q0Q T 



0036*0 
0037*0 
00 3810 



B «»*? 
ABC A t * If 
ARCR 'ME 



1155637726073171;* 
1152406627566472;* 



-I 



i.9 35000 T 
01936000 T 
01937000 T 



00.39.1.0 
0040 1.0 
Q04jL*0 



TENM6*t»f 

end;* 



1232061S73640554;* 



019 38000 T 
0J939Q00 T 



0042*0 

0043*0 



SIZE* 0Q44 WORDS 



COMMENT LN 
PROCEDURE LNINT(X); 



INTRINSIC- FOR ESPOLi* 

value x; real x;* 



START QP R EL 



02000000... T 
02001 000 T 

se g ment ; disk a qo 



0000 JO 

0000 to 

RfSS , r flQ gie 



BEGIN LABEL L 1 ,L2,L3#Kl5,Kl6,Kl7,Kl8,K19|* 

LaBE*. K0N>Ki,K2>K3#K4,K5#K6^K7*K8#Ki0*Kil,Ki2#Ki3,K 1 4;* 
LA BEL MIM;* 



02002000 t 
02003000 T 



define one 5 pckcn)»;* 

if xio then pjcx,0.,«,uup* + *26*cqm)j * argument check 

;X t AHS(X + P(hIN)n> P(K1) THFN* 



0000)0 

0000*0 

0200 4 000 T 0000 * 



*IA 



02005000 T 
02006000 T 



IF c: 



-L^J- 



if x < p( K2> Then* 

begin pco'oh* 

poo;* — 



0000*0 
0000*0 

020 7000 T 0003*0 



0005*0 

0006*1 

aOlOpOO T 0007*1 



02008000 T 
02009000 T 

oaoioooo 



GQ TO L2H 

end;* 

'Cx.C3l6j&X[li2lll + 12.0[jP»K3,x,xCH,DUP» + )J» 



02011000 T 
02012000 T 
0?0l 3Q0Q T 



0007*2 
0008'0 
OOQfliO 



45 

46 
47 
18 
49 
50 
51 
52 
53 
54 
55 
56 



IF (X*X&76C2*41*71) t P(K7) THEN BEGIN* 
IF X *PCK10) THEN BEGIN PCK14 #+,Kl3 )) GO TO LI ENDU 
BEGIN PCK12»**KU)J GO TO LI END; EN D ;* 



02014000 T 
02015000 j 
02016000 T 



oeu«3 

0014*2 
1 7*0 



IF 



I 



X 2 PCK4) THEN* 

dEGlN P(0NE#+»K8); GU TO 
F X S P(K2) THEN GO TO L3;* 



LI end;* 



02017000 T 
02018000 T 
02019000 T 



0018*1 
0019*0 
O Q20* 3 



P(K6»+*K5);X 

Li** p(X#x);x 

L2l PtQNE^DuPjK^ + jX 



02020000 T 
02021000 T 
Q2022QDQ T 



0022*0 
0022*3 
Q023I2 



/#DUP'0UP»N0P*X 

x * • X * 3 N D * K 1 5 , x , K 1 6 » ♦ , * , x , K 1 7 , + , x t * » K 1 8 * + # X ' x ' K 1 9 » « p % 

XjX»Ki4h.»XCH»**+»+*RTN);* 



02023000 T 
02024000 T 

O2O 25Q00 T 



MlN****177Q00QOQO0O0O0i;x 
KON***H141GOOO0OOOOOGQ>X 
Kl <**frll5616575747526i;* 



02026000 T 
02027000 T 
20 2 8000 T 



0024*3 
002513 
0030*2 



0032*3 
0034*0 
00 35*0 



K2 * 
K4 « 
K3 » 



?1141221327436077>X 

PI 14207 37 16664 320 ;« 
»lt65053l077i6726;* 



0g029000 T 
20 .3.00 0.0 T 
02 0310 00 T 



0036*0 
0037*0 
QQJfl'Q 



K5 * 
K6 I 

K7 t 



II 

I 
II 



§11546642^2770676;* 

134QOOOOOOOQ&0O** 
»U» 13730 34 3555 42;* 



02032000 T 
Q2O330OQ T 
09034000 T 



0039*0 
00*0*0 
004t<0 



KB * 
KIOI 

KIM 



P1152M2653066132'* 
H145602266440557;* 
91151621741671113;* 



02035000 T 
02036000 T 
bpQ370.QQ 



0042*0 

0043*0 

.OQM'O 



P114140' 







OOOOOOOOQl* 
X 



02638000 T 
QgQ40flQ0;f 



0045*0 
004610 



7 
8 
9 
10 
11 
12 
13 
14 
15 
IS 
17 
18 



19 
20 
21 



22 
23 
24 
26 
26 
27 
28 
29 
30 
31 



32 
33 



34 
35 
36 

37 " 



38 
39 



40 
41 
42 

43 



45 



47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
67 



Kl5tuell5l4066 57727033JX 

Ki,7»}}Pu t )?2t?2a,?<o<h6ft«n;ai 



02041000 

02042000 
020430QO 



K 18 Ml PI 153 146 3 14625 377iX 
K 1 9 * * * 9 11552525252525 30 ; X 
ENOit : 



02044000 
02045000 
050 4 6000 



004810 
0049*0 
050 *0 



0051*0 
0052»0 

oosa»c 



COMMENT 
-REAL PROCEDURE: 



EXP INTRINSIC FOR 
EXPlNT(X) i VALUE 



ESPOLiX 
X ; R EA L , 



x;s 



BE « INX 
-S£AL 



START OF REL 



SiZE« 0054 WORDS 
02100000 T 0000*0 
0210 1 000 T Q000 » 



Q j +4. 2 ■♦!, EX ii ♦ ?. fl B + 3, Y»*5. T m +21% 



segment; oisk 

02102000 
02103000 



ADDRESS ■ 
T 0000 »0 
T QOQOtO 



0022Q 



LABEL B0*Ki#K2fK3#Kfl#K.bFK6«hALFiX 

LABEL MAXi 

TF X < PtKO) THFN PCRTlN?/* 



02104000 
02105000 
02 1 06 00 



0000*0 
0000*0 
0000<0 



IF X>P(MAX) THEN P<3* 26# COM); 

P( X*Kl»x#.X#SND# HALF»-*.Z# I SN*CHS# X**# . X> SND#X 



XWF 



K6#*»X#*#pgP»a.f t».BfQ* ,, #NqP.*./#DUP..».0».P.EU.*Ptt 3*6J4YCll2*13'X 
.Z*.3»DlV.»+> .EX > SND' P & PC2IU1HEX[3*42*6]fX 
2,?» M0D,DUP»*» .EX, SND.O,* ) }% 



02107000 
02108000 
02109000 



0001*3 

OOQ3»3 
0007*1 



IF P 



THENX 
BEGIN 
FX» * 



O2HO000 
02111000 
021,12.00 .. 



00l2»0 
0017*1 
Q q 2 q> 2 



IF 2 < THEN P< EX*/*CHS#RTN);X 
)} ENp; P (RTN)JX . 



Q2M3000 
0211*000 
02115000 



0022*3 

0022*3 

0025*2 



KC'»* 

K 1 : * i 

K2»" 



* 3121520000000000 IX 

* 114i34252l662«45^ 'X 

* 113532673717^)655 UL 



K3*»* 

K4*** 
K«i*** 



* 11Q23606335O0106 ;X 
9 1075621717466364 i% 
9 1111554324131444 i%_ 



02U6QQ0 
02117000 
02U800Q 



0026*1 
0028*0 
0029*0 



02U9000 
02120000 
Qgl21ri00 



0030*0 
003j*0 
0032*0 



K6* * » 
HALF* :l 

Max: * ; 



1072002411247315 }% 
*> 1154000000000000 i% 
g 1 12236Q0O0000OQ0 ; 



02122000 
02123000 
02124000 



0033*0 
0034*0 

0035*0 



END E#P INT ;X 
PRnnrnURf r.nTQSfli vertmt(i i Kir.nxi 



02125000 T 0036*0 

SiZE* 0037 WORDS 
02200000 T — 0000*0 



value l>x*f»b;real l*x,b;array fc*j;x 

BEGIN IF L * 15 THEN 



START OF REL 



segment; disk 
02201000 

022Q20QO 



address * 
T 0000*0 

T 0000*0 



00222 



L * L&(F)C18*33»15HBC8«38*103;X 



end;x 



02203000 T 0000*3 
02204000 T 0003' 3 
_. Sf2r» 0004 WORDS 



REAL PROCEDURE MAX1NTCX)JX 
value x; REAL Ai% 



XWF 02300000 T 0000*0 

START Qr REL SEGMENT; DISK ADDRESS « 

X_wF 0?30ln00 T 0000*0 



00223 



BEGIN REAL RCW»+Qf SI2E**1# <JUNK" + 2;X 
POLlSH<RCW# FCX» CRCW3 INX NOT 1 
WHTLF SIZE>0 DO BEfifNI PCDUP1JX 



INX 0, XCH# SUB, 0* xux 



XWF 
XwF 
XWF 



02302000 
02303000 

02300Q00 



0000*0 
0000*0 

0003*1 



JUNK * *(PC.XJ+S1ZE);X 
IF PQ.LISH<CJUNK <• JUNK) 
$I<F ♦ STZE'WX 



THEN PCDEL* DuP)'X 



XWF 
XWF 
X WF 



02305000 
02306000 
Q23Q7QQ0 



0004*3 
0006*1 
0008*1 



FND 



end;x 

P0LISH(8TN);x 
maxtnt;* 



XWF 
XWF 
XWF 



02308000 
02309000 
02 3 1 0QQQ 



0009*2 
0010*0 
OQtO*l 



REAL PROCEDURE MININT(X);X 



START 



VALUE x; REAL XiX 

BEGIN REAL RCW*+0# SIZE*+1# JUNK*+2;X 
Fn.LlSHCRr.Wf ,.;,F,CX? [RCW1 INX NOT 1 



SiZE» 0011 WOROS 
XwF 02400000 t 0000*0 

OF RE L SEGMENT* P.JSK, AQpRES S m Q Q22 4 



inx 0/ xr.H* Sub/ 0/ x>;> 



XWF 
XwF 
XWF 



02*01000 

02402000 
0200 3000 



0000*0 

ooooio 

0000*0 



2 

3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 

14 t 

15 

16 



18 

19 

20 J 

21 

22 

23 { 

24 

25 

26 { 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 ( 

42 

43 

46 

46 

47 ( 

46 

49 

50 4 

51 

52 

53 ( 

54 

55 

56< 

57, 



• • 



h 



10 



12 
13 
14 
IE 
16 
17 



19 
20 



21 



24 
26 



27 
28 



30 
31 " 
32 



34 
35 
36 

37~ 



44 
45 



47 



49 
50 



52 



55 

56 



y 



WHILE SIZt>0 DO BEGIN K J (pUP);X 

JUNK «■ *(P(,i() + SUt);» 
I F PQU5H>(JUNK t &m&l THFN flQVXt O l, iP) £JL 



SIZE *■ SI2E-1JX 
ENDJX 
PQLISHfHTNUX 



XWF 
*WF 
XWF 



E\D MlNlNTi* 



XWF 
XWF 
XWF 



02004000 
0?405o00 

naooftono 



02407000 
0£408000 



0003 
0004 
0006 



0008 
0009 
OOtO 



PROCEDURE supehmqvehintcsohcej PEST* AEXP)JX 



XWF 



02410000 T 0010 
SlZE^ 00 

ogsnoooo T oono 



VALUE AEXP; INTEGER AEXPi 
BFGIN INTFGFJ 1* + M% 



ARRAY S0RCEC*3# DESU*3;X 



P QL I SH c SOR c E ., t e .» 1 ] > E S T , C 8 » 1 3 ) ; X 

IF P(PUPJ<T THEN P(XCH)'X 

TF PfDFL. UUP)>AFXP THFN T <• AFXP;* 



START OF REL SEQNeNT; DISK 

XwF 02501000 

XJH£ Q?5Q200Q 



aooress 

T 0000 
X 000-0. 



IF T>0 THEN 
STREAMCH4*P* 
BEGIN SI»P2; 



XWF 
XWF 

*wf 



End suPERMQVERJhT;* 

PROCEDURE COBOLFCRJ 



XwF 
P3*P<0UP).t36l6 3* P2*CSORCEC0 3 3»Pl*COESTt0 3]);XWF 

,P3(0S»32 *ps; ps » 3? wps); os»P4 wos; end; xwf 



02503000 
02504000 
02505000 



0000 
0002 
00Q3 



02506000 
02507000 
Opsnanoo 



T 0005 
T, 0006 

11 Q0Q9 



xwf 



begin 



REAL CODE 



N AM E FL .PC 



REALMKSCW ' ; '' :: ' : . 
REAL CLOSELOCK 



START OF REL 

"H X OalNVALlPjUOPEN INPUT, 2»QPEN HEV IN 

% 3«0P.EN. 0UT^4»CL0SE'5s0^£N I-0,O=S0RT 

% 7«.CLQS.E CRUNCH#16*UPEM,17*CL0SE1 

*-** > POINTER TQ FIB DESCRIPTOR 



02909000 T 0011 

SIZE 8 00 
OP600000 T 0000 



segment; OISK 
02600100 

26Q0UQ 



AOORESS 

T 0000 

j OQOQ 



3; 



% * MKSCW «NQ REEL" I FOR REEL C(.OSE 

X « REEL # FOR REEL OPEN. 

X HOW Tn CLUSF THF F1LF _. 



02600120 
02600200 

02600300 



0000 

0000 

0000 



X . . ■ REWIND (RETAIN) 

*.. I ..■ NO REWINp (RETAIN) 
Jt ? ■ jQCK (SAVE) 

X 4 « PURGE LOCK (RELEASE ♦ PURGE> 

X 6 • RELEASE LOCK (RELEASE ♦ LOCK) 
1 7 « RELEASE (LOOK AT S Ayr FACTOR) 



02600400 

02600410 
Q26QQ420 



0000 
0000 
OQQO 



02600430 
02600450 

02600470 



PRT DESCRIPTORS 
REAL CPBOLCUNTROL *23* 



COBOLINDEX »22* X COBOL 
COBOHO «14* X COBOL 
FCR »12, X COBOL 



X 64 * CRUNCH 

» COBOL 611 FOR CAU.XmG USE RnUTlNiES 



02600480 
026D0500 
09600110- 



0000 
0000 
0000 



T 0000 
f 0000 
J QOQQ 



PeRfohmqen *13; X COBOL 
REAL INTINT =5; * ARRAY 

N ame mew =2; x dummy 



611 FOR CALLING 
REAP WRITE 



USE ROUTINES 



02600515 

O26OO6OO 
03600650 



0000 

0000 

0000 



ARRAY 



FPB 
PGUSE 



68i por Performing 

DEC INTRINSIC 
DATA DESCRIPTOR 



USE ROuTNS 



02600700 
02600800 
Qg60Q90n 



0000 
0000 

Qoun 



LOCALS 

REAL REELi 
ARRAY FlB[»Ji 



»3C*3# X FILE PARAMETER BLOCK 
*24C*3'X USC ROUTINES ARRAY • CQB61U3 *DS 
I i CUB6M 6 WPS 



02600990 
02600994 
0?6n0o9S 



0000 

0000 

QGQO 



02601000 
02601100 
QP60UQQ 



T 0000 
T 0000 
J QOQQ 



* MUST BE HERE FOR 
X FILE INFO. BLOCK 



MKSCW DIDDLE 



REAL 
NAME 
REAL 



100 si; 
i x; 



ARRAY L8UC*J; 
REAL NOTSEHL; 
INTEGER PUl»PU2» 



X INDEX ♦ TEMPORARY 

X 10 DESCRIPTORS FOR CLOSE 

A INHFX TQ FPR 



02601500 
02601600 

02601700 



FU1#FU2* 

REAL RPUl « PU1# 

RPU? ». PU3J 



^LABF.L FOR BUILDLABEL + HEAOER FOR CLOSE 
* SET TRUE FOR RANOOM 4 IU FILES 
X USED BY BUILDLAHEL + uSf.RS.DQmT 



02601800 
02601900 
02601950 



OCOO 
0000 

QOQQ 



X USED BY BUILOLABEL 
X USED BY BUILOLABEL 
X USED BV, BUILDLAREL 



MOVE 



♦ USERS. OONT MOVE 



02602000 
02602050 
02602100 



T 0000 
T 0000 
J CLQJlfl- 



y 0000 
T 0000 

T 0000 



02602150 
02602199 
026022QQ 



T 0000 
T 0000 
J! DJ10J1 



1 

1 WORDS 





00225 



2 WORDS 
Q 



00226 



< 



.!? 



m • 



>T 



REAL 



T>. 
TEST* 



* TEMPORARY 

% TRUE WHEN CALLING USERS*USERS66 SaYS 

% TEST FOR BFG nR END FILE USE RUDTINF 



02602250 
02602300 
026023*50 



CQ868> 



X TRUE IF THIS IS COBOL 68 



DEFINE 
Ail 



L12 1 12 3*' 



X GQBftftl FILE USE ROUTINE 



02602400 
02602410 
026(1 24 30 



OOOOtO 
000010 
OOQOtO 



000010 

0000*0 
QOQOin 



4 
5 
6 
7 
B 
9 
10 

11 

12 

13 

14 

IS 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

2B 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



AlGOLlOULGULIOl) 
ARR * 

BACKSPACE L_ 



SPC[ I 00 3* ALGOL 101 Ml* COM' DEL' DEL )*' 
C36S12J#* * C0B68» REEL USE ROUTINE 
PC(-I WFLOCL3J3 INX 0»9MliCQH)*» 



02602440 T 
02602450 T 
0? 6 Q 245 5 T 



0Q00»0 
00Q0»0 
QQQQ»0 



BCOUNT 

BF 

BOUNDED 



F1BC63#, X 

u*ii3*> * 

FIB[93.C2il3»» X 



BLOCK COUNT 
C0B68« FILE USE 
TR UE IF BOUN DED 



ROUTINE 
FROM A BQyE 



02602460 T 
02602470 T 
0P602AB0 t 



breakfail 
buffersize 

BUFRE^ 



P(FIBCl5) f [25i53»CT"l)*4#l2#C0M)##«BR OuT FAIL 
FIBC 16 4 , C 3* 15 J#, X BUFFER SIZE REQUESTED 
F IB C 133 .L\t91», X NO, Of BUFFERS REQUESTED 



0000*0 

ooooto 

QOOOlO 



02602490 T. 
02602500 T 

0P6Q 251 Q T 



0000 »0 
OOOO'O 
0000 '0 



BUFTOP « 

BRR • 

CALLHASH(CALLHASH 



CLOSE 

CLOSED 

CLQSE UHERE 



FIBC16J#*» COPY OF TOP I00»P0INTS To BEG BUfFR 
l?At\2i*> X C0B68I REEL USE ROUTINE 
l)«P(HKS»rL0C»»FIBC8J»CAM HaSH1*C0C)#* 



02602520 T 
02*02530 T 
03602S30 T 



0000*0 
0000*0 
000 0*0 



■ 4*.« 

*(FlBt51,t4l»23X0)t»XFILE 
= F IBE B J' tl l LUj * CnR6 



closedret 

C0B0LCL8SE 



frgO**' 
P(CLOSELOCK«REEL 

DE I. iDE t * OEL)I 



CLOSEO 
CLOSE 



HERE WAS UONF 



X CLOSED RETAINEO 
C2»47in,FLUC#CQ0£,13*CQM# 



02602560 T 
02602570 T 
Q26Q2575 T 



0000*0 
0000*0 
* 



* 



COBOLFILE 

C0B0LFILBI1 

CQBQL QPENlN 



FiBLiaj** x on says file is cqbol 

FlBtl3J.C47i.i3## 
PtR EEL 'FL 0C>CQPEa3*C QM >iIf» * DEuDEL)«* 



02602580 T 0000*0 
02602585 y 0000 

2602566 T — 0GS4 



02602590 x 000.0 
02602600 T 0000 
QP6Q 261Q T QOQO 



IB 
16 



CQB0L0PEN0UT 
COUNT 



P(REEL*FL0C#CQDE,13'C0M,0EL»DEL#UEL)## 

FIBU2)** X NOTSERL » NO, OF CURRENT BLOCK. 
1 SERIAL IN(nuT)t RECORD COUNT WITHIN Bl OCK 



CURRENTREEL 
DIRECTION 
QISCARDHA 



..FIBXUJi 
CFIBC133 

P(MFM UR 



C28M03#*X CURRENT REEL NUMBER 
.[2S»1])*,X 1 *REVERSE^O*f r UPWARD 
i C *RCPRT U CFF IXtM COM* DEL )f» 



02602620 T 
02602630 T 
036026^0 T 



0000 
0000 
0000 



02602650 T 0000 
026o266 t 0000 
02602670 T 0000 



DISK 

OISKR 

PTSKS 



■ FIBC43tC8t43*4#* 
* 10#* * 
« 12#* L 



disk Random (FPb> 
disk serial cfpb 



x. 



02602680 T 0000 
02602690 T 0000 
02602700 T 0000 



DISKP 
ENOFILE 
EOF 



2<i*» 
FIBC53.UO«l]#, 

UZ4-UJU 



X DISK PRQTECT(FPB) 

X RECOGNIZED END OF FIlE 

X FOF RTT IN TOO 



02602705 T 0000 
02602710 T 0000 
02 6 027 20 T 00-00 



EORF 

EORREKUN 

FPBXQflNF 



[42«63#f 
FIBC43.C 
F I BC4l»r 



X SENTINEL* 1'EOR Q*EQF 
3|23#*XEQR RERUNU«OUTPUT TAPE*2*SCRCH 

in»» x fiaun IS FPR INI 



xz 



\SXVL- 



02602730 T 0000 
02602740 T 0000 
02602770 T 0000 



FCRCLOSECFCRCLOSE 
FCROPENOUT = 

F I U IQ 



1}*PCMK$,FCRCLQSE 
■ PCMKSjT* XFL0C]*3* 
s Fl BC13 J ,C22 ; i3 * » X FI L E OP E N 1 



1#Q*CFL0CJ#4,FCR)#* 
FCR)#* 



026o278o T 0000 
02602790 T 0000 
2 6 2 79 5 T — OOOO 



46 
46 
47 
(8 
49 
50 
61 
52 
53 
54 
55 
56 



fpbtype 
getdiskrow 



FPBUX*33 t C43l5J#*X FPB FILE TYPE 
P(FPBClX + 3J»FPBCIX3#FPBCIx + U*10#LBL* 
4»llfC0M*nEt,«QELiDEL»DEL»DFL*nEL)*» 



02602798 T 0000 
02602800 T 0000 
2 6 02 8 05 1 0000 



HASH 

headerptr 
hnmrdhs 



I.FIB£8J*0}## X C0B61» HASH ROUTINES PRESNT 
FIBU.4J##.. X OESC. FOR DISK FILE HEADER 
LRLC93** * HFADFRl NUMBER OF ROW* 



02602810 T 0000 
02602820 T 0000 
02602830 T 0000 



HNMSZRS 
I NEl lE 



NOTSERLi 
FI BC133, 



r w t 

t£27ll3<« 

>3.£19U3#< 

:#ioerri#i: 



X (DO NOT 

X HEADER! 



CHANGE) 
SIZE OF 

LE OPEN INP 



ROWS 



UX 



02602811 T 0000 
02602840 T 0000 
026 0285 Q T 0000 



1 DONE 

IOERRCIOERRI) 
LABELED 



FLOCCI+2: 
PCO,FlUC 

NOT UNLABELED** 



*X DONE BIT ON IN lOo 

7, COM)** ...» CALL 1UERR-»DUNT DS 



02602860 T 0000 
02602865 t 0000 
02602870 T 0OO0 



LA8EQ 
LASTIO 
. Lo.LPTH 



FIBt5)»t 
F IBM 33. 

Fiocm* 



17!1)*# X LABEL EOUATE0 FROM DI$K 
t«6ll}#» X 1-LAST WAS PHYSICAL READ 
J_ ; K LAflgj , QESCRTPTnR 



02602B80 T 
02602885 T 
02602890 T 



0000 
0000 



Qftontn 



J 



# • 



ft 

2 
3 
4 
5 
6 
7 
8 



LOCK 
LSUBL 

L SUB U 



MABUSE 

MAXR 

MAKREf. 



2»» 

F I 8 E 1 J * » 

FIBC13»# 



* FIBt43j«Clll)*# X 

* Fl8U83C8*38»t03## 

i FIBt>fl3.tCF3«n X- 



X UISK» LOWER BOUND RECUHD NO 
it DISKi UPPER BOUND REcUBD n " 



USE ROUTINES PRESENT 

X MAX REC SZ FOR CONCATS 

MAXIMUM RFCORP LENGTH - 



02602900 T 000010 
02602910 t 0000*0 
02 6 2 9 2 T 0000 *0 



02602930 T 
02602945 T 
026029^0 T 



000010 
0000*0 
000010 



MINREC 
NMSZRQWS 



- FIBC183. tFF3#» * 

* 2*» * 

* U3 ± 3l±l 2iLLZ& lJU X 



minimum recqro size 
magnetic tape 

DISKI NM»[3Q>5]*SZ«Cgi>lg^3 



02602952 T 
02602955 T 
Q2602960 T 



oooo to 

0000*0 

onoo*n 



NOAIT 

nqrew 

NQ TCL Q SEn 



« FIBC203,[3*l3#» X 

* l*« X 

* Fl BC5 3 iC 41* 2 3 «Q* iX 



AIT FOR WA WAS DESTRoTEO 

NO REWIND 

FTLT NDT CLOSEn 



02602965 T 
026Q297Q T 
02602980 T 



0000*0 
0000*0 

ooooto 



10 

11 

12 
13 
14 
15 
16 
17 
18 

•9~ 

20 

21 

22 

23 

24 

2G 

26 

27 

28 

28 

JO 

31 ~ 

32 

13 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

57 

53 

54 

55 

56 

57 



NOTFIHSTREEL 

NQTINANDQPEN 
MUHBUFF 



a FIBC3JtC38*l]## X 
= FIBt51«CJl*33>l#,X 
« FIBt13J,ClO*93# < i X 



• % IFF CUHRENTREEL^IST 
FILE NOT (INPUT & OPEN) 
NO.OF BUFFERS ASSIGNED 



REEL 



02602985 t 

02602990 T 

.02603000 T 



0000*0 
0000*0 

0000*0 



NUMREC 
QPENIN 
QPENIO 



• FjBtil3#* 

• I## 



X NO t OF RECORDS PER BLOCK 



02603010 T 
02603020 T 
02803025 T 



0000*0 

0000*0 
000 0*0 



OPENOUT 
OPT LON AL 
nUTAP 



s 3f( f 

_=_LJLe 



X REEL OPTIONAL AND ABSENT 
X FOR RERUN ON OUTPUT TAPE 



026030 30 T 
02 603 040 t. 
02603Q50 T 



0000*0 
0000*0 
0000*.q. 



P8IT 

P8T 

PFRFQRMUSE 



« C2*n«' 

9 P(MKS»CFIB3>T»0»PERF0RMGFN 



X PRESENCE BIT 
U-i- 



B3»T»0»PERF0RMGFN)»* 

> X CF=1 IS PRlNTFlLE 

]]&i?23[cTF],20#1UCOM#DEL/D 



02603051 T 
02603055 T 
02603060 t 



0000*0 
0000*0 

oonoto 



.PRINT F.I IE 

PURGEREEL 
P U RGE 



FIBC20I » 
PC CFLUCC3 

_4JLt 



EL#0tD## 



02603070 T 
02603080 T 



Q g603Q9Q T 0*0 



0000*0 
0000*0 



RANOOM 
RCOUNT 
Rf.gRT 



« FI8C4)*C29ll}*» X 
» FI8C73#> X 



RANOOM ACCESSES THE ORDER 
NO,OF RECORDS INTO FILE 
PRT OF QFSC POINTING Tq RF.C 



02603J00 T 

02603J10 T 
026031.5 T 



0000*0 
0000*0 

Qoooin 



RECSPERBLK 
RE0EC.1A 



* L8.UC0.JjC3 
■ P(MKS#RCP 



q«123#, X headeri recoros per BLOCK 
RT*MaXreC'1'1*1MNTINT)*' X DECLARE 
X S AVF ARRAY FU R tt Q R* AR EA 



02603l2o T 
02603130 T 
0?603l40 T 



0000*0 
0000*0 

oooo»n 



RELEASE 

RE8ETPARITY 

RESETREADBIT 



7*p 
FUOCC33* 

Q lLMI M U 



C*P(0UP)U0128»28*13## X RESET PARITY 
3»» X USED TQ TURN OFF REAn BIT 



02603200 T 
02603202 f 
026 03 20S T 



0000*0 
0000*0 

0000*0 



REWIND 
SEGSPEROW 



M Off t 

■ L 8 L [ 8 J » * 

» Lfl L C0 J iC4g*6]»> 



X HEADERtSEGMENTS PER ROw 
X H£ ADER*SEQmENTS p er bluck 



0260 3210 T 
02603220 T 
2 6 Q3 230 T 



oooo'o 

0000*0 
0000*0 



SET 
SET 



OMIT » NOT(TIMESHARING) 
OMIT « TIMESHARING 

SLEEPCM » 2*CQMg» 



X SLEEP COMUNICATE 



02603232 T 

02603237 T 

02603238 T 



0000*0 

0000*0 

0000*0 



$ pop omit 

SORT 
SORTfILE 



= t$» 

» (FIBE43.C7»13 OR' FIB[183.Cl«iJ>«' 



02603239 T 

02603240 T 
02603250 T 



0000*0 

000010 
0000*0 



T£«H 

techb 



18»10]#» 
FIBC53,C46»23## 

2JLt 



X TECHNI QU E 8 



&2603260 T 
02603270 T 
02603280 T 



0000*0 
0000*0 
000*0 



TECHC 

TERMCTERMl J 
TIP 



- 3#* 

a PC1#FlQC» 

» Fl_QCC33»» 



* TECHNIQUE C 
TERMIM7»CUM)## X TERMINATE 
* TOP IQD 



DN IU ERR 



02603290 T 
02603300 T 
0?6Q3 31 Q T 



0000*0 

0000*0 
OQOQ'Q 



UNITYPE 
UNLABELED 
WAITIO 



CFIBC43,[ 
• FI8C4J.C2 

■ P( C F LQ Cn 



8*43 )#> xassno Internal hardware type 
|13## x unlabeled file 

♦ 23 3^2000000000>SLEEPcMfOEL*OrL)» < 



02603330 T 
026Q3340 T 
?6 Q3360 T 



000010 
0000*0 
0000*0 



hORDSLEFT 

WRlTBACK 

WRITEAFTEBEOF 



FIBC17J#, 
FIBtliJ.t 
FIBC13J.C 



23»13#* 
44*23*; 



NO, OF 
WRITE 



WORDS 
BLOCK 



LEFT 
BACK 



IN 
ON 



BLOCK 
IO 



02603370 T 
02603380 T 
02603365 T 



OQOOlO 
0000*0 
0000*0 



LABEL LINVAHO#LOP£NIN*LOPREVIN 

, L0PrNl#LCL0SEl,8TARTL#EXI 

SWITCH TYPE » LINVALID>LQPENIN^ 



»L0PEN0uT#LCLOSE,LOPENiO*LSORT, 
T»TSfBRK#BSTP)X 

lopr£vin*lopenout*lclose»lopeniq # 



02603390 T 
02603395 T 
&2 MIAQJ T 



0000*0 
0000*0 
0000*0 



n 

2 
3 
4 
5 
6 
7 



L30RTJ* 

subroutine buildlabel;* 

B EGIN* 



02603450 T 
02603500 T 
Q?6Q 3 60Q T 



OOOOJO 
0000*0 
0001*0 



i*ix;x 

FtaCtn*FtAG(U(IF FP 
3*4H8*38*1038(F 



BCl+3],C«3 
L.OC INX 1) 



*53*1 THEN 19 ELSE FLOCC 1 ] ♦ C8 1 10 

[16*331153);* , 



02603700 T 
02603800 T 
Q26039 QQ T 



0001*0 
000113 

0006*1 



PCFLOCCl3'0.*CaC»DEL)J* 
FLQCCn*C2 INK F.LOC.C.U..)&CF.LOCCi 
STREAM A t FU2»P( 0M »CQM ) ,B »FI 



].t8»l03"4)C8l38»lOJi* 
B[ 4J » C* [PU13 )i* 



02604000 T 
02*04100 T 
02 6 4 20 T 



0010*2 
0012M 
00J7M 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

5!_ 



BEGIN si* ioc a; 
suuoc b; s 

FUl*(PU?*Pu2+Fyl*3649)MQp 



si*si*3;os 

3>»I*3J OS 



«-2oct;ds*3oct;x 

♦30CT; ENO;X 

365»P(jl ■ 10 ) k 1000*1 }% 



026Q4300 T 008011 
02604400 T 0021*1 
02604500 t — 0028*1 



AT THIS POINT FUl CONTAINS PURGE DAT 
STREAMCK*OJA*CURREnTREEL*B*FPB[ 

nr+Lnc k;s i»loc a;ds*313Ec;si»i..q 



ECBINaRY) AN FU2«0ATECDECI m aL>* 
1*2] )i BEGlNX 

c r;si»si+3;qs*5Ch^ zmlUj 



02604600 T 
02604700 T 
02 6 048 00 T 



002690 
0028*0 
00 3 H 



IF CRPUl*P)tti*17]«0 THEN 

IF (RPUl*FP8U + 2n.Cl»in«0 THE 

TF RPUl.ria*303»0 THFN RPUi.Mfl 



N RPUl f £ I7*l3*li 
* 3 B3»FU 2i 



02604900 T 
0260S000 T 
Q2605tQO T 



0032*3 
0034*1 
0039*3 



IF (RP.U 
STREAM C 

R £ E L »Pi 



2l*FPBC 
K*0»PU1 



1+33). t 
)JBEGIN 



1153*0 THE 
Dl*LOC K; 



N RPU2,[5*13**U 

SI*L0C pui;qs*30ct eNq;* 



C U RH E NTRE £U »R E E |. » 



02605200 T 
02605300 T 



0043*0 
0047*3 



02 6 i3 4QQ T 00 =3 1 



STREAM( 

0* 



A*CFP8£ 

IF <T*F 

PCCH EA 



I33,8*P 

PBCI+33 

FRPTRI 



CHEAQERPTRIttOQ* 



Ul'C* 
.£43* 
D. 



PU2#D*FU1*X 

53)»lO OR T«12 OR T»26 THEN 

ytCOC*l*») EUSE o» 



0053*0 
0054*2 
02 6 05700 T 0059*0 



02605500 T 
02605600 f 



F* 

.a 



FL0CC13 
IF RtEL 

gjln as. 



EiU 



,£8» 10] 
*1 THEN 
*fl L IT" 



-8>X 
FIBC 

wABSU 



43, £4*1] ELSE 0»E*FL0C[1J3; 
!1^* 



02605900 T 0062*0 
02606000 T 0064*0 
02 6 6 10 T 66*1 



SI 

on 
oa 



*a; os* 
•oi*t*o 
»LiT"n w 



2 wos; 
si* chr 
i i 



SI*L 

; *i* 

SFNTI 



oc b; 

*LQC 
NAL3S 



os*wos; suloc c;% 
o; DS»»5 DEC** 



02606200 T 
02606300 T 



0069*2 
0070*3 
02606400 T — 0071* 3 



DS 
Sl*LQC 
Si 



*5UIT"0 

iios*7o. 
»LQ c f; 



"i% BL 

ec; x 

SI*5i+7 



QCK-C 
REC-C 

*QS»c 



OUNTX 
QUNTX 

HBJ 



% , MFM-p U N P K eY» 



02606500 T. 
02606600 y 
026067 00 T 



0072*1 
00 73 « I 
0073*3 



OS 
OS 

JUL 



♦5LIT"0 
*6EIT«0 
DS»8LTT 






PHYSICAL TAPE NO.X 



02606800 r 
02606900 T 
QgAn7non j 



0074*2 
0075*2 
0076*2 



END EN 

5U.BRQUT 

B£ 



o;x 

INE 
GIN* 



GOUSEU 



02607100 T 
02607200 T 
Q26Q71QQ T 



0078*2 
0080*0 

Qoa o?o 



CO 

P( 



80UINDE 

MKS# T 

Jill 



X ♦ T, £26*103*% 

,C38tlO)# CC08QLCQNTROL3)JX 



02607400 t 
02607500 T 
Q26Q760 Q T 



0080*0 
0081*1 
008 2*2 



SUBROUTINE CALlGOUSEi 
BEGIN 

IF I OR TEST THEN 



02607700 T 
02607800 T 

26 079 T 



0082*3 
0083*0 
,0083*0 



begin 

ENOi 



IF(T*PGUSE£i3 f C 1*2333* THEN GOUS£> 
lF(T*PGUSECl3tE24*24J)* THEN GOU^E) 



02608000 T 
02608100 T 
03608300 T 



0083*3 

0088*0 
0099*0 



END callgouse; 

SUBROUTINE CALLGGUSER 
BEGIN 



; 



02608300 J 
02608310 T 
Q260832P T 



0092»0 
00921 1 

00 93* 



IF I OR TEST THEN 
BEGIN IF (T*FIBU3,C 1*233)* THEN GOUSEi 
IF CT»FIBU3iU4l243)* THEN GOUSEJ 



02608330 T 
02608340 T 
02608350 T 



0093*0 
0093*3 
009810 



end; 

end cailgouser; 
subroutine users; 



02608360 T 
02608370 T 
026Q84 QQ T 



0102*0 
0102*0 
0102*1 



BEGIN 



i * put; callgouse; 

IF C1»PU2?>0 4H£M CALLfiOUSE; 



02608500 T 
02608600 T 
0P6 87Q T 



0103*0 
0103*0 
oiostn 



9 . 

j 

10 

11 

12 
13 
14 
IB 
16 
17 
IB 
19 
20 
21 
22 
23 
24 



2E 
26 



27 
28 



29 
30 

31 " 
32 



33 
34 
35 
36 



37 
38 



40 
41 
42 
43 



45 

46 
47 
48 



49 
50 



51 
52 



53 

54 



55 
56 



*L 



END 



I * fui; 

if U*FU2)>0 



callgouser; 

then callgouser; 



SUBROUTINE G0USE68J 

begin perfqrmuse; ENOJ 

SUBRfUJTlME USFRSrtftl 



BEGIN 
BEGIN 



IF TEST ThEN 



* CHECK FOR FILE USE ROUTINES 



IF CT*FI8CFUIJ,3F)*0 THEN G0USE68J 
IF <T*FI8CFUUiAF)*0 THEN G0USE68* 
IF (T»PGUSECPUl].3F)^n THEN GDUSE68J 



ENBJ 



IF CT«-PGuSeCPU1KAF)X0 THEN GQUSE68* 
I F PU 2 >0 TH Ei v 



BEGIN X NOT OlSKl CHECK FOR REEL USE ROUTINES 

IF <T»FlBCFUlJ f 8RR)*0 THEN G0USE68I 
IF CT»FlRmilJ.ARR)rfO THFN flQUSF68* 



IF CT*PGU5eCPU1 J .BRRJ/Q THEN G0USE68; 
IF (T*PGlSECPUlJ,ARR)/0 THEN G0USE68J 



ENDi 



END USERS68; 

*********** ST ART HE 
RFFI » IF PCMKSCh. rOP.xCH.nfl ^ T^F* 



re****** 
mkscw else q;x 



* * 



C0868 «■ (FIB«-*FL0C) ,SZf*22iX 

IF NOT FPBXUONE THEN F IBC 4 J . C 12.1 12 3 * X 

UFIBt it 3«U?»l?3 , l?*ETRl.Nfi)&i t 361471 jit* 



IF NOT C0B68 THEN 
IF REEL>9 THENX 

a£SXN 



STREAM(K*0»L*HEEL);x 

BEGIN si«.uoc l; si*si+s;x 
PI-LPC K; DS»3 QCTf X 



* CONVERT RFEl NO. Tp OCTAL- 



enq;x 



end;x 

REEL ♦ 



Pit 



IX «■ FlBCAj,[13«in;% INDEX TO FPB 
IF CCDE^CLCJSE THEM 

IF (T*FPBTYPE)»DISKR OR T-DISKP OR COPE«OPEniIQ THEN 



BEGIN IF CTxOlSKR OR T*DISKP) AND NOT C0B68 THEN 

BUFREQ*1J N0TSERL*TRUE1 
END ELSE 



IF T<3 OR T"ll OR (T GEO 7 AND T<10) THEN 

IF. FIBC8],[2Q»5J>0 THEN X HAS BEEN LABEQ FRm DISK 

begin nmszrqws»o; labeq » true; end;* 



02608800 
02608900 
02609000 



02609005 
02609006 
02609010 



0108*0 
0110*0 
0113*0 
0113*1 
01H«0 
01 1 513 



02609020 
02609030 
02 6 9Q4 



0H61O 
011610 
11 61 1 



02609050 
02609060 
02609070 



02609080 
02609090 
2 6 091 Q Q 



0U6«3 
012010 
0l 24» 



02609H0 T 
02609120 T 
02 60 91 3 T 



012810 
0132*0 
l32 » 



02609140 

02609150 
02609160 



0132»3 
0133*1 
01 3 710 



02609J70 
02610150 
Q2610200 



014110 
014510 
01491-0- 



02610300 
02610400 
026 3,0500 



014910 
0149*1 
014911 



02610550 
02610600 
02610700 



0156*1 
0158*3 
16 1 * 2 



0165*3 
0166*1 
Q167*? 



026108 00 
O261O9OO 
Q2 61 J Q0Q 



016810 
0169*1 

1 691 3 



0261H00 
026 11200 
26M3 Q 



02611370 
02611390 
026U400 



T 

i. 



0170*1 
0170*2 
1 71 * 



T* 
T 



1 7 1 1 
0172*2 



02611410 
026U430 
Q26IU4Q 



IF C0DE«S0«T THEN GO TO LSpTll 
IF CODE^CLOSE THENX 
BEGIN 



0261U50 
02611480 
02611490 



0178*1 
0181*1 

Q185I0 



FlBCl3],tl915J *-Q}% 

IF T*0ISKR OR T'DISKS OR T»DlSKp THEN* TECH B & C NOT 

IF TECH>1 THEN TERMC3Q); X VALID ON DISK XCjC l 3l 



02611495 
02611500 
026U51Q 



IF CQB68 THEN IF TECH'TeCHC ; ""' T «P WREc^M A XR£C; 

end;* 

NUHBUFF » BUFREO^X 



026U610 
026H620 

026U630 



0185*0 
0189* 1 

o m 'i 



0196*3 
0198*0 
0198*3 



startl*x 

if c00e>5 then 



026H675 
02611680 
02611700 



0199* 1 
0201*3 
Q2Q4*2 



IF C0DEM6 THEN GO TO LOPENi ELSEX 

IF C0DEsl7 THEN GO TQ LCLQSeI EL$E TERM(25)jX 



02611800 
02611900 
02612000 



0208*1 
0213(3 
21 3*3 



0217*0 
0217*0 
021910 



G0 T| 
LOPENIOIX 



TYPE£C00E3;X 
X 



02612100 
02612200 
026 183 



0222*0 
0226*2 

08 2 6 * 8 



w 



4r€ 



FILIO 

GO TO 

PH E V l Nt X 



«- in 

lopemnix 



O26l2/»00 T 
02612500 T 



0227*1 
0229«3 



02 6 ^ 2 6 T 2301 1 



IF ({T*TECR)«TECHC) OH <T*TECHB AND NUMREC*!) THEN TERMCjJI 
LOPENINIX 
?F MnTrLOSED THEM TFEMC 2KCnDF»l > 1« , 



026,12700 T 

02612800 

02612900 



0230H 
023611 
0P36M 



IF REEL s O THEN HEEL * CURRENTREEL ELSE CURRENTreeL ♦ REEL* 
IF (T*FPBT.YPE)«DIS.KR OR T*DISKS OR T*DISKP THEN 
HEGIN* ,, 



02613600 
02614200 
02614300 



024012 
0246 »1 
025013 



i 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19" 

20 

21 



NMSZROWS •■ Oi X SINCE ITS INPUT 
IF LSUBU^O THEN X UPPER BOUNp 
BEGIN ISUBU » *P(OUP)"H BOUNDED » TRUF8 END? 



02614400 
02614500 

Q2M460C 



0251*1 

0253*3 
Q254t3 



IF LSUBL/O ThEN LSLBL * *PCDUP)"lJX 

W.HITEAFTEREOF * 0;X 

bCQUNT «■ IF (HC0LNT«-LSUBL)«O THEN ELSE X STARTING 



02614700 
02614750 
Q26148Q0 



0259 » 3 
0263»1 
Q265>3 



(RCQUNT«i) DIV NUMREC ♦ U 



ENOJX 
cnBOLflPENINf 



X BLOCK 



X STQHF BOOLEAN RFSULT TN II TRUE FOR 



IF C0B68 THEN* 
B E G I N* 



■X LABELED AND NOT SORT FILE ON OPEN IN 



02614900 

02615000 
026J5100 



0269 

0272 

-0-2-7-2- 



02615105 
02615H0 

2 6 1 5 U5 



0274 

027 4 

-0^74 



IF NOAIT THEN* 
BEQINX 

RFDECHAtX 



02615J20 
026 15 125 
Qg6l5l30 



0275 
0276 
0276 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 



end;x 



NOAIT «■ q;% 



ENPiX 



02615133 
026.i5i35 

0261^140 



0280 

0282 

-IL284 



IF DISK THENX 

BEGINX 
IF NOT CflRfeB THEN 



02615170 
02615200 
02615250 



0282 
0284 

0284 



if random then tip «• 1 inx tip;x disk addR in wRd i 

burdlabel;x 

if mabuse. or not c0b68 thenx 



02615300 
02615400 
0P615S0Q 



0285 
0290 
0291 



BEGIN X BEGINNING INPUT/10 FILE 

FUl* 0} TEST * U PU2 ♦ FU2 ♦ *1J 
IF C0B68 THEN BEGIN PUl » 4xFlLlO;X 



02615600 
02615700 
02615 60Q 



0292 
0293 
029Q 



endjx 



USERS68i ENDX 
ELSE BEGIN PUl «• IOxFIlIO; USERS; END'* 



02615900 
02616000 
026161 Q0 



0299 
0300 
0304 



IF C0B68 THEN 

BEGIN 
: BCOUNT ♦ (IF RANDOM THFN NOT 



02616140 
02616160 
0?6t6l8Q 



0304 
0304 
Q304 



ELSE RCOUNT DIV NUMREC); 
COUNT + BCOUM + (NUMBUFF" 1 HF l8 [5] [ 1 * 44 ♦ 1 ]J 
EN D ELSE 



02616200 
2616220 
02616240 



0306 
0309 
031410 



45 

46 
47 
48 



BEGIN IF NOTSERL THEN 

TIP *-<BUFFERSlZE ♦ 1) INX TIP & MAXr; 
COUNT » IF NOTSERL THEN "1 ELSE Oi 



XTR 1476 
XTr 1476 
XTR 1476 



02616260 
02616300 
O26I64OO 



0314*0 
031413 
0320*2 



RESETPARITY; 



END 



GU TO FXlTiX 



XTr 1476 
XTR 1476 



02616 
02616 
026 1 650 



450 
470 



0323*2 
032611 
3 26* 1 



49 

so 



61 
52 
53 
54 



END oisk;x 

IF HASH THEN CALLHA$H<2) IS 
TF NflT OPTIONAL THFM 



0J61 

02*16 

Q26167S0 



T 
700 T 



0326*3 

0326*3 
0330*0 



IF (MABUSE UR NOT C0B68) AND \ THEN X LABELED AND NOT SORT 
BEGIN X BEGINNING INPUT FILE/REEL 

PUl » FUl » OJ TEST fr CURRENT R EEL a l/X 



02616 
02616 



800 T 
900 T 



0331*1 
0334*0 



02617 Q Q T 334 *2 



55 

56 



ENDJX 



PU2 ♦ FU2 * 1JX 

IF C0B68 THEN USERS68 ELSE USERSIX 



02617 
02617 
0261 7 



100 T 
200 T 
300 T 



0337*3 

339*0 
03T43*n 



• • 



1 

2 

3 

4 

S 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 ~ 

21 



gu to tstbhku 
lopenout'x 

IF NQICLQ5&D, THEN UHM(6»» 



IF CtOSEDMCRE THEN BEGIN CuOSEOHERE*OJ GO LOPE 
IF REEMO THEN CWWENTREEL*RE£UX FIXES OPEN 
IF CT»FtBTYPC)«'V OR TiB OR T»9 X UNlABElEO SPE 

T U f Nl 1 1 N I A H F I r n 4. nt 



lopenh end; 

UT REEL, 
UNl A BEl E O SPEC UNIT* 



X 

oata*name 

pT» QR MT 



02617400 T 0343*0 
02617500 T 0343*2 
026X7600 T 034312 



02617700 T 0346*3 

02610500 T Q3S1M 
026185 5 T — ft 315 i 6 



THEN UNLABELED #• lt% 
IF T»0I5KP OR T S DI5KS OH T-DI.SKP. THEN 

BEGIN* 



02618600 T 
02618650 T 
02618700 T 



035910 
362*2 
3 6 51 1 



IF LSUBU/O THEN BEGIN LSUBU * *P(DUP)-li* 

BOUNOEO ♦ TRUEI ENOJX- 
IF LSUBLJO THEN LSURL » »P(OUP)«ll» 



02618750 T 
02618800 T 



0365*3 
0369M 
0261R900 T 037113 



.fl.CQU.NT...*. (RCQUNT*LSUBL) 
If COBae ANP NMS^ROWS * 
IF NOT .DISK THEN 



OIV NUMRECi* 
THEN X 



DISK 

XLfli 



DE 



FAULT IS 
U QNlT) 



02619000 T 
02619004 T 
02619Q05 T 



0375*1 
0378*2 
0380*2 



NMS2R0WS 
END* 
FLSE IF LABELED THENX 



* 10042OC20J43I53; X 2 ROWS lQG R£CS 



02619006 T 
026J9010 T 
0?619q2Q T 



38 g*3 
0386*3 
0386*3 



BEGIN* 

6UILDLABEI;* 
IF NCT SORTFILE THENX 



02619 i 00 T 
02619200 T 
2619 3 QQ T 



0388*2 
0389*0 
039Q*iL 



BEGIN IF HASH THEN CALLHASH(2 )i X 

IF MABUSE OR NOT C0868 ThEnXBEg OUT FILE/RL 
BEGIN TEST » REFL«U FUl » Qi PU2 » 5i 



02619*00 T 
02619410 T 
02 6194 2 T 



0392*2 
0396*1 
0398 *0 



22 
23 
24 



IF C0B68 THENX 

BEGIN PU1*2; Ui»ERS68; END* 
ELSE BEG I N Pu l» 4;Fu2»i;u sE R>JE NPJ 



026194 30 T 
02619500 T 
026,19600 T 



0400*3 
0401*2 
0404*0 



2E 

26 
27 
28 
29 
30 



eno;x 



ENOiX 



ENOfX 



026J9700 T 0407*0 
02619800 T 0407*0 
02 6 19900 T 40 7*0 



cob.qlqpen.out;* 
if c0b68 then 

BEST NX 



X MOVE * A TO BUFtSAV.E WA AOQ- R » PQlNT PRT TO BUFF 



02620000 T 
02620010 T 
2 6 2 00 1 5 T 



0407*0 
0409*0 
0409*1 



31 
32 
33 
34 
35 
36 

n ~ 

38 
39 

40 
41 
42 
« 



IF NOAJT THENX 

BEGINS 
: REOECWAJX 



02620020 T 
02620030 T 
Q ?6?Q04 Q T 



0409*3 
0410*3 
0411*1 



_l£_ 



noait «. o;x 
end;* 

NO T Cni SKj THEN 



02620O50 T. 
02620060 T 
Q2Q8.0Qfl , i T 



0414*3 
0417*1 
0417*1 



BEGIN WOROSLEFT * BUFFERSUEJ 

PRINTFILE ♦ P<OUP#LQD»(FJBC«3tC8l4)}> 
P(DUP)»1>PCXCHj0UP)«7,F(xCH)*12»0R>QR*CCx)J 



02620070 T 
02620075 T 

026 2QQBQ T 



0418*3 
0421*1 
0023*1 



JL£_ 



ENQ UNQISK; 
ENB C0B68INGJ 
DISK THEN* . 



X 1«LP# 7*PBT# 12 s PBd 



02620085 T. 
02620090 T. 
Q262O1OO T 



0426*2 
0427*0 
0427*0 



BEG I NX 

IF RANDOM THEN 

IF CQB68 THEN BCOUNT » NOT 



02620200 T 
02620250 T 
02620300 T 



0428*2 
0429*0 
0330*0 



46 
47 
48 



ELSE TIP * 1 INX TIP; 

BU HDL ABEL ;X 

LBL » »EHEA,DEHPTR3;X 



02620350 T 
026 20 40 T 
026P0500 T 



0431*3 
0436*0 
043710 



49 
SO 



LBLC7 3 * -4JX 
IF MABUSE OR NOT C0B68 THENX 
BEGIN X BFftlNNTNfi OUTPUT F 



1LE- 



02620600 T 
02620800 T 
02620810 T 



0438*1 

0439 b 

41 *2 . 



52 
53 
54 



FUl * Pi TEST * li PU2 ♦ FU2 
IF C0.B68 THEN BEGIN PU1 * 2i 
E L S E BEG IN PU1 » Mi USERSi E N 



♦ -1; 

U5>E«S68; END 
OJ 



02620900 T 
02621000 T 



0442*0 
0445*0 




55 
56 



^__ 



.■-tUfiSX N 



-■ -'■ 



h 

i 

2 

3 
4 
5 
6 
/ 
8 
9 
10 
11 
12 



resetparity;x 

IF NOTSERL ThENX 
BEGINS , 



02621250 J 0451*0 
02621300 T 0453*3 
02621310 T 045010 



IF UNlTYPE *4 AND NOT UNLABELED AND NOT SORTFILE THEN XTR-90 

TIP <• (8UFFERSIZE + 1) INX TIP & MAXRJ XTr 1476 
8UFT0P «• CPCOUP)) & 1 £201471 13J XT R 1 476 



02621320 T 049412 
02621325 T 046011 
Q2621330 T 046* 10 



_. 



end end; 
end disk;* 

NQT C0B68 THEN f . OUNT <• IF NQTSeRL T H FN " 1 E LS E NUMR ECJ 



02621335 T 046812 
02621340 T 0468*2 
02*21350 T 046812 



TciTfifiK t I 

IF (T*EORRERUN)^0 AND CURR£NTR£EL*1 THEN IF BREAKFaIL ANq QUTaP 
THEN BEGIN PuRfiERFEL* GO TO STARTL* FnD * TRY BREAK AGAIN 



02621360 T 04?2I3 
02621364 T 0472*3 
02*213*5 t 0470*3 



ELSE PCD£L>JX 
GO TO exit;x 
i rC L OSE t% 



02621370 T 0484 .10 

02621371 T 0484« 3 
121375 T 04fl5> 



J&tU 



i- 



13 
14 

IB 



IF OPTIONAL THEN X EOF ON ABSENT OPTIONAL FILE 

BEGIN FI-BC5J * C*PCDUP))&4 [39142I6J; X MARK CLOSED RLSD 
P(XTT)IX : . 



02621380 T 048511 
O262I4OO T 0487*0 
02*21500 T — 049010 



16 
17 
18 



end;x 
if not sortfile anq closed 

GO TO. EXIT/ F.HQi 



THEN BEGIN lO£R H C 12*F I B[5J , C43 ' l 3 )> 



02621600 T 
02621700 T 

02*21750 „t 



049011 
0490*1 

049 7 t 



Z- 



19 
20 
21 



IF INFILE TBENX 

IF (C0B68 AND 
BfcfiTN 



MABU S E AND DISK) THEN X END INPUT'ID FILE 
rUl»2l PUg»«Mi TEST»i; PUl4.l4,4xnLf0iX 



02621800 T 0498«0 
02621810 T 049910 

Q2621R20 T 0502*3 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



UiEKS68;X 
END ELSE* 
E LSE IF (L AB E L ED A N D NQ T S QRTF ILE3 THE N* 



02621830 T 0508*1 
02621840 T 0509*0 
02 6 21 90Q T 0509 *0 



IF DISK THENX 

BEGIN X Move RECORO COUNT FROM HEADER To LABEL 
STRF.AMCA»P(tHEAnERPTR3ti,nnt7jCaC»W*}» 



02622000 T 05U*0 
02622010 T 0516*0 

Q2ft2?Q?0 T 051612 



IF 



B* 5 INX LBLPTR);X 
BEGIN SI+LOC A; DJ*Dl+5; 03* 
MA ftUSfc OR NOT C O R08 THENX E N n 



7 DECi END'X 
OUTPUT F iUR 



026220 30 T 
026.2.20.40 T 
Q2*?205Q T 



0518*2 
0520*1 
0521*1 



BEGIN FU1*2> T£ST*U PU2«-FU2 

IF C0B68 THEN BEGIN PUl 

ELSE R FGIN PU l »6 i U SF R S 



*-t; 

*3; USERS687 END 

1 ENDiX 



02622070 T 
02622100 T 
02622200 T 



0523*0 
052612 
0529*0 



END 

else begin 



END** 

% .NOT DISK 
X m o ve Bi.K & R EC ORD COUNTS 



FR OM F I B TU L.BL 



02622300 T 
02622400 T 
02*22500 T 



0531*0 
0531*0 

53 1* 



if hash then callhashu);x 
streamca«-bcqunt#b»rcqunt»c*5 inx 

RFGIN 5l»LQC A! D5»5 HFC* PS 



lblptr>;x 
» 7 dec* end; * 



02622600 T 
02622700 T 
Q2*?2flQ0 T 



0531*2 
053413 
053713 



L.8L * L6LPTR/X 

LBLC43.LURF4- REELXOU 

L BL <• O; X F. I LE CLO SE FO RGE TS 



LABELS'SQ clear PTR 



02622900 j 
02&23000 T 
026^3^00 T 



0538*3 
0540*1 
0543*1 



45 

«e 
47 

18 
t9 
50 
51 
52 
53 
54 
55 
56 



IF REEL THEN CLOSELOCK ♦ LOCKJX 
IF MABUSE OR NOT C0B68 THENX END 
BE GIN ?U \+?i TEST ♦ R EEL »Q J 



OUTPUT FlLE/RL 
PU2 » 7_ 



02623200 T 
02*23300 T 
02623400 T 



054410 
054512 
0547*1 



IF C0B68 THEN BEGIN PUl* 
ELSE BEGIN PUl«-6; Fu2*3; 

F.N UJX . 



3; US£RS68i END 

users; end; 



02623500 T 
02623600 T 
Q2623610 T 



0550*2 
0553*0 
0556*0 



IF DISK 



end; X OF 

AND LABELED 

BEGTNX 



NONDISK 
AND NOT 



SORTFILE THENX 



02621620 T 
02*23700 T 
0g6238O0 x 



055610 
0556*0 
5 6,13 



LSUBL «• *PCDUP3 + i;x 
IF BOUNDED THEN X IF UPPER BOUND 
BEGI N L S UB U » »P< DUP}*U BUUNDED+FALSE; END 



02623900 T 0562*1 
02624000 T 0564*1 
02 6 2 4 100 T 0565*1 



ELSE IF 006*8 THEN LSUBU ♦ Oi 
LBL * *£HEApERPTft3J* 
HNMSZiS »*(f tSFfiSPFRnHxRFCSpERBLK) DlV SFgSPBlK? 



02624200 T 
02*24300 T 
02624400 T 



0570U 
0572*3 



57» 



• • 



h 



& HNHRQHS [20:43153);X NM>SZ ROWS FR HEADER 
NMSZROWS ♦ o; * ZERO FIB NM,SZ RO*S 
IF NUT CQBfia THEN IF KANnflM THEN HQRDSLEFTtOl 



tHOi% 

IF UNITYP£»MT AND NOT HEEL THEN* 
BEGIN* 



02624500 
02624600 
026 2 4 61 



0576*0 
0579*0 
0581*2 



0262*700 T 038511 
02624800 T 0585*1 
262 4 900 T Q5H7I2 



IF ClOSELQCkbREwInd AND NOTFlRbTREEl, THEN* 

CLGiELoCK * UOCK;* 
N0TFIRS1REEL » FALSE;* 



02 62 4910 T 058810 
02624920 T 0590*0 
02625Q0Q T 0,591 M 



ENOJX 
T * CU««ENTREEt;x 
IF REEU AND UNITYPE«PrT 



THEN FIBC93.t?*l3 » U 



02625J00 T 
02625105 T 
07635^10 T 



059313 
039313 



10 
11 



12 

13 
14 
15 
16 
17 
IB 



cqpolcluse/x 

IF HNHSZRS, t illl.] 
UfcGINit 



THEN 



02623200 T Q6OQI.1 
02625210 T 0.603*1 
02625220 T 0604*0 



NMSZRQWS 4- A8S(HNMSZRS)JX 
HNMSZRS «- OjX 



OUTPUT AND 1*0 



02625225 T 0604*2 
02625230 T 0607*1 
0262 5 2 4 T — 06 8*0 



END** 

IF REE.L THEN* 
BEG I N 1 R E FL SWIT C H 



02625250 ..... T 0610*2 
02625255 T 0610*2 
02625260 T 0610'-3- 



19 
20 



21 



REEL * T*li* 

CODE ♦ 3-(2xinfile)*oiRection;x 

IF rnhFaOPEMnUT THrM CURRFNTftFF L «. HFF| :* 



02625265 T 0611*1 
02625268 T 0612*2 
02625270 T 061 6 1 1, 



22 

23 



24 
2G 
26 
27 
28 



NQTFIRSTREEL * TRUE* 
GU TO STARTLE 



-LMIIIX. 



02625280 T 0620*0 
02625300 T 0622*2 
0a625 / l Q T 6 23 * 



29 
30 



EL*E CURRENTREEL * 0; 

IF C0B68 ANO CL0S£LQCK>1 THEN IF ( T>FIBC2q] )<Q THEN 

THROW AWflY FILE Tf>NK» RE* IN IT T AL IZe TYPe»2 SRG H e N T P ESC- 



JLULl 



PCFLaC*DuP^FCX#3.»C0MjFtAQ{Q .4 T .[2.3*8110] 
[3*8*103 & 9 . £3!44.t4.])*S$NfXCH»*>> 

Hi 



& T 



02623500 
02625600 
0g625650 



0623*0 
0626*0 
0629 ti 



02625700 T 0629 1.1 
0^625800 T 0632*1 
02625950 T 0635*1 



31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



LINVALID** 

TERM(25)J* 

l.Ct USE Hit : 



IF NOTlNANOQPEN THEN T.E«M( 1.2-F I.B.C5, J • t*3 « 1 J ) }* 

IF ENDFlLE THEN BEGIN 1 .* ii GO TO B.STPi EnDJX 
FDR T t I SfFP 1 UNTIL NUMBUFF 001 



02626000 
02626050 
02^26100 



02626j50 T 
02626200 T 
026262^0 T 



0635*2 
0635*2 
0637*1 



0637*1 

0642*2 
0645*1 



BEGIN 



IF 



X WAIT UNTIL ALL IO*S ARE DONE* 
NOT IOOONE THEN WAlTlOJ* 
FtQCn + ai.EnF THEN fiO RSTPIX 



02626300 T 0649;3 
02626350 T 0649*3 
02626400 T 0655*0 



42 



I 

B- SJPU 



end;x 

NUMBUFFi* 



backspace; % backspace I blocks 

TlPtEOF * ENDFlLE;* 

CLQ S FDHERE » C0 B68t* 



02626450 
02626500 
2 626 5 50 



02616600 
02626650 
02626660 



0657*3 
0660*0 
066 1 *2 



0661*2 

0664*0 
066 712 



47 



FIBC5],U0»6] 

GO to exit;* 



* CLOSEDRETit 



02626700 T 
02626750 T 
02626QQQ T 



0670*0 
0672*2 
67 3*0 



49 

50 



52 



56 



IF FIBC53«£40*63*CL0SEDRET THEN T£RM(6)jX 

FI8t53,C40»6] * 01 J 

BUFTOP »(*PCDUP)3* REJSETREAOBITJX 



INFILE * O; % MAKE 
LBLPTR «-(*PCDUP>)& 
IF TIP. EOF THEN* 



IT OUTPyT 

resltreaobit;x 



BEGIN X HAD 
WOR0SUFT 
TJP1 



READ EOF BEFORE 
* BOFFERSlZEiX 
O.jj, X RESET EOF 



BACKSPACE 



02626850 
02626900 
026 2695Q 



0673*0 
0676*1 
0*78 * 3 



02627000 
02627050 
2627 100 



02627150 T 
02627200 T 
02627250 T 



0631*1 

0683*3 
0686*2 




J& 



h 



12 
13 
14 
15 
16 
17 
18 



19 
20 



21 
22 



23 
24 



25 
26 
27 
28 



29 

30 

31 " 
32 



33 

34 

35 

36 

37" 

38 



40 
41 
42 
43 



45 
46 
47 
18 
49 
50 



51 
52 
53 
54 
55 
56 



END* 



CUUiMT * (NUMrttC; * I RECS LEFT 
BUFT0P.[CF] ♦ riP.tCF3;% 



IN BUFF » WHOLE bUFF 



ELSE BEGIN X NO EOF - OPEN IN PLACE 
RCQUNT ♦ *P(OUP)-UX SACK 
aCQUNT » »PfOUP)»i 1* wfbf 



02627300 
0262?3'40 
0363/350 



UP BECAUSE WE 
HEADING 



END?* 



WOR.DSLEFT. ♦■ dUFFERSIZE-CTIP, CCF3-BUFT0p.tCF]);% 
COUNT ♦ WOROiLEFT DIV MAXREC; % * KECS LEFT IN ByFF 



02627400 

02627450 
0262/900 



0693*1 
0694»3 
069 8 10 



FOR T * 1 STEP 1 
FLQcCT+23 ♦ 

go to exit;* 



UNTIL NUM8UFF 00% 
FLAG(BUFT0P4FL0CCT+23CCTC3)> 



02627510 
02627600 
026 3 7 6 50 



0698*0 
0698*2 

070012 



X cHANqe TO WRiTE 



ISORT:* 

IOD «■ C T IP J > * 

IF CLQSELOCKaNQREH THEN 



02627700 
02627750 

Q2 6?78 Q0 



0702*2 
070712 
0710*1 



0710*1 
071419 
0719*2 



BEGIN 



X FCH CALLED WITH THESE PARAMS 



IF NOT C*I0D).£QF 
THEN TFRMfig) 



XIF 10 COMPLETE BUT NOT "p'RgSENT 
X NOT EOFlMUST HAVE BEEN PARITY 
X TFRMTNATp ON PaRTTY 



02627850 
02627860 
026278/0 



ELSE X MUST HAVE BEEN EQF OR EUR 

BEGIN ALGQLI0.C11);* READLABEL 

Ld l. «• l slptr; * 



02627880 
02627890 
02627900 



0720*0 
0720*0 
Q7?H1 



0722*0 
072212 
0723*2 



IF L8LC43,EQRF«0 THEN P C l,RTN ) i XR£TU«N E 0f 
REEL * CURRENTREEL+UXREEL SWITCH On INPUT 
T «• CQ B OLFlLBlTi X R E MEMB E R IF COBOL F I lE 



02627910 
02627920 
0262793 



FCRCLQSECPURGE); 
F1BC13UC*P(DUP))«REELC28I38»10JX NxT REEL 

&0 C4 7U7U3 ; % MAKE U L OO K ALGOL 



02627940 
02627950 
0g6g7960 



T 

T 

-f- 



end;* 

END NLREWiX 
TF CLQSELOCK«RfWTNn ThtrNX 



ALG0LI0(0);X OPEN iNPyT NEXT REEL 
FIBC133 ♦C*P(OUP))Or t;X RESTORE CObUL 
PfQ»RTN)l X RETURN EQR 



0262/970 
O2628OOO 



0725.2 
725*2 
727*2 



0729*0 
0731*2 
0733*g 



0735*0 
0736*? 
Q7 J 7 » 3 



BIT 



02628100 
02628150 

03628200 



0?«0*0 
0741*2 

07 4 312 



BEGIN X REEL SWITCH ON OUTPUT 

LBL * lblptr;x 

LBLC43.EORF *■ 1 ; X FOR 



02628250 
02628300 
02628 310 



744*0 
0744*0 
744*0 



L«L *. QUFILE CLOSE FOGETS LABEL SO PTR MUST BE CLRD 

T «• CURRENTREEL+i;X 

FCRCLUSECRELEASE)i % CLOSE RELEASE CuRHENT REEL 



02628320 
02628330 

02628140 



0744*3 
0745*1 
7 46 * 3 



end;* 
if closelock=lock 

PE G I N* 



currentreel «• Reel ♦ t;xwith 
if COBOlFIlE then fcropenout 

P(XIT)* X OPEN OUT 



no reel switch-dQne HfRe 
else algollqcojxnxt rl 

(ALGOL OR COBODNxT RFFL 



02628350 
0262836G 

26 2B37Q 



07*19 1 1 

0750*0 
0752*0 



02628380 
02628390 
096?8fl00 



T 
T 



0753*2 
0756*2 
0760*3 



THEN 



ENOiX 
ExlT::X 
FNQ CWLF lR;* 



T «■ IF CURRENTREEL«1 THEN 
FCRCLOSECT); X CLOSE 
PUIT); * n nsF 



REWIND ELSE RELEASEI 
REWINO FIRST REEL' 
RFI.FASE ALL OTHERS 



02628450 
02628500 
02628510 



02628520 
02628550 

02628600 



0761*0 
076l»0 
761*3 



02628700 
02628800 
026 28 900 



0762*1 
0765*3 
0767*1 



0767*2 

0767*2 
076810 



procedure cqbolatt; 



BEGIN 



X INT # * # 165 



COMMENT INTRINSIC FOR COBUL ATTRIBUTES 

CALLING SEQUENCE IS 
MKS 



size* 0769 words 

XCJC 1031 02650000 T 0000*0 
START OF REL SEGMENT! DISK ADDRESS m 00252 



LITC OPERATION 
LITC FILEF1B 
PESC 10 



XCjC 

XCJC 
XCJC 



1031 
1031 
1031 



XCjC 
XCjC 
XCJC 



1031 
1031 
1031 



02650100 
02650110 
02650120 



0000*0 
0000*0 
0000*0 



02650130 
02650140 
02650x45 



0000*0 
0000*0 

ooo otn 



• • 



2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



LITC ATTRIBUUNUM 
uIIC wURO-UFStT 
HESC HATAhOHO 



XCjC 

XCjC 

JLCjJC- 



1031 

1031 

-1&34- 



OPERATIONS ARE* 
1 S MO VE 



XCjC 1031 
XCJC 1031 
XCJ C 1 3 1 



0*650150 T 
02650160 T 
265017 T 



02650180 T 
02650190 T 



0000*0 
0000*0 

00 *0 



0000*0 
0000*0 
02 6 50200 T — 0000*0 



▼n* 



* SET (OR CHANGE ATTRIBUTE VALUE) 

ATTRIHUTENUM HAS THE FOLLOWING VALUES* 



XCjC 1 3I 
XCJC 1031 

x cjr , 1 031 



02650210 T 
02650220 T 
026 5 0230 t 



0000»0 
0000*0 
00*0 



* EOF 

1 « 00 NOT USE 
3 » nn mnx nsf 



XCJC 1031 
XCJC 1031 
X CjC 1 Q 3I 



02650240 T 0000*0 
02650250 T 0000*0 
02650260 T — 0000*0 



3 ..*. 5AYEFA.CTQ.R 

A .».. AREAS 

',) i aHhASlZE 



XCJC 
XCJC 



1031 
1031 



X C j c i on 



02650270 T 0000*0 
02650280 T 0000*0 
0265029 T 00 0* 



13 
14 
15 



6 « MHO 

7 • FJD 

8 » RE El 



XCJC 1 3I 
XCJC J03I 
XCjC 1031 



02650300 T 0000*0 
02650310 T 0000*0 
02650320 T 0000*0 



16 
17 
18 



9 » DATE 
10 s BUFFERS 
U - typf 



XCJC 1031 
XCjC 1031 
XCJC 1Q3I 



02650330 T 
02650340 T 
0265Q350 T 



0000*0 
0000*0 

0000*0 



19 

20 

21 



12 a BLOCKSIZE 

13 * MAXRECSIZE 

14 a FU.F. INFORMATION 



BLOCK 



XCJC 1031 
XCjC 1031 
X CjC 103 1 



02650360 T 0000*0 

02650370 T 0000*0 

02650371 T 0000*0 



22 

23 
24 
25 
it 



15 .■ FILE PARAMETER BLOCK 

16 * Label ca words qnlY) 

17 * FU NUMBER (Q THRU 19) 



XCjC 
XCJC 



1031 
1031 



02650372 T 

02650373 T 

02 6 50 3 74 t 



0000*0 
0000*0 
0000 *0- 



18 * DISK SPEED (1«FAST'2»SL0W) 

19 * TIMELIMIT (PROTECT FILES) 

20 r STATUS (PROTECT FILES) 



02650 375 
02650376 



T 0000*0 

f ooooto 



2650 377 T 0000*0 



28 
29 

90 



21 s SENSITIVE 

END-OT'COMMENTSf. _.'. 



XCJC 1031 
XCJC 1Q3I 



02650378 T 0000*0 
02650380 T 0000*0 
02650390 T QOQO'O 



31 
32 
33 



NAME 

REAL 

NAME 



ITEM » -1* X COMP AREA FOR VALUE 
ATTNUM * «2J X ATTRIBUTE NUMBER 
liM g "3; X P OINTER TO FIB 



XCjC 1031 
XCJC 1031 
XCJ C 1 Q 3I 



0265O400 T 0000*0 
02650500 T 0000*0 
Q 26506QQ T 0QOQ*n 



34 
35 

36 

37 " 

38 

39 

40 

41 

42 



REAL OPCODE s . -4J * OPERATION 0*SET 1-MqVE 
A RRAY FPB * 3 [*3 j X F ILF P A R A ME T ER R l OC* 



XCJC 1031 
XCjC 1Q3I 
XC JC 1031 



02650700 T 0000*0 
02650800 T 0000*0 
02650900 T 0000*0 



ARRAY 
ARRAY 



FIBC*]* 
LBLt*3i 



XCJC 1031 
XCJC 1031 
XCJC 1031 



02651 
02651 
02651 



000 T 
100 T 
U P T 



0000*0 
0000*0 
0000*0 



LABEL 



ZOf,lUf.RH, SAVEfACTOR#AREAS, XCjC 1031 

AREASUE#MFID#FID#REEL*DAT£#BUFFEkS, XCJC 1031 

type*blocksize#maxrecsize#att exit# XCJC 103I 



fi6w0r0s>fp8w0rds#labelw0r0s# 
eunum#oskspeed# 
timelimitmostatus> 



02651 
02651 
02651 



300 T 

400 T 

410 T 



0000*0 
0000*0 
0000*0 



43 

44 
45 
«6 
47 
•8 
49 
50 
51 



02651 
02651 
02 651 



500 T 
510 T 
520 T 



0000*0 
6000*0 
O QOQ*0 



sensitive* 

dummy; 



02651 
02651 
02651 



530 T 
590 T 
595 T 



0000*0 
0000*0 
0000*0 



switch routine 



eof#iqerR»ioeRR #SAVEFAcTOR#AR£AS, »cjc 1031 
AREASIZ£»mFI0#F10*REEL#0ATE#BUFF£RS, XCjC 1031 
TYPEtPtQCKS i ZE'MAXREC Sl Z Ef XC JC 1 Q 3I 



02651 
02651 
Q2651 



600 T 
610 T 

700 T 



0000*0 
0000*0 

0000*0 



52 
53 
54 

55 
56 



FlewOROS,FPBWORDS,LABELWORDS# 

EUNUM#DSKSPEEO* 

TIVELIMITMOSTATUS> 



02651 
02651 
02651 



710 T 
720 T. 
730 T 



0000*0 
0000*0 
0000*0 



SENSITIVE, 
IQERRJ 



i.-i..^.: 



XC J C I Q3 1 



02651 
02651 
02651 



740 t 
799 T 
800T 



000010 
0000*0 

0000*0 



• • 



13 
14 
(15 



16 
17 
18 



19 

20 



21 



23 
24 
25 



27 
28 
29 

30 



31 
32 
33 
34 

35 



36 
37" 
38 
39 



40 
41 
42 
43 



45 



47 
•8 
49 
SO 
51 
52 
53 
54 
55 
56 



real xi,temp,umtype; 

DfFlNE GETFRQMITLH = H C * t ITEM 3 ) »* 
STORFI NTPTTFMfSTnRETNTniTEMI \ = 



P C STORE I NTO I TEM1,£ ITEM 3 #«•)#» 

I0ERR0R(I0ERR0R1 ) « 
P(i.FLOc.TnFRRnRi.ir.nnM^; 



XCjC 

XCJC 

ate ^c 



xcjc 
xcjc 
xcjc 



1031 
1031 
1031 



1031 
1031 
1Q3I 



02651900 
02652000 
Q2652JQ0 



02652150 
02652200 
0265225 Q 



0000*0 
0000*0 
0000 1,0 



COMMENT I/O ERRORS ARE AS 
4Q s HlE WAS OPEN 



FOLLOWS I 
*HEN SETTlNfi 



THE ATTRIRUTE 



41 * SETTING A READ ONLY ATTRIBUTE 

42 m SETTINO AN ATTHl.8uTE TO AN JLLEqAL VAUUE 
A3 » CHANGING I QF BUFFERS OF A N0N»S£PUL FILE 



XCJC 

XCjC 

JLOJX- 



XCjC 

xcjc 
xcjc 



1031 
1031 
1031 



1031 
1031 



02652251 
02652252 

Q265?2 C S3 



0000*0 
0000 to 
OQOQ I o 



000010 

ooooto 
oooo in 



44 5 INCREASING. f -OF BUFFERS XCjC 1031 

45 - CHANGING BLOCKSIZe TO A VALUE WHICH IS NUT XCjC 1031 
A MU L TIP LE OF R EC QR O SIZ E XCjC 1Q3I 

46 ■ CHANGE TO BLOC^SIZE *H£N FILE IS OTHER THaN XCJC 1031 

TAPE* PAPER TAPE QR SERIAL OISK *CjC 1 3I 

47 » ACCESSING "I ABEL" WHEN FILE IS NOT OPEN *CJf 1011 



02652254 
02652255 

02652256 



0000)0 
0000*0 

oonoto 



0265225^ 
02652258 



END OF 



48 s THIS FILE MAY NOT HAVE "TYPE" CHANGED 

49 * ILLEGAL ATTNUM VALUE 

I/O ERRORS 



*CjC 
XCJC 
-*C-^C- 



X S TART 



H E 
F I B 



E 
♦floc; 



IF FIBC5 3.C4H23 = THEN 
IF N01 FIBUJ.U2sl;i THEN 
((FIBl43.ri2U?] -11 



XCJC 
XCJC 
XCJC 



1031 

1031 

4044- 



02652260 
02652261 

02652262 



1031 
1031 

1031 



02652263 
02652264 

02 652 29 



0000 »0 
0000*0 
000*0 



0000*0 
0000*0 
0000 * 



LBL * FLOCCUi XcjC 1031 

FlB.t«.I«tl2U.2] «• *CjC lo3l 

x FTRLNfi? & LLl6JJ/iX U X_ C Jj: 1 Q3 I 



02652300 
02652400 

02652500 



0.0001.0 
0000*0 
0000*0 



XI * FlBC43.tl3»llJ; 
IF OPCODE » AND FIBC-5J. £41123 * THEN 
1PERR0RU0)* X SET AN ATTRIBUTE ONl A FILE 



InERRi: 



* WHICH IS QP£N, 
GO TO RQUTINECATTNUM3; 
*QEEPQR(49>; '% 1 L L E q A L, ATTNUM . 



XCJC 
XCJC 
ICjC 



02652550 
02652600 
26 527 0Q 



0000*0 
0000*0 
0000*0 



1031 
1031 
1031 



026528 00 
02652900 

2 6 53000 



0002*1 
0005*3 
0008*2 



XCJC 
XCJC 

XCJC 



EOF** 



If nPconF c q th fm TnrRRnpfAH: 



X EOF IS READ ONLY 
STORE INTO ITEM (FIBC53 .£40*13); 
Gfl TO ATTFXTTI 



XCjC 
XCJC 
XCJC 



1031 
1031 

4&3X 



XCJC 
XCJC 



1031 
1031 
1031 



02653100 
02653200 

026 5 : 1 250 



0012*3 
0014*1 
0016*1 



1031 

1031 

40-34- 



02653300 
02653400 
Q2653500 



AREASt * 



IF OPCODE * THEN 



IF (TEMP <• GETFROMlTEM) < 1 OR T£MP > 20 
IUERRURC42) ELSE X OK VALUES 1"20 
FlBEa3.[?Q»51 <• T E M P EL SE 



XCJC 
XCJC 

X C JC 



02653600 

02653700 
02653800 



0018*2 
0018*2 
003l>0. 



00 32*1 
0032*1 
0033*0 



THEN 



STORE INTO I TEMCF IB £83. £20* 53); 

GO TO attexit; 



XCJC 

XCJC 

-X-C4C- 



1031 
1031 
1031 



02655500 
02655600 
0365S700 



0035»2 
0035*2 
00 37 8 



0037*2 
0037*2 
QQ3fl»n 



AREASiZE: t 



XCjC 
XCJC 
XCJC 



1031 
1031 
1031 



1031 
1031 
1031 



02655800 
02655900 
02656Q00 



IF OPCODE * THEN 

IF (TEMP «• GETFROMITEM) < 1 THEN 



XCJC 

XCJC 
XCJC 



02656100 
02656200 
02656100 



0038*3 
0041* 3 

0043*2 



1031 
1031 
1031 



IQERR0RU2) ELSE % MU5T HAVE 1 OR MORE XCjC 1031 

FI8C83, £25*233 ♦ TEMP ELSE XCjC 1031 

ST0REINTQItEMCFIB£83.£25*23 3)f XCJC 1031 



02656400 
02656500 
02656600 



0046*2 
0048*2 
004910 



go to attexit; 



MFID* t 



FID** 



XCJC 

XCJC 
XCJC 



02656700 
02656800 
09656900 



0049*0 
0049*0 
Q 49* 3 



T 

T 
JL 



1031 
1031 
1031 



0051*3 
0053*2 
00 56*2 



ATTNUM * ATTNUM - 6 J 

tf FiBUi.riin .■■! q then, 



X IF LABEL EQ 



XCJC 
XCJC 

* fy fjj y 



1031 
1031 
-10-34- 



02657000 
02657100 

02657200 



02657300 
02657400 
02657/105 



0058*2 
0059*0 
005910 



0059*0 

0059*0 
60H 



57J 



• • 



IF GPCUDE = 1 AND K IB (53 , £41 1 33 ■ 1 THEN 
BEGIN X IF -MOVE" AND FILE OPEN INPUT PICKUP 
% MFIO AND IQ FROM LABEL IN CASE OF "IU 



STORE INTOIT EM (IB1CATTNUM 

ao to attexit; 



♦ 13.(6*423); 



XCjC 1031 
XCjC 1031 

at c g c 10 31 



-m&i 



XCJC 

xcjc 

XCJC 10 3 1 



1031 

1031 



02657^10 
02657^20 
086574 3 
02657440 



T 
1 

-*- 

T 

T 



0061 s 3 
00641 3 
0065 »1 



0065*1 
02657450 T 00*8*0 
02657 4 60 T 00 6 8*2 



IF OPCUOE n THEN 

.FPBI.X1.+ AtTNLM]... [61421 * GETFROMJT.EM EL*E 
STO,ReiNTQiTEH(FFBCXl t ATTNUM3 , E6» 423 )> 



XCjC 
XCJC 



1031 
1031 
1031 



02657500 r 
02657600 T 
03657700 T 



006812 
0069*1 
0073 * 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
..14 1 
15 
16 
,7< 
18 
19 
20 i 
21 
22 
23 I 
24 
25 
26* 
27 
26 
29 ( 
30 
31 

32 I 
33 
34 
35 ( 
36 
37 
38 ( 
39 
40 
4, < 
42 
43 
44 * 
46 
46 
47 
48 
49 
50 I 
51 
52 
53* 
54 
55 
56' 
57 



GO TO ATTEXIT/ 
% NOTE THAT MFID MUST BE ATTRIBUTE 6 AND 
X BE ,-A-T TRIBUTE 7 TO MAKE THE ABOVE WORK. 



FID MUST 



XCjC 
XCjC 
XCjC 



1031 
1031 
10 31 



02657800 T 
02657900 T 
Q2ft5fiOQ0 T 



0076*1 
0076*3 
Q07M3 



10 

11 

12 

13 

14 

16 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33. 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



BUFFERS It 



IF QPcQnr * THFN 



xcjc 
xcjc 

XCJC 



1031 
1031 



02658100 T 
02658200 T 

02658300 T 



0076*3 
00 76*3 
0077*0 



IF 



IF ( 



Fi8C4J,C27»33 * 
X CHANGING * °F 



THEN I0ERROR<43) ELSE 
BUFFERS ON NON-SeRlAL 
> FlBf.3l.Mt9] THF 



H- 



XCjC 
XCJC 
XCJC 



1031 
1031 
1031 



02658400 T 
02658500 T 

02658600 T 



00^713 
008l«2 
008112 



10ERR0RU4) ELSE X INCREASING . # OF BUFFERS XCJC 1031 
IF TEMP < 1 THEN I0ERR0RC42) ELSE XCjC 1031 
F IB [ 13], C-H9 3 *■ TEMP ELSE XCjC 1031 



02658700 T 
02658800 T 
02658900 T 



008 4.1.1 
0086*0 
008910 



STORE INTQlT EMC FIB( 13 3.(1*93); 
GO TO ATTEXIT/ 



XCJC 
XCJC 
XCJC 



1031 
1031 
103 



J- 



02659000 T 
02659100 T 
02659200 ,T 



0092*0 
0094>0 
0094*3 



BLOCKSI.ZEI* 

IF OPC 
BFGIN STORE 



u de * 1 then 

lNTniTFM(FIBl18]»t3tl53lf 



XCjC 
XCJC 

XCjC 



1031 

1031 

X4U- 



02659300 T 
02659400 T 

)595i 



-02-& 



'0 T 



0094*2 
0095*0 



GO TO 
END* 
X THf F8LLUWING 



ATTEXIT; 

"iu. " S e t* blocksiZ e ? 



XCJC 
XCjC 
XCJC 



1031 

1031 

JJUL 



02659600 T 
02659700 T 
Q 26 59 80 T 



0097*3 
0098*1 
0098*1 



IF (TE 

T 

X I/O ERROR 45 I 



MP «• GETFROMlTEM) 
HEN 1QERR0RC45); 
F NUT MULTIPLE OF 



MOD FIBC18], (33*153 t 
RECORD LENGTH 



XCjC 
XCjC 

XCjC, 



103 J 

1031 
1031 



02659900 T 

02660000 T 
0?660l00 T 



0098*1 

0l00*3 
0102*3 



IF NOT ((UNITYPE ♦ FP8CXI ♦ 33.(43*53) * 2 

OR UNITYPE * 7 OR UNITYPE • 8 
OR UNITYPE « 9 OR UNITYPE » 12) THEN 



XCjC 
XCJC 
XCjC 



1031 
1031 
1031 



02660200 T 
O266O3OO T 
026604QQ T 



O1O2I3 
0105*0 
010 6*3 



I/O ERROR 
0* SERIAL 



I 
46 
DISK 



0ERR0RC46); 
NLESS FILETYPE 



IS MAGTAPE* PAPERTAPE 



XCJC 
XCjC 

XCJC 



1031 
1031 

1Q3I 



O2&6O5OO T 
02660600 y 

9?6flP7Q0 T 



0i09*2 
1 1 1 j 1 

Olll'l 



X AT THIS POINT 
X A CHANGE TO T£ 
X PER BLOCK (FIB 



THE CHANGE TO BlQCKSIZE IS VALID 
CHNIQUE CFIBC53, (46*23) AND RECORDS 
C113MS TAKEN INTO CONSIDERATION. 



XCjC 
»CJC 
XC jC 



1031 

1031 

A0_3J_ 



02660800 T 

02660900 T 
02661000 T 



0111*1 
OllUl 
0111*1 



FlB[ldl, (3*151 «• TEMP; XCJC 1031 

FlBtUJ «■ TEMP OIV FlBd8] f (33*15); XCjC 1031 

FIBC53* (46*23 » (IF FlBdll » 1 THEN ELSE 1)1 XCjC 1Q3I 



02661050 T 
0266U00 T 

26 6 1 200 T 



0111*1 
0113*3 
0.116*1 



45 

46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



60 TO ATTEXIT; 



MA XB Ec S IZ E** 



XCJC 
XCJC 
XCJC 



1031 
1031 
1031 



02661300 T 
02661400 T 
03661S00 T 



0121*0 
0121*2 
Ql2l»2 



IF OPCODE * THEN I0ERR0RC41); 

X MAXRECSI2E 
ST0REINTPITFM(FTB[18 3.[33«15Ui 



IS READ ONLY 



XCJC 

XCJC 
XCJC 



1031 
1031 
1031 



02661600 t 
02661700 T 
0266180Q T 



0122*0 

0124*2 
0l24«? 



GO TO ATTEXIT; 



TYPEH 



XCJC 
XCJC 
X CJ C 



1031 
1031 
1031 



02661850 T 
02661900 T 
?6AiQ90 T 



126*0 
Ol26»2 
Ql26»? 



IF OPCUD.E a 1 THEN 
BEGIN STOREINTGITEMCFPBLXI 

GO TO ATTEXIT; 



+ 3J. (43*53); 



XCJC 
XCJC 

xcjc 



1031 
1031 
103{ 



02662000 T 
02662010 T 
O2662020 T 



0127*0 
0127*3 
13QM 



end; 




3 J, ( 43I«S3 3 > 9 AND XCjC l 3I 
• 19 THEN I0£RR0R(48); XCJC 1031 
HOT ALTERABLE XCjC 1031 



02662030 T 
02662040 T 
02662050 T 



0130*3 
0133*1 

0137*0 



N 

2 
3 
4 
5 



FPBCXI + 33, [43:5] «■ TEMP 
IF TEMP » * 

QR TLMP > 19 ANQ TEMP < 3ft 



■ GtTFRUMlTEM; 
CARD 
THEN XPUNCH BAC 



KJJUL 



XCjC 1031 
*CJC 1031 
XCJC 1031 



02662100 T 
02662200 T 
0,26-623.00 T 



0137*0 
Oi<*0» 3 



IF FlBCi8J.C3il53 
ELSE »0ERRQR<42); 
IF TEMP 



< 11 THEN 60 
X AND BLOCK 
1 OR TEMP a a QR TEMP ■ 



TO ATTEXIT 
< 11 WORDS 
& — 



XCjC 
XCJC 



1031 
1031 



XCjC 1 091 



02662400 T 
02662500 T 
0S66 2 600 ,U 



02662700 7 
02662800 t 
0266 2 900 T 



43*2 
45*2 



OR TEMP > 14 AND TEMP < 19 THEN X PRINTERS 
IF Fiat.l.8.J,C3U5J < 18 THEN GO TG ATTEXIT 
■ SF lOF.RHQRU?); % BLOCK < 18 WORDS 



-EU 



XCJC 
XCjC 
ICJC 



1031 
10 31 



4912 
5210 
54* 



IF TEMP « 2 
OR TEMP * 7 
OR TEMP ^ 8 



X MAG TAPE 
X PAPER TAPE 
X PT UNLABELED 



XCJC 
XCjC 

XCjC 1 03 1 



1031 

1031 

a. 



02663000 T 
02663100 T 
02663200 T 



55»3 

56 M 
5114- 



10 

11 

12 

13 

14 

15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



QR TEMP a 9 THEN 

GO. TO ATTEXIT; 
I0ERKUR(42); 



X MT UNLABELED 



XCJC 
XCJC 

xcjC 



1031 
1031 
.1031 



02663300 T 
02663500 T 
0P66360C1 T 



58 *0 
59»2 

fton 



SAVEFACTORU reel** date** 

IF OPCODE » THEN 



X "SET" ATTRIRUTC 



XCJC 
XCJC 
XCJC 



1031 
103I 

1031 



02663700 T 
02663800 T 
02663900 T Q. 



61 « 2 
6112 

6 2*0 



BEGIN 
BEGIN 

END* 



STREAMOOCTEMP], 

si «■ L'i pi * k; 



L*ClTEM])J 
QS «■ 8 DEC' 



XCJC 
*CJC 



1031 
1031 



XCJC 1 03 1 



0266*000 T 
02664100 T 
02664200 T 



62*3 
64 '1 
65*0 



IF ATTNUM » 
FPBCXI + 23 
IF ATTNUM « 8 THEN 



9 THEN X 
• C 18130 J 



"DATE" 

♦ temp 

X "REEL" 



ELSE 



XCJC 
XCJC 
XCjC 



1031 
1031 
1031 



0266*300 T 
02664400 T 
0266450 T 



65»1 

66*0 

69*2 



FPBCXI + 23, Lllin * TEMP 

FIBC4].C30»18J * TEMPi 

GO TO ATTfXlT i 



ELSE 



XCJC 
XCJC 

X C J C 10 31 



1031 
1031 



02664600 T 
0266*800 T 
026 6 4900 T — -0 



70«3 
7411 



end; 



IF FIBC43.C2113 
ST REAM(K f 



■ i then ioerRORU7); 

IF FIfiC51 T C41 123 < jkFH 



XCJC 
XCJC 
XCJC 



1031 
1031 
1031 



26 6 5000 t 
02665050 T 
Qg665iQ0 t 0- 



7713 
77*3 
81 *0 



IF ATTNUM ...9 THEN FPB [X 1*23 . C 18 I 303 EL^E XCJC 1031 
IF ATTNUM * 8 THEN FPB t Xl+23 . C 1 « 17 3 ELSE XCjC 1031 
FlRC4l.r30llfl1 FLSE,, XCjC 1031 



02665200 T 
02665300 T 
D2665350 T 



82*3 
86*2 
85J-3- 



IF ATTNUM s 9 
IF ATTNUM » 8 
FIBC43.C3Q*18J* t < 



THEN LBLC3],Cl8*303 ElS£ XCjC 1031 
THEN LBLC33.CiHn ELSE XCjC 1031 
[IT EM? ?; XCJC 1Q3I 



02665360 T 
02665370 T 
02665400 T Q. 



91U 
94*0 
96*3 



BEGIN 5I*LPC. k; di«-l; 0S*8 oct; 
end; 

o Q TO ATTE XI T / 



XCjC 
XCJC 

xcjc 



1031 
1031 
1031 



02665500 T. 
02665600 T 
0266 5700 T Q. 



98*1 

99*0 
9911 



FIBWORDS:: 



IF OPCODE « THEN l0gRRQR(41)J 



XCJC 
XCJC 
»CJC 



1031 
1031 
1031 



02665800 T 
02665900 T 
0?666000 T 



99*3 
?9*3 



020Q*0 



X FIB IS READ ONLY 
STREAM C A* CFIBC03 3, B*C ITEMJ. )i. 
BEGIN Si 4. a? QT » Hi PS <■ 20 W PS; 



XCJC 
XCJC 
XCJC 



1031 
1031 
1031 



02666100 T 
02666200 T 
02666300 T 



0202*2 
0202*2 

2 3 * 3 



45 
46 
47 
48 
49 
50 
51 
52 
S3 
54 
55 
56 
P 



end; 

GO TO 



ATTEXIT; 



XCJC 
XCJC 



1031 
1031 
XCJC 1Q3I 



02666400 T 
02666500 T 



0204*2 
0204*3 
02466600 T 0205*1 



FPBWQRD3J { 



IF... OPCODE ■ THEN I0ERR0RUUJ 
, X KP B IS R EAQ ONLY 



XCJC 
XCjC 



1031 
1031 



02666700 T 
02666800 T 



0205*1 
0206J0 



X C JC 103 1 



02 666 900 T 3 08 » 2 



STiEAW(A*CFP8tXI33* B*UTEMJ); 

begin si * a; di * a; os * 5 w s; 

end; 



XCJC 
XCJC 
XC J C 1 031 



ion 

1031 



0266^000 t 0208*2 
02667100 T 0209*3 
02667 200 T — 0210*2 



GO TO ATTEXIT; 



LABELtoORDSn 



XCJC 
XCJC 

XCJC 



1031 

1031 

40-3J- 



02667300 T 
02667400 T 
0,2667500 T 



0210*3 
021111 

2 U*1 



IF OSCQDE « THEN I0ERROR(4l); 

X LABEL IS READ ONLY 
IF; FIHt53.C41l23 J. Q THEN IQ£RRQRU7jj 



XCJC 
XCjC 
XCJC 



1031 
1031 
-L0-3-I- 



02667600 T 
026677^00 T 
0grt677lQ T 



0212*0 
021412 
021 4 *2 



J0 



• • 



I/O ERROH 47 * ACCESS TO LABEL WHEN FILE NOT 

IF FldC4].C2UJ a 1 THEN I0ERRQHC47); 
S TREAM A -C L BLC 03 3/ B-UTFM3); 



OPEN 



*CJC 1031 
%CjC 1031 

scjc in.ii 



02667720 T 
02667730 T 
02667600 T 



8EGIN 

end; 

6 TO 



SI 



a; oi 



B, 



OS * 8 WOS; 



attfxit; 



xcjc 

*CJC 
X CJC 



1031 
1031 

1031 



02667900 
02668000 



0217 
0217 

-GZ24 



T 0222 
T 0223 
J 022 3 



4 

S 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

10 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

•3 

44 

45 

46 



EUNUM J ? 



IF FJtit53.UW23 a AND OPCODE"© THEN GO TO ATTEXIT* 

IF OPCODE ■.. 0. THEN 

fPBlxl + 3 3, t tie»53»«fi£TFRQHITEH+,l ELSF 



02668200 t 0223 
O26683OO T 0227 
02 66 8 4 T Q?2fl 



OSKSPrEDn 



STORE INTO ITEM (FP8CX 1 + 33, C 18 1 53-1); 

GO TO ATTEXn; 

IF FIBtS3.CA^l23 * AND 0PC0DE»0 THEM GO TO ATTEXIT-; 



02668500 T 0232 
02668600 T 0235 
02668700 T 0235 



IF OPCODE ■ THEN 

FPBCXI + 33 «C 161.2.3 « »QET.FRD.MIT EM ELSE 
BFfilh 



02668800 
02668900 
02669Q00 



T 0239 
T. 02^*0 
4 — Q_2iU 



TEMP l« IF <TEMP»«FP8CXl + 33.U6l23)»l THEN 

1 ELSE IF TEMP*2 THEN 2 ELSE 0; 
STOHEINTOITFMCTEMPU 



02669100 
02669200 
Q2669AQQ 



T 0244 
T 0246 
4 025l0. 



END/ 
GO TO ATTOIT) 



02669500 
02669600 

O?6B QQ00 



T 0251 
T 0251 

T, 0252 



TIMELIMITU 

IF OPCODE » THEN 
$ SET OMIT a ftjQT SHARE Q ISK 



02680100 
O268O2OO 
02680299 



T 0252 
T 0252 
J. 025? 



ELSE 
BEGIN 
$ SE T UMJT = NOT . SHARE UISK 



O260O5OO 
02680600 
02680699 



T 0252 
T 0253 
4 0253 



storeintoitem(temp); 
eno; 

fiO TQ ATTEXlTi 



O268O9OO 
02681000 
02681100 



T 0253 
T 0254 
4 0254 



IOSTATUS11 



IF OPCODE ■ TH E N IQ CRR QR(4 UJ 



02681200 
02681300 
026 B1 4 0Q 



T 0255 
T. 0255 
J 0255 



S SET OMIT 



* IOSTATUS IS READ ONLY 
NOT SHAREOISK 
STOREl N TO I TEMaEMP^ ; 



02681500 
02681599 

02681800 



T 0257 
T 0257 
T 0257 



GD TO attexit; 



sfns i t iv f; » 



02681900 
02682000 
026fljQQQ 



T 0258 
T 0258 

jr o_25_a 



IF OPCODEsO THEN 

FPBCXI*3 3,C15I13!»GETFR0MITEM ELSE 

anau : 



02683100 
02683200 
Q26833QQ 



T 0258 
T 0259 

X Q263 



TEMP 1 «FP8[ XI + 3.3. [1.5* I3.f. 

STOKEINTOITEMCTLMPj; 
ENUi 



02683400 
02683500 
0?683 600 



T 026., 
T 0266 
T 0266 



ATTIXITU 



GO attexit; 



02683700 
02685000 
0?6R6nOO 



T 0266 
T 0267 
1 0267 



47 
•8 



END OF COBOLATT; 
PRQCECURE CQBQLQC; it INTRINSIC NUMBER 167 



02607000 
Q?69Q000 



T 0268 

I^E» 02 

T 0000 



1 

9 WORDS 

0_ 



18 

50 



51 
62 
53 
54 



BEGIN 



» ri * 



START Of REL 
» Q»REAB t l«WRlTS«2«S£EK,6«HRTBLK» 



segment; DISK 

02890020 

0269Q040 



aooRess 

T 0000 
T 0000 



» 00261 






NAME OLQ.Q. 
REAL NUMWD5 
KEY 




% POINTS TO BUFFER I/Q DESC 

it # WDS TO tig WRITTEN 

% RANDOM RECORD ADDRESS OH CAHRaGE rTn 



02690Q60 

02690080 
02690100 



T. 0000 
T 0000 
T 0000 ! 



55 

56 



: "fcfe, 



I 

Qnnm 
LINES 



STATUS INTO 
% LP gMANNCU *K1P 
% * LINES TO 8E SPACED 



G26$0is,o 

O26£O|40 
2 6 9 016 Q 



T 0000* 
1 0000* 



ft 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2B 
29 
30 
31 
32 
33 
34 
35 
36 
37 " 
38 



TIMEOUT 
SKIP AFT 



MNTEfiER 



'5, * UNTIL PORTION OF DATA COM 
'0 * 1*SPACC AFTER PRINT 



02690180 T 
02690200 T 
026902?0 T 



OOOOSO 
0Q00!0 
QOOQ'O 



XLQ CAl S 



SfATN ■ *6# * DATA CQMM STATION (BUFFER) 
TUNR • -7; X OATA COMM TERMINAL UNIT 



02690240 T 
02690260 T 



0000*0 

000010 
ooonm 



Real 

REAL 
RE AL 



COBOL 
COBOL 
P EST 



CONTROL-23; 
INDEX = 22; 



* FOR LINKAGE BY 
% FOR LINKAGE BY 
X DESTINATION IN 



USE ROUTINES 
USE ROUTINES 
RANDOM MQVp 



02690300 T 
02690320 y 
Q269Q140 T 



OOOO'O 
OOOOiO 

0000*0 



ARRAY 

REAL 

NAME 



FIB C 
FllEC 

floc ; 



trl *i2 ; 



X FIB ARRAY 

X USED TO CALL COBOLFCR 

X POINTER TO FIB 



02690360 T 
02690380 T 

02690400 T 



0000»0 

0000 ib 

QOQOin 



ARRAY 
ARRAY 



FPU * 

he*]; 

-MJEJL 



3.t*]> 



2; 



% FILE PARAMETER BLOCK 

% DISK FILE HEADER 

% DUMMY DATA DESC 



02690420 T 
02690440 T 

02690460 T 



000050 

0000 1.0 

QOOO'O 



ARRAY 

REAL 

REAL 



PQUS£»24C#3j 
RTOGJ 

JJ 



X PROGRAM USE ROUTINES 
X 1*1/0 DONE THIS ROUND 
% TEMPORARY 



02690480 T 
02690500 T 
ng690s20 T 



000010 

0000*0 
OOOOtQ 



REAL 

real 

REAL 



TECHC 

UNITY 

JLLi 



.qflo; 
he; 



% USED FOR TECH-C 
X STORE UNIT TYPE 
X »On»NOT»SF.PAR,A.Tt 



OVER FLOWS 

FUR M A NY TESTS 

— X-l — a — X-2 — THEY — ARE 



02690540 T 
0?690560 T 
Q26905R0 T 



0000*0 
OOOOSO 

ooon*n 



REAL 

INTEGE 

INTFGF 



X2> 
R BS 



■ xw 

» X2* 



X USED IN CONJUNCTION FQR TEChC OFLOWS 

X USED IN COMPUTING DfSk AODR 

X ll.SFD TN COMPUTING DISK ADDR 



0?690600 T 0000*0 
02690620 T 0000*0 
0g6906 fl T 0000*0 



DEFINE 



ARROW 



P(0>NQT>NuMW0S 
I THIS 



*TIP>INX>+>*» 
INSERTS THE GRQUP MARK 



02690660 T 0000*0 
02690680 T 0000*0 
02690700 T OQO OI Q 



BADKEY 
BCOUNT 
B IN A RY 



« FIBC133,CI9*13: 

* FIBC63#> 

9 MBC13J.t2«Um 



X BAD KEY RANOUM DISK 

X BLOCK COUNT 

X U BINARY*Q*AL PH A 



02690720 T 
02690740 T 
Q269Q76Q T 



0000*0 
0000*0 
OOOOtQ 



BOUNDED 

BREAK 

BREAKOUT 



FIB.C9},[SUU## 

F I B C .9 J t » t 

TftRCQUNT MQD F IB[9J?«Q THEN 



X TRUE IF BOUNEO FROM AB^VE 
X BREAKOUT RESTART POINT 



02690780 T 
02690800 T 
02690620 T 



0000*0 
0000*0 
0000*0 



BUFFNUM 
RUFFSIZf 



P(0*0#12#CGM 
FIBC133.C XI93 

FlRUeJ. £3*153 



#DEL#DEL)##X CALL BREAKOUT 

## X # OF BUFFS REOUSTED 

*r % BUFFER SIZE (REQUESTED) 



02690840 T 
02690860 T 
0?690flfl0 j 



0000*0 
0000*0 
onomn 



BUFFS? 
BUFSTATUS 

BUFTQP 



FiBCieueierio 

FIBCUJ #» 

FIB Ll63jy, 



3#» X SIZE FOR CONCATINATEi 
X STATUS AFTER SEEKDC 

x usen on i-n and random 



02 690900 T 
02690920 T 
0269094 T 



0000*0 

0000*0 

o o ooro 



BUILOSTATNWD 
CHEfiKfCHEcKl) 



<P((STATN*SKIPAF 
P(0UP)C14l44:«3 

» I F P( D VP) /<(CHF 



T)& X BUILD STATION WORD F°R DC 

4(TUNR*TUNR)C9U4I43)#, 

C M ? THEN PCCHEr.Kl'QfFLQCi*/ 



02690960 T 
02690980 t 
Q26910Q Q T 



0000*0 
0000*0 

Qoontn 



40 
41 
42 

43' 



C)NERR(ONERHl) 

clear sta'tu s 



» QNER*1#17#CQ 
% THE 



M#DEL*QELjDEL#DEL)J P(DEL)#* 
ABOVE ARE USED ON BLOCK+ReC ChKS 
% CLEAR B UFF [Q3 FOR WRIT E 



02691 
02691 
02691 



020 T 
040 T 

060 T 



0000*0 

OOOOiO 
OQQO'n 



45 
16 
«7 
48 
49 
SO 
51 
52 
53 
54 
55 
56 
(>7 



closeandopen 

CQUWT 



»P(MKS> 1'0»FLOC» 

MKS#FL0C#1»FI 

i FIBC123 tf. 



4/FILECTRL* XCLOSE NO RWO 
LECTRL)#> X OPEN INPUT 

X USED FOR BLOCKING TFCH"A,B 



02691 
02691 

02691 



080 T 
100 T 
120 T. 



0000*0 
0000*0 
OOOOtQ 



DCBUFRLS 
DEL AY 



pcnumhuf»dloo 

11#CUM/DEL»D 
TIP. [20 HI *> 



16» X DATA COMM BUFFER RELEASE 
EL#OEL)#» 

X THIS ALLQftS ONE CYCLE OeLY 



02691 
02691 
0?691 



140 T 
16 T, 
19Q T 



0000*0 

0000*0 
OQOQ 'O 



DONE 
DISK 
FNAM 



TIP.C19J13 #, 
(UNlTYP£*«) t, 

FIBJALilillLllJ 



X in 10 COMPLETED 

X DISK IS UNIT TYPE Of 4 

X FILE NAME INDEX IN FPB 



02691 
02691 
2691 



200 y 
220 T 

2«Q T 



0000*0 
OOOOIO 
0000*0 



ENDFILE 

enoprqceSs 

ENDREEL 



FIBL53, C40«13 *> 
FIB[5],[39!23#' 
X2 *> 



X ALREADY PASSED EOF 

X SEE OPTIONAL AND ENOFILE 

X USED ONLY ON READ 



02691 
02691 

0269 1 



260 T 
280 T 
300 T 



0000*0 
0000*0 

09, *0 



EOF 
FOREVER 



•<<*DL0CM27*U 
*<NOT 0>»C9lW 

« *P(.IXPS,TATAR ? 



)#> X FIRST EOF OR EOT 
#» X UNTIL ENO TIME 
#* X EXPAND CELL CHECK 



02691 
02691 
02691 



320 T 
34Q T 
3 6 Q T 



OOOOIO 
0000*0 
0000*0 



> 



12 
13 
14 

IS 
16 
17 
IS 
19 
20 



21 
22 



23 
24 
26 
26 
27 
28 
29 
30 



31 
32 
33 
34 
35 
36 



39 
40 
41 
42 
43 ~ 



44 
45 
46 
47 
18 

50 

51 



52 

a 

54 

55 
56 
6? 



EXPANDSTATU5 
GFTSEG 



= P(TIP#0*G, EXPAND* X EXPAND STATUS WORQ 

27, COM, DEL* DEL* DELUDED** 
s PtFPHLtBS»FMAM)+3l»FPRrBS].FPRrBS« 1 J, 



HASH 



T,h#4#li*CQM*DEL»DEL#0£L'DEL'0€L»D£L)#' 
*1T NOT DISK THEN IF FJBC83>0 THEN 

pfMKS»rLQr.»»riiirai«yr f flr>«> 



hashtot 



HOWOPEN 
INVALIOUSEH 



* ABOVE CALLS ROUTINES FOR HASH ACCUMULAtON 
S IF FI.Bt.83 >Q THEN IF P(MK5#FLOc^*FIBC83#0'COc) 
THEN IQFRR(183»,X CHECKS HASH TUTALS 



» FlBt53.C4l*33#* 
• FIBf»i3<0*, 



iQERRClQERRli 

IGHaSK 



X 1«0PEN INPUT'O* OPEN OUTPT 

X 1 > CLOSED 

X INVALID USER NOT PARITY 



LABEQ 
UASTOONE 
LASTIO 



« P(0vFl0CM0ERR1»17#C0M»DEl'0EL'DEl)#' 

X ABOVE CAULS IQERROR ROUTINE 
9 OFST, *' i has tqMaSk id Savf 



FIBC53.U71U M, 
FIBtl33.Cail.lJ *» 
FIBM33.U6It3f> 



C'REL 



LBUPTR 
LINEPRINT 



* FLOCtlJ *> 

= UNITYHEbI qr 

* 1» IE i 



X LABEL EQUATED FROM QUK 

X NOT Of LAST OPERATION DONE 

XI AST WAS PHYSICAL REAP - 



LSUBL 
LSU8U 
MA Xft 



X LABEL 
UNlTrPEsZ OR 

7 v PBT » 12 



POINTE« 
UNIIYPE«12 

» PBD 



« FIB Hi *> X 

• FIB C 3 J », % 

9 riHnaifai»Mniiii 



MAXREC 

NONSTD 

numbuf 



LOWER BOUND FOR RANDOM 
UPPER BOUND FOR DISK REC 
MAX REC S2 FOR CONf-ATS 



NUMBSPC 

NUMREC 
NXTREEL 



* FIBLl8J.C3iU5J## X MAX REC SZ 

■ FIB CbJ.tl6» 13#* X NON-STANDARD LABELS 

= FIRC133.CIQ: 9li» % NUMRFR nF RuFFF.R.S ftsalfiNFD 



HC93, C*3»53f» 

Fiecin *, 

P{MKSa2>l.FLnc»4* 



OPENIO 



FILE CTRL)*, X 

■ F.lBtl.33,C22.i.l.l»* * 

s FTRC 5J.I39I11». X 



X ROWS SPECIFIED *CJC 020 
X RECORDS PER BLOCK 

x this qQes Reel switching 



PARITY 

present 

PROPER 



1* OPEN INPUT-OUPUT COlSK) 
QPTIQNAI FILE NOT PR&SF. N T 



PUNCH 

purge 
Random 



* TIP.C26tj3## X PARITY BIT ON DESC 
»CC*DLOC).C2U3 )#> X CHECKS PRESENTSbIT 
«21 + Cn0E*C00E + RE\/ERSE»,X GEmERAtES PROPER IQERR 



* UNITYpE*6«f# X UNIT 
3 TIMEOUT. tFF3XQHt, X 
» TECHCCPLOt* X_ 



RCOUNT 

Reader 

REAOLBL 



IS CARD HUNCH 
TRUE IF LINE TO 

l » ra ndom disk 



XTr 830 i 

BE PURGED 



* FIBC73 *• . X RECORD COUNT 

•(UNITYPE MOO H*0)##X 0«READER 1 1»PSU0QReADER 

*P(DLOC INX 0*11,11 X THIS READS THE LABEL. 



RECPERBLK 

REMQTEIO 



,cqm#del»oel;*# 

s HtO]. [30*123 t» 
»PCbUFFSlZE»DLQC* 



X 

X RECORDS PER BLOCK 
X READ & WRITE BATCH 



SYSTEM 



REMQTEHEAD 



RgMflTEWRlT 



FOREVERUIF CODE THEN LINES ELSE i)» XFQR 
KEY»0»CFX#TIP#C0DE#36#C0M# XREMQTE OR 

DCL»n£LfDEL>QFL»DFL»l,SUft*RTN)«*XTYPr 19 FlLf S 



sPCBUFFSUE,TlP*0» 

C-l3)rCtJM#0*RTN)#* 
sPUIP'NUMWQS, x8, 



X READ FOR TSS 

X 

X WRITE FOR TSS 



RESETPARITY 
RESETREADBIT 



REVERSE 
ROTATEBUF 



LINE$*KEY#crX'0#Cll)»COM»DEL*RTN>## 
» 0t06C04»TiP»0t2ei28IU*#XRESET PARITY BlT DISK 

■ MMimilll » USED TO TURN OFF REaD B T T 



02691380 
02691-ltOO 

026914*0 



02691«40 
02691460 
02691480 



02691500 

02691520 
Q?69 1 5«P 



0000*0 
0000*0 
000010 



000010 
0000 *0 

onooio 



02691560 
02691580 
02691600 



0000 to 
0000*0 
0000 * 



02691620 
02691640 
02691660 



oooo to 

000010 

ooootn 



0000 «0 
0000*0 
OOQO'O 



02691680 
02691700 
02*91720 



02691740 
02691760 
02691780 



0000*0 

ooootn 

0000<0 



02691800 
02691820 

0269iaan 



000.01.0 
0000 JO 
OOOOt-Q- 



0000*0 

ooooto 

ooooto 



02691860 
02691880 
026 9 1 9OQ 



0?691920 
02691940 
03601960 



000010 
0000*0 
0000 * - 



ooooJo 

000010 

ooooto 



02691980 
02692000 
02692020 



ooooto 

0000 8 
0000*0 



02692040 
02692060 
02ft92Qfln 



ooooto 
ooooto 
ooooto 



02692100 
02692120 
0P692140 



0000*0 
0000*0 
0QOQ»Q 



02692160 
02692180 
02692200 



0000*0 
0000*0 

ooooto 



02692220 
02692240 
0?69? 26 Q 



0000*0 
0000*0 

OQOQ*0 



02692280 

02692300 
03692120 



0000*0 
0000*0 

00 0* 



02692340 
02692360 
Q269 219 Q 



ROWLGTH 
SAN08KEY 



* F1BC5J.C44*13 *' X 1»REV£RSE 

»P(NUMBuF*DL0CM3*ll X ROTATES BUFFERS 
>COM»DEL»OEL*bEL)«»» NO I/O 



02692400 
02892420 
02692440 



0000*0 

0000*0 

0000*0 



0000*0 

ooooto 
ooooto 



WITH 



■ :*-i-it:-» 



« WCi3## X ROW L6TH FROM HEADER 

■ FI8Ci3i,Cl9t23 ## X SE£K ANO 8A0KEY 
"PCO<;NUMW05C14t44t43 X DATA COM SEEK ANO xU 



02692^60 
02692480 
02692500 
02692 && 
02692840 



ooooto 

0000*0 
0000*0 



ooooto 
0000*0 

oooo«o 



55 

56 1 
5? 



N 

2 



7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 



22 
23 
24 



SEEKEY 

serial 



&CHNNL t9»44l«3»0L0C»b#ll#C0M,XlT)#, 
* FIBCl3J.t20llJ## X SEEK WAS DONE 
s FlBt4li[?7Ml«0 #* » FILE ACCESS " S£flUt 



SEGPERBUK ■ HC03.U2I63 
SeTPRE5£NTSBIT «P€TIP OR M£M 
i SFT OMTT w NOTCTIMESHARIN63 



*, % SEGMENTS PER BLOCK 

toLoc*+)*»x set presence bit 



02692580 
02692600 
02692620 



000010 
0000«0 
000010 



02692640 
02692660 
02692680 



0000*0 

ooooto 

000010 



S SET 



t PDF 



OMIT * 
SLEEP 



TlMEShARING 



2 #. 



TAPEE 

TECH 

TECWA 



» TIP.CMX3 #» 

* FlBC53«t*»6»23 *# 

*(f IBm»U6l21«l) 



% \m TAPES 
XTECHNIQUE 
*,\ TECHNIQUE^ 



0»ALL EL S E 



02692 740 
02692760 
0269 2 760 



000010 
000010 
QQOO»0 



TECHC 
TERMCTERMD 

JJLP 



sCFlBl5J*l46*23 a 3> #** TECHNlQUE-C 
■ P(lrFL0CUERMl>17rCQM>#**TERMlNATE 
» C* DLQ tf ) t i S LOAD I/O DESC 



02692800 
02692820 

oaftoagao 



ooooto 
ooooio 

000010 



I/O ERROR 



02692860 
026V28B0 
02692900 



ooooto 

0000*0 

ooooto 



TOTREC 
UNLABELED 
_IH 



H[7) *, % 

<FlB[«J.EaiU>#, X 
(FTBU3.[fl*43)»f %_ 



TOTAL RECOROS ON 
UNLABELEO FUE 
HARQWAfiF TYPE 



FlUE 



02692920 
02692940 
02692960 



ooooio 
ooooto 

OOOOIO 



HA.ITOC 
WAITIO 



s PCOLOC'IQmASK* % 
SLEEP* COM* ■ 3 J# % 
■ PCDLQCMOMASKi L 



THIS SLEEPS ON I/O CQMPLE 
AND LEAVES A FALSE UN STK 
THIS SLEFPS QN T/Q 



02692960 

02693000 

02694020 



OOOOIO 

ooooio 

onon'n 



wordsleft 
wri te af te reqf 



sleep*com#del*oel)#*x waiting FOR a complete 

* FIBU73#> X WQR0S LEFT IN BUFFER 
9 FTRT l33 < Cqaial*« — x 



.WRITBA.CK s FIBll3J,C23»t3*.J. ...» FLAG Tq SAY WRITE BACK 

LABEL LPRE TURN* I0UT#S TART WODQNE»RANOQMLBL*SEEKRTN* SETUP' 
LABEL IMPROPEH»DCPRL»FlXSTATNWU»DTnnLF»DinnLElNRT#SERlALTO»EOFSFTCK» 



02693040 
02693060 
0^69 3 8 



0000*0 
0000*0 
0000*0 



02693100 
02 69 3 l20 
Q2693l4Q 



0000 « 

0000*0 
0000*0 



25 
26 



27 
28 



LABEL DATAC0M,RANQ0Mia; 

START I 
: FIB t »(FLOC 



XCUBE XIX I 



«• (ImQT 2) IN* QLOOi 



02693J60 
02693180 
Q26932Q0 



T 0000*0 
T 0000*0 
_j QQQ2»? 



29 
30 



JUMASK «■ P2OOOOOOOOO; 
IF CODE THEN X 

B EGIN KTOU «• l m H)} 1 



DC WRITE 
SET ALGOLIQ 



FOR CQ BUL OCW R 



02693220 
02693240 
02693260 



T 0004*3 

T 0005*2 

-X 0005*3 



31 
32 



33 

34 
35 
36 



CLEARSTATUS; 

go to fixstatnwd; 



end; 



02693280 
02693300 

02693320 



0007*1 
0008*1 
001010 



BCGIN 
FTXSTATNWPI 



|F yUFSTATUS'O THEN 
RTOG ♦ I' 
BUILDSTATNWOJ 



% SET ALGQUO FOR REAOC 



02693340 

02693360 
0?693380 



T. 0010*0 
T. 0011*0 
J 001 2*1 



37 

38 
39 

40 
41 
42 
43 
44 
45 
48 
47 
«8 



end; 



go to dcprl; 
if delay then 



% THIS IS USED TO INHIBIT BUFFER 



02693400 
02693420 
02693640 



T 0015*2 
T 0016*0 
I 0016*0 



DCBUFRLS' 
IF TIMEOUT < THE 
B EGIN waitd c; 



% ROTATION ON 1ST READ 
N * UNTIL END READ 

X. THI S LE AVES O N STACK 



0L0CC03* TIP&IC20I47IUI % SET DELAY 
END ELSE BEGIN 
P(BUFSTATUS)' 



02693/460 
02693480 
02693^00 



dcpkl* 



P(IF TIMEOUT 

X60&CPURGE) 
PLVPEi^L 



X SET ALQOHO FOR READsQuGHT 



02693520 
02693540 
02693560 



T 0017*0 

T 0020*1 

J. 0021*0 



0022*3 
0024*3 
0025*1 



< THEN FOREVER ELSE TIME0UTtCCF3 
CI |47tl3,XCH,DL0C#l5-RTQG#U,CQM, 
>\,*)) XTH1S LFAVES 1 or on STACK 



02693580 
02693600 
Q?693 62 



T 0025*3 

T 0028J2 

_I 0033*2 



49 

50 
51 
52 
53 
54 



55 
56 



End; 



IF EXPAND * THEN 

p(preS£nt*nqt»qr); 



setpresentsbit; 



PCRTNU 



XDEPENOING ON HOW 10 wAS, 
EXPANOtTATUS; 
XTHIS ORS RESULTS OF ABOVE WITH 



02693640 
026^3660 
03693660 



T 0034*3 
T 0034*3 
1 0039*1 



PRESENTS 
PROGRAM, 



BIT AND IS RETURNED TQ 



END C0B0L0C4 
P R OCEnUH E C OBOVl Q * 



02693700 
02693720 
02693740 



T 0040*3 
T. 0042*1 
0042*1 



02693760 T 0048' 

SIZE' 00*3 WORDS 

0270000 t onon*n 



• • 



>T 



BEGIN 
R E AL W E 



START UF REL 



• -1; 



NAME 
REAL 



QLOC 
NUWWOS 
JS_EJC 



a -2; 
» »3# 

* «4» 



* Q*READ»l«HRlTFf2:«SEEKiP«i1RTBLK' 



X POINTS TO BUFFER I/O DESC 
X # WOS TO BE WRITTEN 

x random record aqprfss or carrage rtn 



SEGMENT) DISK 
02700100 
Q27fiQ800 



ADDRESS * 00263 



EX.PS.TA.TAR a -4> % AREA TO EXPAND STATUS 
CHNNL * .-.«#. * LP CHANNEL SKIP 
L INES * -5< it * LINES TO BE SPACED 



INTO 



02700300 
02PQ0400 
02700500 



MNTFGFR 



TIMEOUT » -5» X UNTfL PORTION OF DATA 
SKIPAFT s «6 X 1«SPACE AFTER PRINT 



COM 



02 7 00 60 
02700700 
02700800 



0000 

0000 



0000 
0000 

0000 



13 



»l.nnALS 



STATN 
TUNR 



s "6# 



X DATA COMM STATION CQUFFEH) 
.X DATA COMM TERMINAL UNIT 



02*00900 
02701000 
02701100 



0000 

0000 

-0040. 



0000 
0000 
0000 



16 
17 
IS 



REAL C0BQLCQNTR0L»23J 

Real cobolinoex «22; 

RFAt, OF ST I 



19 
20 



ARRAY 

REAL 

NAME 



J IB.. I* It. 

FILE CTRL 
F L Q C* 



X FOR LINKAGE BY 
X FOR LINKAGE BY 
X DESTINATION TN 



USE ROUTINES 
USE ROUTINES 
RANDOM MOVE 



02701200 
02701 3OO 
0270 UOO 



12 



21 
22 
23 



ARRAY 

ARRAY 
RFAL 



FpB « 3c*i; 
HC*JJ 

iomask; 



X. FIB ARRAY 

% USED TO CALL COBOLFCR 

* POINTER TQ FIB 



027ot500 
02701000 
02701700 



0000 

0000 

000 



24 
26 



NAME MEM s 2; 
ARRAY PGUSE*24[*1; 

REAL rtqg; 



X FILE PARAMETER BLOCK 

% DISK FILE HEADER 

% TQ SAVT C-REi Cali 



027 01800 
02701900 
02/02000 



0000 
0000 

0000 



0000 

0000 

0000 



26 
27 
28 
29 



Real u 

REAL TECHCQFlOJ 

Rfal unitype; 



* DUMMY DATA OESC 

* PROGRAM USE ROUTINES 

it lsI/O DGNE THIS ROUnD 



02702100 
02702200 
027Q 2250 



0000 
0000 
QOOQ 



REAL XI f 
REAL X2> 

i n te g er bs s 



ail 



TEMPORARY 

USED F8R TECH-C 

STORF UNIT TYPf 



02 702 300 
02702400 

Q?7q25qq 



0000 
0000 

0000 



OVER FLOWS 
FOR MANY TrSTS 



12 
33 
34 
36 
36 
37' 



S SET 

DFFINF 



INTEGER RT * X2* 
OMIT * NOT SHAREOISK 



*D.O*N.Q.T*SEPA.RATe Xl & X2 THEY A«E 
USEO IN CONJUNCTION FOR TECHC OFLOWS 
USED IM COMPUTING DISK ADHR 



02702600 
02*02700 
Qp7Q2fiQQ 



0000 

0000 

_G_OlOJ1 



X USED IN COMPUTING DISK AODR 



02702900 
02703000 
Q?7Q3i[00 



0000 

0000 
OQQO 



ARROW 
BA DKEY 



39 



BCOUNT 

binary 

BnUMOFD 



* P(Qj>NGT>NL,MWDS»TlP* ],NX'»)#' 

% THIS INSERTS THE GROUP MARK 
= FIB[13J.[l9:i]»* X BAD KFY RaNdQM RISK 



02*03200 
02703204 
02703300 



BREAK 

BREAKOUT 



FI8C6]#, % 

FjBll33,[2*tlJ## X 
FIBt9i.I2iUf, X 



BLOCK COUNT 

1»BINARY#0»ALPHA 

TRUE IF BQUMEO FROM ABOVE 



02703400 
02703500 
0P703600 



0000 
0000 
0000 



46 
46 



BUFFNUM 
BUFF SIZE 
BUFFSZ 



s F J B C 9 J X * > X BREAKOUT 
* IFCRCQUNT MOD FIBC9J)"0 THEN 

P(0>0M2'C0m»DEL*QEL)»*X CALL 
■ FI8U33.C1I93 U X # QF BUFFS REflUSTEO 



RESTART POINT 

BREAKOUT 



02703700 
02703800 
02703900 





Ol 
0000 ; 
0000 10 
OQOQiO 



0000 »0 

0000*0 
0000*0 



02704000 
02704100 
02704200 



0000*0 

OQOO'O 
0000*0 



48 



49 
50 



BUFSTATUS 
BUFTOP 



FlBtl6J.E3tt53#, X 
FlBC183[Bt8*103*> X 



F I B 1 1 4 J # . 



buffer sue crequesteoj 
size for concaTinaTfs 



s FIB C16J», 
sP((StAtN»Sk!PAFT)& 



X STATUS AFTER SEEKDC 

X USED ON 1-0 AND RaN^M 

* build station woro for 



02704300 
02 7044 00 
02704500 



OC 



52 



CHECKCCHtCKU 
QNERR(ONERRl) 



P(DUP)Ci4'44*43&(TUNR*TUNR)C9*44*43)## 
» IF PCDUP) # (CHECK1) THEN P( CHECKl »0 »FLQC,» , 

0NERRi < i7>CQM>DEL»DEL#0EL»0EL)) P(0£L?«» 



02704600 
02?04700 
02704800 



0000*0 

0000*0 

0000*0 



OOOOlO 
0000*0 

0000*0 



54 



55 

56 



clearstatus 

CI OSEANnOPEN 



% THE ABOVE ARE USED ON BLOCK+REC CHKS 
■P(0*TIP»*)#» X CLEAR BUFFCOJ FOR WRITE 
S P(MKS*1»0»FL0C<4*FILECTRL* XCLDSF NO RftD 



02704900 
02*05000 
02*05)00 



0000*0 

0000*0 

QQOQ*0 



COUNT- 
OCflilFRLS 



MKS*FL0C#1»FILECT«L)## 
fllliJi *# X USED 
FCNUMBUFjDLOClfe, ,X DATA 



X OPEN INPUT 
FOR BLOCKING TeCH'A'B 
COMM BUFFER REl EASE 



02*05200 
02705300 
02*05350 



02705351 
02705400 
Og*Q55P0 



0000*0 
0000*0 

00 00* 



0000*0 

0000*0 
0000*0 



r* 



66 ' 
57, 



DLlrtY 



11»CUM»DEL#DEL*UEL)#» 
= 7 iP • C 20« 1 j #, % THIS ALLOCS ONE. 
= 1 IP , t I V I 1 3 *» * i s 10 C OMPLET ED 



CYCLE- DEL* 



02705600 T 0000*0 
02705700 T 0000*0 

oay ose o o t — 00 . 00*0 



DISK 

PNAW 
ENQF I L E 



ENDPRDCESS 
EnDKEEL 

-ELOE 



(UMTYPEstt) *» % 

F1BC«3»CJ|*113#» * 



- FIBtSJ.[39t23*« 



DISK IS UNIT TYPE OF A 
FILE NAME INDEX IN F p & 
ALREADY PASSED EOF 



* SEE OPTIONAL ANQ fNdf ile 

* USED ONLY ON READ 

it FIRST EOF OR LQT 



02705900 
02706000 
08706100 



02706?00 
02706300 
0o706i>00 



0000*0 
0000*0 

QQOQ to 



ooooio 

ooooio 

oonoio 



10 



FOREVER 

EXPAND 

FXPANnSTATUS 



s(NOT 0).C9J39] 9i % 
* *P(.EXPSTATAR) t» % 

» PfTTP*Q»Q.FXPAKin» X 



UNTIL END TIME 
EXPAND CELL CHECK 
EXPANQ STATUS WORD 



02706500 
02706600 
02706700 



0000*0 
000010 
0000 to 



GETSEG 



21 * COM, .DEL.* DEL > DEL* DEL) ».» 
PCF.PdUB5**FNAM)+.3.3»FP.BtB8 3»FPBtB3 + l)» 

UMaJU 11 > COM > OFL > DEI,, f PEL* DEL* DELUDED 



JUE- 



02706800 T 
02706900 T 
2 7 , 07 000 J 



000010 
0000*0 

0000 »0 



13 
14 
15 
16 
17 
18 
19 
20 
21 



HASH 



■IF NOT DISK THEN IF FI8C83>0 THEN 

P(MKS#FL0C>*FIBC8},3>CQC)*» 
X ABOVr CALLS ROUTTNFS FOR HaSH aTpUmULATQN 



2 7071 00 T 
02707200 t 
0270730 T 



0000*0 
0000*0 
0000*0 



hashtot 

HQW Q P E M 



= IF FIBC.B.] >0 THEN IF PCMKS,FL0C#*FIBC8j*0*COC) 

then iqerrci8>#*% checks hash totals 

s FIBCi J.UH3J8, X U Q PEN I NPUTul a Q P E n & UTP X- 



invaliduseb 

TnFrtRf inERRl) 



% % > CLOSED 
FIBC53<0#, % INVALID USER NOT PARITY 
Pf O tFLQC>lQERRl<17fCQM«OEL»DEUPEi. )«» - 



02707400 
02707500 
02707600 



0000*0 

0000*0 
0000*0 



02707700 
02707800 

027C790 Q 



0000*0 
0000*0 
0000*0 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37™ 

38 

39 

40 

41 

42 

43 



labeq 

LA ST D ON j 



% ABOVE CALLS IOLRROR ROUTINE 
* FlBCSJtU7U] .#.* % L^BEL EQUATED FROM D*SK 

* F i B tuMaiMJ iff . » NOT O f La st op e ra tion qqni-. 



02708000 T 0000*0 
02708200 T 0000*0 
02708-00 T 0000*0, 



LASTIO 
LBLPTR 
l TNFPRIMT 



■ FIBC13 J, 146*1 ]#» X 

* FLOCClJ *# * 

» UMTvFEsl QR UMTYP 



LAST WAS PHYSICAL REaU 

LABEL POINTER 
Ea7 HR UMITVPE«1? » . 



02708350 t 

02708400 T 
Og 7 08^00 f 



0000*0 

0000*0 
QQ QQIQ 



LSUBL 
LSUBU 



% I s LP f 7 * PB 

* fib m *0 % 

» F I B UJ 9 , % 



T * 12 » PBO 
LOWER BOUND FQR 
UPPER BOUND FQR 



RANDOM 
DI SK KE C 



02?08600 T 
02708700 T 

,0g7C6.MQ T 



0000*0 
0000*0 

000010 



MAXR 

MAXREC 

NONSTO 



* FI8U8U8t38*lQ3#»X 
» FIB,ti83.t33«l53i> * 

* FIB 153 ,£l6t 13»* X 



MAX REC 52 FOR CQNCaTS 
MAX REC S2 

NONSTANDARD labels 



02708900 T 
02709000 T 
Qg709iOQ T 



0000*0 
0000*0 

oooo*o 



numbuf 

NljMaSPC 
NllMrtEC 



= FI8C13J, ClO* 9J#, X 
■ H [ 9 ] . [ 4 3 J 5 3 1 » X 

= ' F I B [ 1 1 3 » . £_ 



NUMBER OF BUFFERS ASSIGNED 
ROWS SPECIFIED XCJC 020 
KEC OR O S PER BLO CK 



027C9200 T 
027C930C T 
27Q9AQO T 



0000*0 
OOCO'O 
000 * 



NXTREEL 
QPENIO 



» P(MKS»2*1#FL0C'A» * 
FILECTRL}** X 
» FTBfl33.C22M]f» *_ 



this does reel switching 

!»■ QPFN INPUT»QUPuT CDISK) 



02709500 T 

02709600 T 
Q?7C9rOO T 



0000*0 
0000*0 
•on oo to 



OPTIONAL 

PARITY 

PRFSENT 



■ FIBC 5J,t39»n*» 
- TIP. C 28 J i J #^ 

s cc*ULQC3.r?.*nx'», 



* OPTIONAL FILE 
% PARITY BIT ON 

* CHECKS FHESEN 



NOT PRESENT 
DESC 
TSBIT 



0270VB00 T 
02Z0990C T 
027H 1 00H T 



0000*0 
0000*0 

Qooo »o 



45 
46 
47 
«8 
49 
50 
51 
52 
53 
54 
55 
56 



PROPER 

PUNCH 

PURSE 



*21+C00E*C0DE+RE VERSE 
* UMTYPE«6## X UNIT 
■ TIMEOUT. CFF1*Q<» 1 



*,% GENERATES 
IS CARD PUNCH 
TRUE IF LINE 



PROPER lUERR 

XTr 830 I 
TO BE pURfiED 



0000*0 

0000*0 

027 10 800 T 000*0 



02710100 T 
0271 Qt 50 T 

■4 



46 

46 

47 < 

48 

49 

50 4 

51 

52 

53 I 

54 

55 

56 t 

57 



Random 
rcqunt 
reader 



* TEChCOFLOl* X 
s FIBC 7 3 #* X 

-CUNITYPE MOD ll*0)Jf 



1 5 RaNDUM DISK 
RECORD COUNT 
% O'READER U'PSLIDOReA^er 



0?7l0300 T 
0£7lOmOQ j 

027 1 5 00 T 



0000*0 
0000*0 
0000*0 



READLBL 
RFCPERB1.K 



•PCDLOC INX 0»U*U 

#COM»0£L*OEL)#» 
» H EP 1 . L 3 * 12 3 # i 



% THIS REAOS THE LA8EL. 

X 

% RECnflDS PFR BLOCK 



02710600 T 
02H07Q0 T 
0271-QeQ O T 



0000*0 

0000*0 
QQOQ in 



REMQTEIO 



'P(BUFFSUE#DLQC^ X READ & WRITE 
FOREVER' (IF CODE THEN LINES ELSE 1 
KEVOfCrXf T.IPiCQPF^ftfCOMf — 



BATCH SYSTEM 
)> iFOK 
XRFMQTE OR 



02710900 T 
02710950 T 
02711Q0Q T 



0000*0 
0000*0 
0000* 



REMOTEREAD 



DEL f OEUOEL* 0EL# DEL* 

»P(BUFfSlte#TIP#0* % 

C-l3)iC H#O/RTN)#i % 



1»SU8*rTN}##XTYPE 19 FILES 
READ FOR TSS 



02HH00 T 
027U200 T 
0271 13 00 T 



0000*0 
0000*0 
0000*0 



• • 



REMQTEWRIT 
RESETRARITY 



RESETREA08IT 
REVERSE 
RQTATEBllF 



*P(TIP>NUMKDS x8# % WRITE FOR TSS 
LlNES#KEY»CFX#0»(-ll)»CQM#OEL»RTN)»» 

OLncEoitT.iP*o[aB»genii»iREaET parity bit disk 



0271U00 T 
02711500 T 
02711550 T 



0000*0 

0000*0 

oonoto 



OFF REAO BIT 



■ 0C24I.24»U#» 

■ FIBC53#X44UJ *» 
»P(NUMBUF,QtOC« 11» 11 X ROTATES BUFFERS WITH 



X USED TO TURN 
X 1»RE VERSE 
JL 



oatjuoo t ooooio 

02?11700 T OOOOIO 
02711800 T OQO0IQ 



ROWLGTH 
SANDBKfcY 



#COM*OLL*DEL#OEL)##* NO I/O. 
■. HU)*' % ROW LGTH 

■ FIRU3J. [19*23 *, , X SEEK AND 



FROM HEADE R 

BAPKfcY , 



0.2711900 T 
0.2712000 T 
O?7l2lQ0 T 



0000*0 
0000*0 
OQOQ'O 



SEEKDC 
SFEKEY 



«P(0&NUMWDSC14*44*4l X DATA COM SEEK ANO 

&CHNNL C9«44»4 3#DL0C*5,ll,C0M,XlT)*, 
■ FM Ct3 J .t20 * l3»» I S EE K HAS QQN£ 



XIT 



02712200 T 
02712300 T 
Q27l2flQQ T 



OOOOIO 
OOOOIO 
QOQOIO 



Serial 

SEGPERBl* 

sftpre'sentsbit 



= FI.BC43 • 127133 = t> X FILE ACCESS * SERIAL 
* H[0] f [42l6J #* X SEGMENTS PER BLOCK 
«P(T IP QR M F M *Dl QC'+ 3f'X SET PR E SENC E B IT 



02712500 T 
02 712600 T 
0?7 1 270Q T 



0000*0 
0000*0 
OQOQ'O 



$ SET OMIT • NOT (TIMESHARING) 
t SET OMIT ■ TIMESHARING 
SLEEP » 2 *> 



02712800 T 
02713000 T 
0?7l3lOO T 



OOOOIO 
0000*0 
OQ O Q IQ 



$ POP 



OMIT 
TAPEE 

T E CH 



- UJBI51xIiL6J_2J 



X i» ...tapes 
Is x TECHNIQUE: 



OsALL EL^E 



02713150 T 
02713200 T 

Q2 ? 13 2 5Q T 



0000*0 
0000*0 
0000 8 



TECHA 
TECHC 
TfRMCTgaMl ) 



• <FIBC5J,U6*23*1> #*X TECHNlQUE-A 
•<FIBC53.C46»23*3) #*X TECHNIQUES 
» Ptl>Ft r QC>TERMl»17iiCQM)» < XTERMlNATE I/n fRROR 



02713300 T 
02713400 T 
0?7l3500 T 



0000*0 
0000*0 
0000*0 



TIP 
TOTREC 

UN LAB E LE D 



* C*DLQC) *, 

* HC71 ** 
a CF l B C 43 .C2 t l 



X LOAD I/O OESC 
X TOTAL RECORDS ON Fl L E 
J-)-*-* * U NL A B E L ED F-XyE 



02 713600 T 
02713700 T 
02713800 T 



0000*0 
0000*0 
0000 ;0 



UT 
WAITOC 



* CFIBt43,C8»43)#> 
» P(DLOC»lOMASKf 
St£EPtCOM»»)#t 



X HARDWARE TYPE 

X THIS SLEEPS ON I/O CQMPLE 

X AND tEAVfcS A FALSE QN STK 



02713900 T 
02714000 | 
QaltAiOO T 



ooooio 

0000*0 

odftbto 



WAITIO 

hqrpSlfft 



= pcdloC'IomaSk* ...% this sleeps on i/o 
sleep* com* del#del3*fx waiting for a complete 

8 F I B r 1 7 J » f X WORDS LFFT In BUFFER 



027142-00 T 
02714300 T 
Q2M 4 qO Q T 



0000*0 
OOOOIO 

oooo»n 



_LAfi£L_ 



WRlTEAFTEflEOF « F IBC 133 , U4« 23#» X 

WRITBACK « FIBtl33,t23«l3#; X FLAG To S A Y WRITE BAC« 

LFRFTuRK>IQuT,.START.10DQNE,RAN00MLBL*SEEKRTM,SETUP; 



02714450 T 
02714500 T 
02714^00 t 



0000*0 

0000*0 
OQOOtQ 



Label improper'Dcprl»fixstatnkd>diodle'DIddi-ewrt*serialiQ>eofsetck; 

LABEL DATACQM,RANDUMIC>REREAQ; 

S U bB GL'TIN e Gfl U l £i * THT S CA LL S US E R OUTI NES 



02?14700 T 
02714800 t 
Q2.7l.09Q0 T 



0000*0 
OOOC 10 
QOQ.Q.IQ 



BEGIN COBOLINOEX «• T,C26*10]; 

P(MKS#T.t38*l03#[COBOLCONTROL3); XTHIS EXECUTES THE 
FNn fiousn : 1 conr segment 



02715000 t 
02715100 T 

Q ? 7l 520Q T 



0001*0 
0002*1 

■JK.aB.iMi'jMniJiii i'C£ 1 



SUBRCUTINE MAYtiEPARlTY; 
BEGIN 

setpresentsbit; 



02715300 T 
02715400 T 
0?715<|5Q T 



0003*3 
0004*0 
0004*0 



IF (T «-RT *PGUSECC0ISK AND OPENlO 3*3+93 . 1 1 * 233 )*Q 

THEN GOUSE } 
IF (T»FTfi ri 5 3 ,fl * 23 n ?Q T HEN. GO USE ; 



02715500 T 
02H5600 T 
Q 2fj57QQ T 



0605*2 
0010*1 
QQ12»0 



i SET OMIT 



NOT SHAREDISC 

IF RTQG ThE'N 
IF (T OR RT) s THEN mFRR(19)» 



02715/09 T 
02715800 T 
027159Q0 T 



001610 
0016*0 

Q016H 



END MAYBEPARjTYl 
SUBROUTINE NOVREC; 
BEGIN IF COOF 



t 4 



XTHIS HOVES RECORDS TQtFROM WORK AHEA 

THEN ■'■• : ; : 



0?*16000 T 
02?l6i00 T 
0a7ift 



0020*2 

0020*3 

2716200 T — 0021*0 



PCBUFTCP !NX(aS*(NUMWDS x (RCOlNT MOD NVMREC > 3+1 > > 
ELSE 

PCXCh?; SPICK UP VALUE LEFT FROM SERlALIQ 



P< BUT TCP INX (8UFFSI2E + 23); XFlND ENO OF BUFFER 

OEST I* IT CQOE THEN P <XCH) ELSE PJ 

STREAM (rWQMt»PtNtifri»0S,Ei>NUMWD5.t36 t 63» XXI«0E»1>* 



027J6300 T 
02716400 T 
02716 500 T 



0Q21 * 3 
0025*2 
0Q25«3 






02716600 T 
02716700 T 

OIZ IMQQ T 



0026*2 
0028*3 



n 

2 

3 

4 
5 



BE01N 

si«-from; £(cs*32wos;ds»*32wds); ds«-numwds wus; 

EM'jI — , , , 



Q271690C T 
Oy/ 17000 T 

03717100 T 



00325 3 
0032*3 

On Sal 3 



IK CODE THEN DEST »» P 
ELSE BEGIN 

LEiMMJ- ■•■• ; — __ 



02717200 T 
02^17300 T 
Q37tTfl0fl T 



0035»0 
003513 
00 36 t 3 



IF C0DE*O AND PARITY THEN 
BEGIN 
$ SET UMIT » NHT ShARETHSK 



02717500 T 

02717510 T 
0271751V T 



00.3710 
0039*0 
{)Q39*2 



9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 
i 

38 

39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



end; 
ENni 



maybeparity; 



02717530 T 
027i75«0 T 
Qg7l7600 T 



0039*2 
004110 

npatto 



QLCC.C01 * TIP* .JES.TC3ai3.3U53 
END KGVREC; 
SUBBCrTlMF DIDDLEREC; < JJil j R OUTINE GE TS THE NE^XT RECORD 



Q?7j,77Q0 T 
02 7178.00 T 
02 717900 T 



004110 
0041*3 
0Q**2I3 



10 

11 

12 
13 

14 { 

15 

16 

-7< 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 I 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 I 

42 

43 

44 i 

45 

46 

47 < 

48 

49 

sol 

51 

52 

53 ( 

54 

55 

56* 

57, 



BEGIN * FOR ALL SERIAL FIL£S (READ t"*SlTE> 

wQRDSLEFT ♦ T t 
DLQCC03 » NUMWOS INX TTP1 : 



02718000 T 
°27l8l00 T 
02716200 T 



0043*0 
0Q43I0 
044*1 



HCOLNT «■ *P<DUP) + i; 

IF BREAK ThEN BREAKOUT* 

if PARITY ThEN MAYBEPARITY? 



02718300 T 0045*3 
02718400 T 0047*3 
(■271B500 T 0053*0 



ENU diddle; 

$ SET OMIT * NOT ShAREOlSK 
S UB RO UTIN E PREL J 



% THIS DOES ACTttAl I/O 



02718600 T 
02718604 T 



0056*0 
0056*1 
0056*1 



BEGIN 



if NOT CRT L5i> 0) THEN 
B E G IN 



0057*0 

005 7»0 

?7l900 T 057*3 



0?7l8600 T 
02718900 T 
-0 



P( TlP»OLOC)i 

IF rtRITBACK THEN 

HR1TBACK *■ FALSE* % TURN OFF REAP fl 



HEGtN 



% DO SPECIAL WRITE-IO 
F READ BIT 



02719100 T 0058 
02719200 T 0059 
2719 300 T 0060 



DL0l[0J«- TlP&RESETREADBlTiX TO MAKE WRITE 

end; 

PCPRLfDEDi % DC) I-H 



02719400 T 0063 
02719500 T 0065 
Op7l9eO T 006-5. 



end; 

bcount «• *p(uup) + crt0g*1)i 

if cope a 2 then go to s6e.krtnj 



XCOUNT 8L0CK&SET iotog 



0g7l9700 T 0065 
02719900 T 0065 
2719950 T 0068 



RCQUNT *.,.*PCUUP)..+ 
IF NOT DONE THEN 
t SET UMI f a NOT SHARED I SK 



i; 



% COUNT HECS 



027 20000 T 006 9 
02720100 T 0071 
02720109 T 0&7-2. 



waitio; 

if break then breakout* 

FNO PREl. * __ 



% ON NEW DFSL 



02720J50 T 0072 
02720200 T 0074 
027 20 300 T OiOaO- 



SUBROUTINE REFlECTGHECKER / % WRITE PARITY KQUTlNE 

BEGIN 
IF NE1T EOF THEN at T A P E, WRITE PARTTY OR BLANK TApE 



0272040© T 0080 
02720500 T 0081 
02720550 T 0081 



BEGIN 

IF OPENIO AND DISK THEN IFC T«-PGUSEt 123 , C 1 * «S33 )*0 
THEN G C1USF ELSE ELSE - 



02720570 T 0082 
02720600 T 0082 
02720605 T 008ft 



IF CT«-PGUSEC93.t24l24J}/0 THEN qQU^e; 
IF CTTIBE153.C1 *233) t THEN GQUSEJ 
TERMC20); 



02720610 T 0089 
02720620 T 0094 
P272Qft5Q T — 0048. 



end; 
setpresentsbitj x make desc present 

IF N OT D IS K THE N NXT REEli* R EEL, SWI TCH 



02720670 T 
02720700 T 
02 72080 T 



0099*1 
009911 
QlQ C» 3 



52 
53 
54 

55 

56 



end relectchecker; 
subroutine skipper' * this d.qcs. skipping on line printer 

, HFfilM NUMHtiF 



* 1/ 



I TMHIfltT BljFFFR ROTATION 



0?720900 T 0103*2 
02721000 T 0103*3 
027 2 UQ0 T — 010 4 *0 



IF CHNNL * THEN LINES l» 11 
OLOCC03 ■•*■ TIP & 1 C18«47I13 
; - ■ «.- ftM6»r.HNNL) r27>42l63i 



02721200 T 
02721300 T 
Q272UQ0 T 



010612 
0108*2 
0109*1 



• • 



FOR 



>T 



T«-2 STEP 
BEGIN 
PRFLi . 



2 UNTIL LINES DO 



IF NOT PRESENT THEN IF EOF THEN SETPRESENTSBIT 

else reflectchecker; 

1MJ , , 



0_7_1500 
027 21 7 00 



0?*P1800 
02721810 

Q?7? 19QQ 



0112*0 
0113*0 
0U 3 »0 



011410 
0118«3 
Ql20»n 



IF LINES THEN 

BEulN 
PLUt:CQ3» TIP . (_-(_*(. HNNL*Q)nf?7i46i?]j 



02722000 T 
02722100 T 
0272 2.0 T 



122*1 
0122*2 
0123*0 



prel; 

IF NOT PRESENT THEN IF EOF THEN SeTPReSENTSBIT 
Fl.SF RFFtEGTOHFCKER? _____ 



02722300 T 0i26*2 
02722400 T 0128*0 
0g72241fl T — 013213 



to 
11 

12 
13 
14 
IS 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
2G 
26 
27 



end; . ... 

humb.lf ♦. bu.ffn.lm; % restore buffer fok rotation 
an — skipper; 



±un. 



02722500 T 0l34»0 
02722600 T ...0.1:341.0 
0272 2 700 T - 0^ 3 71 1 



subroutine revread; % this does a read reverse 

begin 0l0cc03 «• flag (fib c163); 

PHELi 



02722800 T 
02722900 T 



013712 

0138*0 



027g 3 Q00 T — 013011 



FIBE16_.C33U5]«. TIP; 

»ORD.S.LEFT. * MEM . 11 I NX TIP U 



E NQi 



02?23i00 T 
02723200 j 



140*0 
0142*1 
02723300 T 0l 4 5* -0- 



SUBROUTINE REaQREV; 



% THIS HANDLES A READ REVERSE 



BEGIN IF NOT TECHA THEN 
BEGIN 



02723400 T 0145*1 
02723500 T 0146*0 
0?723600 T 0147*2 



revread; 

dlqc co j «■ notcwordslef t-2) in* tip; 

ENL 



0?723700 T 
02723800 T 



0l48*0 
0149*0 



0272 390 T 0-5H 3- 



fcLSE 



IF (WORDSLEFT l* T) LEQ THEN 
BEGIN 



0l5l»2 

0l5i»2 

Qg7g 4 g0 T — 01&3* 3 



02724000 T 
02724100 t 



Q 



90 

31 " 



revread; 

DLQ..C.C03 * (NOTCMAXReC - 2 ) inx tiP)&m*xr; 
-EJ-Q ■■ 



02724300 t 
02724400 T 
02724500 T 



0154*1 
0155*0 
0159*1 



32 
33 
34 

35 

36 
37 ~ 
36 



ELSE BEGIN 

DL0CC03* N0T(NUMWDS-1)INX (TIP 
&(NIQT TIP) tyiaailllJ 



02724600 T 
02724700 T 

Q27248 QQ T 



0159*1 
015913 
0l6l« l 



rcqlnt «• *p(du.P) + i; 
end ; 

IF NOT PhES F I NT T h E N 



02724900 T. 
02725000 T 
02725100 T 



0163*2 
0165*2 
1 65* 2 



BEGIN 

setpresemsbit; 

TF ETiF THEN 



02725200 T 016613 
02725300 T 0l67*l 
02725400 T 0168*3 



40 
41 
42 
43 



BEGIN 

ENLFltE ♦ TRUE; 

hashtot; 



02725500 T 
02725600 T 
0?7?570Q T 



0169 * 3 
017011 

0172*3 



P o#rtn>; 
end; 

IF (T »PGUSe[93&FIBC1S3 .25*1*233 )*0 THEN GQUSe; 



02725800 T 
02725900 T 
02726Q00 T 



0l78»2 
017910 
0l79*0 



46 
47 



if rtog then ioerr (29); 

end; 
end reaqrev; 



02726100 T 
02726200 T 
02,7 26300 T 



0183»0 
0185*3 
018513 



49 
SO 



subroutine error; 

BEGIN 



IF EOF THEN 
BEGIN 



02726400 T 
02726500 T 
2 7 26600 T 



0i86«0 
0186*0 
0187*0 



52 
53 
54 



BCOUNT 
RCOUNT 
ENDF ILE 



* *P(DUP) 

* *P(OUP) 

«• true; 



i; 
i; 



02726700 T 
02726800 T 
02726900 T 



0187*2 
018912 
0191*2 



55 

56 



setpresentsbit; 

if reader then pu*rtn); 

IF NOT UNLABELED THEN 



02727000 T 
02727100 T 
027 2 7~ 20Q T 



0194*0 
019512 
019713 



# • 



>r 



BEGIN 

ENDREEU J= FALSE; 

IF NQT D ISK T HEN 



02727300 T 
02727400 T 
02727500 T 



0i99»0 
Ql99«2 
0200? 1 



1 

2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 



BEGIN 

REA01BU 

STREAM tSENT»QjBC»0»HC»OlL»LBLFTR)i 



02727600 T 
02727700 T 
03I27flOQ f 



020JI0 
0201*2 
Q2QM2 



BEGIN X THIS 

DI * toe sent;* OF R 
,oi *7i it Bine 



oi » m 



RETRIVE.S END 
EEL SENT IN At* 
K I REG CQUNT 



02727900 T 0206*0 
02728000 T 020610 
02728100 T 0206*1 



si * l ; si *si+39; 

os ♦ chr;os*5 oct;os*7 OCTl 

end; 



02728200 t 
02728300 T 
02728400 t 



020612 
0207*0 
020713 



CHECK(RC.QUNT). 
ChECK(BCOUNT) 
E NDR FF.L » P J 



0NERRC16); 
QNER8C17); 
% THIS STORES SFNTlNAL 



02728500 T 
02728600 T 
02728700 T 



020810 
0212*2 
021710 



hashtot; 

IF (T*PGUSEC33,t 1 123 3 >X 
IF (T»PfiUSEC33,t?qlg43)J 



o then gouse; 

Q THEN QQUSEI 



02728800 T 0217*2 
02728900 T 022311 
Q2729000 T D-226JL2 



ELSE 



END 

STREAM 



(RECTQT* TOTREC + 1' 
LABL *■ LBLPTR)» 



02729100 t 
02729200 T 
na72V300 T 



0230' 1 
0231 »0 

a 3 g » 3 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



BEGIN 

SI * LOC RECTOT J 

01 » 01 + as; 



0272*400 T 
02729500 T 



0234*0 
0234*0 



Og729600 T — 0234 * 1 



4 



ds «• 7 dec; 
end; 

F NOT ENpftEEL THEN 



02729700 T 0234* 2 
02729800 T 0234*3 
0272990 T 02 3 5 * 



if pgusecbs*(0isk ano opef 
then begin 

if (TfrpfiusrrBsjtf nzap^Q then gouse; 



;nI0)x9+23X 

(0 TMFM Q . I 



02730000 T 
02730J00 T 
02730200 T 



023512 
0239*3 
Q2fl0*3 



IF CT«.PGUSEtBS],C24*24])' 

eno; 
tf wot disk then % end of heel 



THEN GOOSE* 
U SE R OUT I NES 



02730300 T 
02730400 T 
Q27T050Q T 



0244*0 
02«7*1 
Q2 4 fl* 



BEGIN 

IF CT*FIB C3J.C H23J)*0 

IF (T»FIB C33.C24I24J^0 



THEN GOUSE; 
THFN GnUS£8 



02730600 T 
02730700 T 
0?730ft00 T 



0248*3 
0249*1 
0253*0 



END ; 
IF NOT ENDREEL THEN 
BEGIN 



02730900 T 
02731000 T 

27 3U0Q T 



0257*0 
0257*0 
02 57*? 



IF (T* FI8 C23,t 1*233)*Q 
IF <T* FIB C23.t24»24))*0 
Pf 1*RTNH 



Then g^use; 
then quuse; 



02731200 T 
02731300 T 

o gyji tf o o f 



0258*0 
0262*0 
0266*0 



end; 
end; 
i f n qn stu the n 



02731500 T 
02731600 T 
02711700 T 



0266»2 
0266*2 
0266*2 



•5 
46 
«7 
«8 
49 
SO 
51 
52 
53 
54 



BEGIN 

enofile »* false; 
cl qs eanq opfn; 



02731800 T 0267*2 
02731900 T 0268*0 
02731990 T 0270*2 



45 

46 

47 I 

48 

49 

50 ( 

51 

52 

53 < 

54 

55 

56< 

57 



P(l'RTN); 

end; 
nxtre e l> 



02732000 T 
02732100 T 
0?732?0Q T 



0273*0 
0273*2 

9273*2 



pcoel#ded; 
go to start; 
end; 



idelete branch returns 



02732300 T 
02732400 T 
027 325 Q0 T 



027510 
0275*2 

027610 



maybeparjty; 
end error; 
subroutine dlskaddrtss; xthls computes the disk address read & krlt 



02732600 T 
02732700 T 
Q ?732 7Q5 T 



0276*0 
0277*0 
02^7*1 



56 



BEGIN 



IF CODE THEN RT ♦ SEGPEflBLK * 8C0UNTJ 

IF P(RT DIV RQWLGTft>QUF) GEO NUHBSPC THEN 



02732710 T 
02732715 T 
09732716 T 



0278*0 
027010 



• • 



h 



$ SET OMIT ■ 



BEGIN 

NOT SHAREOISK 
, P(1«HTN); 



end; 
if <t«- 

If (BS 



0273271? 
02 7 32718 
2 7 32 7 21 



P ♦ 10) LSS 10 THEN T*tO; 
» HfTI) m Q THEN 



02732722 T 

02732723 y 



0283*2 
02Bi4>0 
284*0 



028412 
028412 



027 3 27 2 5 T 02 8 7*1 



BEGIN 

GETSEGJ 

.IF H Q WQPENXn TH E N I F N U T QP E N IO TH E N l QFR H (2 2 )j 



02732730 
02732740 
02732750 T 



T 0288 ; 3 

T 028911 

0296*0 



as «. WtTj; 
end; 
strfawc a » bs «. bs ♦ rt mod rqmt gtm. 



02732760 
02732765 
0273277Q t 030a* 3 



T 030l«3 
T 0302*3 
030gl 



10 

n 



i SFT UMTT 5 NOT 



B«-T«-8UFTQP« ICFl-C IF CUOE THEN 
BEGIN SI + LQC M DS*8. DEC; END; 
SHAR ED IS K 



ELSE writbackj); 



027 32775 T 
27 32780 T 
027,12784 T 



030510 
O3O9I 2 
Q .1 1 ? 1 



13 
14 



end diskaodressj 
subroutine writ! 
b e gin if techc then 



THIS WRITES A RECORD 



02732795 
02732Q00 
02732900 T — 031110 



T Q310H 
T 031012 



16 
17 
18 



BEGIN 
STREAM (A «• 

BEtilN 



TIP* B «• [XI 1 ) 



02733000 T 
02733100 t 

027^3200 T* 



0312*2 
0313*0 

0310 14- 



19 

20 



SI ♦ A; 

ENQi 



DI 
DI 



Ot 
01 



+ 4| 
♦ 4 J 



OS 
OS 



* 4 



chr; 
chr; 



02733300 T 031411 
02733400 f 0315*0 
02733500 T 0315*2 



22 
23 



24 
2S 



26 

27 



TECmCOFuU ♦.i4TIPti.8»33U5J«NUMW0SC3»33li5]' 
NUMftQS + -WQROSLEF.T +CWURDSLEFI «• BUFFSlZ£}; 
n LQ CC QJ » F LA flCF j B Cl ft 1 ft NgMwO SC 8 * 38 < 1 3 ) 1% TB8 4Q- 



ElSE 



END 

BEGIN 

COUNT 



02733600 
02733700 
2733 7 5 



NUMHECJ 



02733800 
02733900 



0315*3 
0318*1 
032 H 3- 



0324*0 
032410 



■Of? 34000 T 0324*2 



28 
29 

30 



.NUMrtDS.*- tWQRDSLEFT ....«■ BUFFSIZE) - T i 
IF PUNCH THEN F.I.B C .16 3 . C 32* 1 3 «■ CHNNl.; 
IF niSK THEN 



*TR 830 1 



02/34100 
Q2734i50 
0?7342 QQ 



0326*0 
0329*0 
0332*3 



31 
32 



33 
34 

35 



BEGIN 

LASTlO ♦ Oi 
XTHIS COMPUTES 



THE AMT OF DISK USED IN ROWS 



02734300 T 
02734350 T 
027 3440 Q T 



0333*2 
033410 
336* 2 



IF CRCuUNT+n DIV RECPERBtKxSEGPERBU DlV 

RQWU6TH GEO NUMBSPC THEN 
TF CRCOUNT + OPEMO) DjV 



02734500 T 
02734600 T 
Q?734700 T 



0336*2 
0340*0 
34? »0 



39 

40 
41 
42 
•3 
44 
46 
46 
47 
48 



RECPER8LK x SEGPERBlK DIV ROWLGTH 
GEO NUMflSPc THEN 
BEGIN 



02734800 y 
02734810 T 

Q MM&2J T 



034411 
0347*0 
348 *3 



COUNT * 0; 



IF UPENIO THEN RCOUNT * *P(DuP) + (SERIAL)* 
PCI'RTn) 



02734830 T 
0?734Q35 T 
027 34840 T 



0349* 1 
03531 1 

0355*1 



END EUSE 

IF SERIAL THEN COUNT+0 EUSE BAOKEYfrTRUE; 

DLOCCQ] ♦ FLAGCBUFTQP & RESETREADBIT U 



027349Q0 T 
02735000 T 
02735100 T 



035513 
0355*3 
36 2*2 



49 

50 



51 
52 



53 
54 



55 
56 



pccooe); 

CODE ♦• i; 
DI3KAPQRES 



CODE * PJ 
$ SET OMIT * NOT SHAREDISK 

: • , FND 



5J_ 



02735200 T 
02735300 T 

027 35400 T 



ELSE IF LINEPRINT THEN 

BEGIN 
IF NQT SKIPAFT THE 



02735450 T 
02735599 T 
Q27 1 61Q T 



036413 
0365*0 
036513 



Q367»0 
036712 
Q 367 1 2 



it 



02736200 T 
02736300 T. 
027364QQ T 






SK"l'P~tt'£Ri' 

l i nes & im m£± Q i 



02736500 T 
02736600 T 



0367*2 
370*3 
Q3MM 



037$ » 3 
0372$ 1 
0373 tn 



GO TU StTUP; 

end; 

i IF CCHNNL ?Q) OR (LINES S 2) THEN 


02736fl0'0 T 
02 > 36900 T 
02 7 ^7000 T 


0374S 1 

0374*3 

0374 * 3 J 


SETUP* DUOCC03* FUAG(FI8tH3&LINES C27I47*U 

2 &HN£S C28»46»U 

3 tcuMML r>oi44iiin 


02737100 T 
02737200 T 
n;>717>fm t 


37612 f 
0377*3 2 


4 ELSE BEGIN 

5 DLOCCO] *- FLAG(Flt3[16j&e20 (27*42*6:1); 

6 PRELs 


02737400 T 
02^37500 T 
02737600 T 


.0.3 7 9 1 3 4 
0381*3 5 
0383 ! t 6 


7 IF NOT PRESENT THEN REFLECTCHECKtH* 

8 LINES ♦ LINES - 2/ 

9 ■"■■■■.'■ ' SKIPPER* 


02737650 T 
Og737700 T 
0?737flOO T 


0385*0 ; 7 
0388*0 8 

389*1 9 


10 goto lpreturn; 

" End; 

' 2 fn" linf.prtntfh 


02737900 T 
02738000 T 
02738100 T 


390'0 1 ° 

0390*2 

Q3aQ*2 12 


,3 else oloct03 ♦ flagcf 18(163 «numwds (8* 38 » 103 ); 

14 end; 

'• if tapfe then if not rtnary thfn arrowi 


02738200 T 
02738300 T 
Q2?*8400 f 


Q390«2 13 
039311 14 


16 if disk and b.s < 100 then termc69); 
» phf.l; 

18 LPRETLRNJ FlBtl6].t33.li"b3 «- Trp; 


02^38500 t 
027 38600 T 
0?M8700 J 


0398*1 18 

0401 1 3 17 
040ian 18 


19 0L0CC03 * (DISK) INX TIP & MAXR; 

20 IF TECHCOFLO THEN 

21 BEGIN 


02738800 T 
02738900 T 
°2* 390fl0 T 


0405»1 19 
0408*2 2C 
040913 21 


22 ;STRLAM (I «v CX1J*A*NUmWDS«-TeCHCQFlO.C3«153' 

23 B ♦ TECHCOFLO. C18U53* K «-NUMWDS » [ 3 6 » 63 > 

" X » HP QR MfM 11 


02739100 T 
02739200 T 
02^39300 T 


0409*1 22 
0411*0 23 
0411*3 24 


25 8EGIN 

28 si ♦ a; 

» Krns * 35 wosjns* 32 wns>; 


027 3*400 T 

0273*500 T 
091*9*00 T 


041313 26 

0413*3 26 
04i a in 27 


28 ds * a wqs; 

29 si «■ !; oi «■ x; si *^ai*ui 

30 D.s«-4 chri sii,s\*Li ns fc a Chrj 


02739700 t 
0273980Q T 
O273Q9OO T 


0415*1 M 
0415*3 29 


31 end; 

» TECHCOFLO * Oi 

B , ' DLOCfQ] ♦ MUMhnS TNX TTPI 


02740000 T 
02740100 T 
02^402 T 


0417*1 31 
041.7*2 32 
0418*1 33 


34 wordsleft ....♦ wqrdsleft - numwds; 

35 end; 

56 IF NOT PRESENT THEN tCjC 0?1 


02 740300 T 
02740400 T 
0P740«S00 j 


0419*3 M 
0421*3 35 
0421: 3 36 


57 BEGIN 

38 $ SET OMIT « NOT SHAREDISK 

39 REFLECTCHECKERJ 


02740510 T 
02740519 t 
0$>740«S30 T 


0423*0 37 
0423*2 38 
049 if p 39 


40 END ELSE 

41 resetparity; 

42 f;ivio writ; 


02740540 T 
02^40550 T 
0?740<s00 j 


0425*0 w 

0425*0 41 
04?7*2 42 


43 r subroutine writeadjust; * this adjusts block+rec ptrs 

"■f:- :,; -'-(r • BEGIN 

45 t i* o; 


02740700 T 
02740800 T 
09740000 f 


0427*3 43 
0428*0 ** 
042q*n 46 


48 P(NUMWDS); XSAVE OFF NUMWOS 
47 b.CQUNT **..*P.CPUP) - i; XBACK UP BECAUSE WE 
w RCOUNT J= *P<UUP1 - j; XWFRF RfApTNG 


02741000 T 
02741100 j 
02741200 T 


0428*3 * 
0429*0 47 
Q43l?0 "* 


49 WR I T J 

50 BCOUNT »* *P(0UP) + i; XUP GRADE SO IT CAN STILL 

51 RCQUfcT Is *P£DUP) + 11 tTHlNK THAT WFRF READINR 


02741300 T 
02741400 r 
09.7*1*00. T 


0433*0 49 
0434*0 v 50 
04 3Atn 51 


a NUMWDS** p; 

w WORDSLEFT ** *P(DUP)-NUMWDS;XOONT LOSE LAST REc 
54 E N P Of wRnLfnjusTi 


02741600 j 
02741700 T 
02741800 T 


0438*0 S2 
0438*2 53 
0440*2 M 


55 SUBROUTINE REED* X THIS READS A RECORD 

56 BEGIN IS DISK THEN 


02741900 ? 
02742000 f 
02748100 T 


0440*3 5S 
044110 " 
0441*3 y 



• • 



IF hCOUNT > TOTREC OR BAUKEY THEN 

bEGIN 
ULOCCOU TIP &1 C27I g7l 1 3* 



WRITEAFTEREOF 

IF OPENIO AND 

RCniINT * 



* 3; 

SERIAL THEN 
*P(QUP) + i; 



02742200 T 
02742300 T 
02 7 HZ 400 T 



0444*3 
0447* 1 
0447*3 



02742420 T 
02742450 T 
27 4 2 4ft T 



O449J3 
0452*1 

0455IQ 



error; 

LNQ; 
liLU C L OJ* F LAGCFIBCISJ)* 



02742500 T 
02742600 T 
0274 27 QQ T 



0457*2 
0459*0 
045 9*0 



rt «-(Bcount*(T«-(Numbuf-i)))xsegPEkblk; 

xrt a segments reao #t«buffers 
if (t » ctxr £cperblk> +r cqunt) gtr tqtre c 



UR 



02742800 T 
02742900 T 
027 4 300 T 



04601 1 
0464*3 
QA6AI3 



10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

10 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 T 

44 

45 

46 

47 

•8 

49 

SO 

51 

52 

53 

54 

56 

56 



CT >LSUBU AND BOUNDED) 

BEGIN 
IF wRITBACK THEN 



THEN 



02743100 T 
0274320.0 T 

03741300 T 



46 8*1 

04 70*3 
4 7H1 



BEGIN 

writeadjust; 
fin Tn tout; 



02743400 T 
02743500 T 
Q27436Q0 T 



0472*1 
047213 
Q 474 10 



. ENCi 
QLQC CO J «• II PU[ 27 * 47 t U &0 [ 2 '<» 7 ? 1 ] ; 
rotatfbuf; xthis flags frhqk DfSC 



02 74 37OO T 
02743800 T 
0^743900 T 



0474*2 
0474*2 
0477* ? 



Fl SF 



HT * *i; % THIS INHIBITS PRL 
END 

OF Pi IN I __'_ 



02744000 T 
02744100 T 
0gTfl4?00 t 



0480* 1 
048111 
0461*1 



PC COD 
DISKA 

code 



£)* 

DURE 
* P? 



CDUt <• 
ss; 



0; 



02744300 T 
0274^400 T 
Q27a45QQ T 



0481*3 
0482»3 
0484*0 



$ SET OMIT ■ NOT 



shareoisk 

END 
ELSF BF&IN 



END 



02744599 T 
02744800 t 
02744000 T 



0484* 2 
0484*2 
0uS4 ' 2 



IF NUMWO 
DlOC [03 

END? 



S<1 AND RCQUNT >0 THEN 
«- FLAG C F I B C 1 6 ] 5 ; 



TERMC26); 



02745000 j 
02745100 T 
027452QQ T 



0485*0 
0480*3 
0490 *0 



IDPQNf: 



if c0de»2 the 
prel; 

WOROSLEFT «• I 



N NUMBUF *2i 

F DISK THEN X DISK HAS NO SHORT Bl OCKS 



02745300 T 
02745400 f 
Q 27 4 5 500 T 



0490*0 
0493*3 



IF C8S«-T0TREC"HC0UnT + 2)2RECPERBLK 
BuFFSUE ELSE (BSxMAXRECJ ELSE 
MFM [(NOT ) INX TIPJ; 



THtN 



02745600 T 
027457QO T 
Q27<i5aOU T 



0496*1 
0500*1 
Q5Q4' 



1- 



* sft qmiT g nmT 



IF NOT PRESENT THEN 
BEGIN,- 
SHARF niSK 



02745900 T 
02745905 T 
0?745Q09 T 



0506*3 
0508*0 
050a*3 



error; 

END ELSE 

begin rf.sftparity; 



02745975 T 
0274598Q T 

Q27459P5 T 



0508*2 
0510*0 

Q510<0 



$ SET OMIT * NOT ShAREuISK 

end; 

IF RANDOM THEN GD TO RANDQMLBL; 



02745989 T 
02745995 T 
?746Q0Q T 



0512*2 
0512*2 
0512*2 



1 S ET UMTT a N OT 



FlBCl6j,C33:i 
DLOQCO]*- CD IS 
ShARFOlSK 



5j «■ tip; 

K) INX TIP & MAXR; 



02746100 T 
02746200 T 
2746249 T 



0513*2 
0515*3 
05 19*0 



iouti end reed > 

Subroutine seek; % 

a£JLLN 



THIS CHECKS FQR PRESE«TS OF BLOCKS IF NOT IT HEADS 



02746300 T 
027A6400 T 

O 2746 5 00 T 



0519*0 
051911 
0520*0 



IF CCKEV ♦ KE 
THEN BADKEY *■ 
ELSE BEGIN 



Y-1)<LSUBL ) UR CKEY >LSUBU AND BOUNDED) 
TRUE 



02746600 T 
02746700 T 
0274680Q T 



0520*0 
0523*1 
0526*1 



BCOUNT * <RCOUNT«"KEY) DJV NuMRECJ 
IF BCOUNT * COUNT THEN 
— BE6JN , 



02746900 T 
02747100 T 
Q22M2Mz T 



0528*0 
0541*0 
053 2 11 



# • 



Reread: 



IF MJM6UF*2 THEN 
BfcGIN 



% SET QWTT » NOT ShAR ECIS K 



rotatebuf; 

if not done then 



02M725C 
02M7300 
Q2M7qQ0 



0532*3 
0532*3 

o a 3 ft 1 1 



waitio; 

NOMBUF *1* . 

qlqceq] t olqc [ i 3 ; 



02747500 
0g747600 
02747609 



IF 



end; 

CQDE«2 
R C QW N T 



*C J C QjR 



02747650 
02747700 
08747800 



0534*3 
053712 
0A3JLU 



then otoctm tip; 

i TOTREC them REFD 



ELSE IF BCOUNT MTQTREC DIV NUMREC) T*EN 

BEGIN XABQVE CHECKS FOR LAST BLOCK 
R CQUNT t TQTRE C ; 



02747900 
02748000 
Qfr7flai00 



0538 5 3 
0540 » 3 
0543*1 



0544*3 
054413 
0547*3 



02748200 T 0550*4 
027483.0.0...T 0553*2 
Q?7484Q0 T Q554<0 



13 



15 
16 
17 
IS 
19 
20 



22 
23 
24 
25 
26 
27 



28 
29 



30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 



40 
41 
42 



43 
44 
45 
46 
47 
18 
49 
50 
51 
52 
53 
54 



55 
56 



sffkrtn * 



reed; 
end; 
rcqunt «■ KfY: 



IF RTQG THEN 

COUNT *. BCOUNT 



$ SET OMIT s §H4RF0IS^ 



«- +PCDUP) " \i 



POP OMIT 
SET QMIT 



end; 



g NOT SHAR ED I S K 



badkey «- false; 
End; 
sfekey » ccnpp«2?; 



if code * 2 then pcxjt); 
end seep; 

%*%%%*%%%XX%XSrAfn H£.R£%%%lXtXX%*l%*%%t1t L lX%%tX%<L%l%%XX 



START ; 



FIB *■ * CFLOC . <- CNOT 2) 
JUMASK I? P2fl0OOQ0OQ0i . 



INX DLOC); XSET UP IDS 



IF (UNITYPE*UT)«4 THEN X 
BEGIN 

h t * matum jl 



disk 

I flAD HFADFR 



if rcount > lsubu and bounded then 
if code Then 

IK (RCQuNT-CnPFNin AND (SFRTAU)) > LSUB U THE N 



P«1*RTN) ELSE ELSE BADKEY * TRUE; 
$ SET OMIT * NOT SHAREDISK 
IF CODE. £1*13 THEN __ 



S SET OMIT = NOT 



begin cqde*a8s(cu0e); 
sharedisk 
end; 



end; 
ip notcenoprocess' 
'if code*! then 



BEGIN 

IF C0DE=2 THEN 
BEG IN 



OR COOE) THEN GO TO EQFSETcK* 
X OTHER THAN REAP QR >[RIT 



SEEK 



t SET OMIT ■ TIMESHARING 



IF HQW0PEN>1 
IF DISK THEN 



THEN GO 

seek; 



TO IMPROPER; 



$ POP UMIT 



IF UN I TYPE 
TERMC2B); 



end; 

If; cOOt** THEN 
IF D 



' 10 THEN SEEKDC; 
^IMPROPER S £EK 



X WRITE BLOCK 



»CUBE X IX I 



O27485OO 
02748600 
Qa74fl700 



02748750 
027 488Q0 
027^8899 



0555*2 
055710 
0557*0 



02748900 
0274890$ 
0g7 4 8909 



.05.58*1 
0558*2 
0562*0 



02749000 
02749100 

r)a7rfi92Q0 



0562*0 
0562*0 
56g«0 



02749300 
027<J94Q0 
Q27495QQ 



0562*0 
0564*2 
0560*2 



0567»2 

0569*0 
Q56911, 



02749600 
02749700 
027/|9e00 



02749900 
02750000 
02750100 



0569*1 
0572*3 
0575*1 



02750200 

02750300 
02750305 



0576*0 
0578*0 
0578*2 



02750310 
02750314 
Q27503 2.5 



0579*3 
0582*1 
058^10 



0587*3 
0594*0 
0590*0 



02750330 
02750334 
02750400 



02750450 
02750500 
02750 6 00 



02750700 
02750800 
02750900 



0594*3 
0596*1 
5 9 6 *1 



0596*1 
0596*1 
59 8 *3 



0599*2 
0600*0 
06Q0*? 



02151000 
02751100 
0275 1200 



0601H 
0603*1 
06 610 



02751300 

02751350 
Q27514Q0 



0606*0 
0610*3 
0610*3 



02751500 
0215*600 
Q 2 I 51 6 1Q 



0612*0 
061210 
61 ? H 



51 

52 

53 I 

54 

55 

56< 

57 



$ SET OMIT ■ NOT SHAREOISK 



IF UPEMG A NO 
FlBC<HiE?7»31 



» I THEN 



XCOBE 
SltCUBE 



XIX 



GO TO RANDQMIQ 
ELSE TrfiM(35) 
ELSE % THEN IT TS 



TAPE 



XCU8E XIX 
*CUB£ XIX 
»CUBE XIX 



02751614 
02751620 
027 51 630 



02X51640 

0275*650 
02751660 



0614*0 
0614*0 

615 *2 



0617*1 
0617*1 
061911 



4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 



IF FIBI53.X41 J4] / THEN 
% .TeBM<34) WHEN WRITE BLOCK UN INPUT OR ON 
4 REvrRSED OH ON UNOPENED FTLEt 



XCUBE XIX I 
XCU8E XIX I 
XCUBE XIX I 



02751670 T 
02751680 T 
02751690 T 



061911 
0621*1 
Q621H 



TE*«<34) ELSE XCUBE XiX 

BEGIN T I* fcORDSLEFTi XWRITE BLOCK 
IF T«BUFFST2E THEN »TR 857 



I 



02151700 T 
02*51800 T 
02*51830 T 



062111 

0623*0 
0624*2 



P(XIT);iNUtL BLOCKXTr 857 
WRIT* 
RCfJUNT » *P(DUP) - II 



02751850 T 
02751900 T 
027 5 2 00 T 



0626*0 
0626*3 
062810 



PcxiT); 

END WRITE SLOCKj 
TfRM(?5)i X UN RECOGNISED 



COOF 



02752100 T 
02752200 T 
Q27523QQ j 



0630*0 
0630*1 
0630*1 



IMPROPER* 



E.NQi 

if u-cgde) 'hqwqpen then 
i f h Q kq pe nm t he n term. 



X CHECK use vs 
MUCQDE? ELSE 



HOW OPEN 
SCLQSEO 



02*52400 T 
02752500 t 
0275P600 T 



06 3112 
0631*2 

0631*2 



19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



IF NOT QPENIU THEN TERM(PROPER ) ; 
IF UNITYPE *|0 OR UNITYPE «i3 THEN GO TO 
F SERIAL THEN . . __ 



xus a ge 

DATACQMi 



-X 



02752700 T 0637*3 
02752800 T 0643*2 
0275 2 900 T 06 4 6*0 



BEGIN 

T ....«• WQFt 
IF O PEN 



DELEFT -CNUMWQS«-NUM»<05); XCQUnT W RQ[_ E FT 
IU THEN GO TO SERUHP* 



02753000 T 0647*2 
02753100 T 0648*0 

0275 320 T 650 * 



IF CODE THEN * CQDE*1 ON WRJTE 
BEGIN 

if NUMwpStfi then termqco; 



02*53300 T 0651*3 
02753400 T 0652*0 
02 753/1 50 T — 0652*3 



hash; 

if techc then 

BEGIN 



02753500 r 
02753600 T 
02753700 T 



0655*0 
0659*2 

0661*0 



31 
32 
33 
34 
35 
36 
37 " 



IF NUMV1DS > MAXREC THEN 

T <• WQRDSlEFT-(nUmINq5«.MaXREC>J 
IF T> MAXREC THFN OIODLEREC FL Sr WRIT* 



02753800 T 
02753900 T 
02754000 T 



0661*2 

0663*0 
0665*2 



END 

Else ifccqunt *..*p<oup) - i)>o then 

, ninOLFRFC FLSF WRITI 



02754100 .1 
0275^200 I 
02754300 T. 



0670*1 
0671*0 
0674*0 



IF NOT DISK THEN 

P(XIT); 
IF (T»RCQUNT-1) > TOTREC THEN TQTREC » T; 



02754400 > 
02754500 T 
02754600 T 



067B*0 

0678*3 
0679*2 



40 

41 

42 

43* 

44 

45 , 

46 

47 

48 



PC 

EN 



O'RTn); 



SKCOUE«0 ON READ 



02*54700 T 
02*54800 T 
02* 54900 T 



0683*2 
0684*0 
0684*0 



IF REVERSE THEN READREV ELSE 

IF TECH » THEN REED ELSE 

IF T < 1 OR BAOKEY THEN REEO ELSE 



XTR 899 



02*55000 T 
02*55050 T 
O 2*55 l Q0 T 



0684*0 

0687*0 
0691*0 



IF NUMW 
DIDULER 

hash; 



0!»<1 then go to eofsetck else 
ec; 



02755200 T 
02*55300 T 
0?7554Q0 T 



06 95*0 
0696*1 
0699>0 



49 

50 
51 
52 
53 
54 



P <Q#RTN> 



XRANODM AND RANDOM 1*0 HERE ON 



02755500 T 
02755600 T 
03755700 T 



0702*2 
0703*0 
0*03*0 



RANDO^IU* 



FIBC13].C44* 1 J ♦ Oj 

IF SEEKEY THEN KEY «-RCOUNT 

IF BADKEY OR UEY "> TQTREC 



XCU8E XIX I 
ELSE SEEK; 

AND C00E«0) THEN 



02*55*10 T 
02755800 T 
02*55900 T 



0703*0 
0705*2 
710*0 



55 

56 



■ . Vv. 



BEGIN 

SANOBKf Y * 0; 
If WETBACK 



PRESET SEiKEY&BADKEY 
THE ADDRESS 



02756000 T 
02756100 T 
02756110 T 



0713*1 
0713*3 
0716*1 



>r 



12 



RCQIjNT ♦• ((BCOUNT <- CUUNT) x NUMREC); 
$ SET OMIT <= NOT ShAREOISK 
PCliRTNJf , 



END; 
IF SEEKEY 
BEGIN U_ 



027 f j6i20 
0275612V 

03,756200 



0717*1 
0721^0 
072lt,0 



THEN 
NU M8U F 



* 2 THCN 



02756300 
02756400 
Q 2756 5Q0 



0721*2 
0721*2 
Q722I? 



tafc-GlN 
$ SFT QM IT = NOT ShARFniSK 



ROTATEBUF! . 

IF NOT DONE THEN 



WAITIOJ . 
NUM8UF #ir 



O2756600 
02756700 

0ars570v . 



FNDt 



$ SET OMIT * NOT 



SEEKEY «-FALSE; 
SHARED ISK 

RTHGtRANnOMtTRUFI 



02756795 
02756800 
0g7S6900 



0724*2 
0727*3 
07 ii 9>0 



0729*0 
073110 
07331? 



02756910 
02^56919 
02757000 



07331.2 
0736*0 
07 36 *0 



T< 



13 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



Ranbomlbl 8 



GO TO iodqne; 
end; 
if invai.iouseH then 



BEGIN 



02F57200 T 
02757300 T 
Qg757< | 00 T 



maybepakity; 



FND, 



02/57410 T 
027574 30 T 
0g7 5 74 ft T 



0737*1 
0737*3 
0737*3 



.0736*3 
0739*1 
07 4 0*0 



T *RANDO 
IF CDOE 
BEGIN PfflCQUN 



M ♦ FALSER 

a 6 ThEN IF WRITBACK THEN 

*U 



XCUBE 
XCUBE 



XJX 
XIX 



WRIT; 
P.UBCQUN 

HU OUN T * 



KEY/ 



pcxit); 
end else p(xit); 
if writback and code then 



HUBE XJX I 
XCUBE XIX I 
»CU BE XIX I 



02757500 T 0740*0 
02757510 T 074**1 
0g75752 T — 7 4 3 * p 



XCUBE XIX 
XCUBE XIX 



027 57 5 30 T 744*2 
02757540 T 0746*0 
02757550 T 0746*3 



02757560 T 
02757570 T 

0g757600 T 



0740*0 
0748*1 
0740*0 



13 
14 i 
15 
16 
17 J 
18 



19 

20 ( 

21 

22 

23 ( 

24 

26 

26 ( 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 I 



41 

42 

43 

44 ' 

45 

46 

47 

48 

49 

50< 

51 

52 

53 < 

54 

55 

56 



28 
29 
30 

31 " 

32 

33 



IF COUNT X BCOUNT THEN 
BEGIN 
P(W UMw n Sf R CUUMT» »l FAyE. Bj.QCK CnUNT UN STK 



0p757700 T 
0g757800 T 
0g7S7900 T 



0750*2 
0752*1 
07 5 2 * 3 



rcgunt* (bcount*count> x numrec; 

WRfTl 

P(rBC0UNT3j»WXPICK UP BLOC K CflUMT 



02758000 T 
02758*00 T 
Qg? t ifl200 T 



0753*2 

0756*3 
0758*0 



34 

35 



36 
37 " 



NUMHDS «■ p; 
RCQUNT * KEY; 

ENU* 



02758300 T 
02758400 T 
,Qa7595Q0 T 



0758*3 
0759*1 
07 60*? 



38 
39 
40 
41 
«2 
43 
M 
45 
46 



movrec; 

IF COOE 
BEG 



THEN X IF RANDOM WRITE THEN 
IN. 



WRITE 



0g758600 T 
0?758700 T 
g 7saft00 T 



0760*2 
0762*0 
0762*1 



IF LASTIO THEN FIBC13].[44*1] *■ 1; 

IF NOT (COUNT = BCOUNT AND WRITBACK) THEN 

B E GI N 



? 758850 T 

Q.2758.9QQ...T 
0,27^8960 T 



oiskaddressixcompute new address 

count ♦ bcount; 

end; 



0762*3 
0766*3 
076 9*2 



02759000 T 
02759Q10 T 
?75 90 5 T 



0770*0 
0771*0 
077 2 *? 



47 

18 
49 
50 
51 
52 
53 
54 
55 
56 



IF 
$ SET OMIT * NOT SHAREDISK 

JIM 



KEY > TQTREC THEN TOTREC «• KEY, 
TBACK <• true; 



02759100 T 
02759104 T 
Q2759165 T 



0772*2 
0775*1 
,0775*1 



P(0#RTN3, 
XENQ OF MAIN LOGIC NEXT IS SPECIAL ROUTINES 



0^739200 T 
0p759300 T 
02 759 4Q Q T 



0777*3 
077713 
0778*1 



SERIALIU* XTHIS HANDLES 

IF BADKEY THEN REE 
IF NOT (LASTDONE A 



SERIAL pQ 

u; 

ND CODE) THEN 



XCjC 022 



IF (COUNT ♦ *P(DUP 

BEGIN W8R0SLEFT ■*■ 

-GO TO, 01 DOLE i 



J -*■>■ > THEN 

11" \ 



02759500 T 
2 759550 T 
Qg759600 T 



0*759620 T 
t 



0778*1 
0778*1 
07 B 1I0 



0782*3 
®7»513 
Q7fl7*2 



J0 



END ELSE 

BEGIN IF BOUNDED THEN 
IF RCQUNT * ISUBL 



BEGIN COUNT 
8C0UNT 
END USE 



THEN, 



NUMREC - CBS * RCOUNT MOD NUMREC); 
*P{DUP) » <0'S * o); 



02759680 7 0788 
0?759700 T 0788 
0;?7 5 972C T 0789 



02759740 
02739760 



T 
T 



0791 
0795 



p7597B0 T CL7-i7- 



4 
5 
6 
7 
8 
9 
10 
11 
12 



COUNT «■ 
IF COPE 



COUNT < 

numwec; 

THEN % 



NUMREC 



ELSE 



TWO WRITES IN A RI1H 



2 759800 T 0797 
02759900 T 0799 
Qa759920 T Q-8IU, 



RE6IN P<TIP INX OH % LEAVES POINTER FOR MOVERfcC 

IF RCOUNT GEO TOTREC THEN 
BESIN IF TECH 9 AND W RITEAF T ERE OF * ? TH F N 



02*59940 T 0802 
? 759960 T 0003 
0p7599B0 T QM&A 



BEGIN WRITEAFTEREOF > li 

RCOUNT * *PCDUP) +2i 
BC0I1NT t *PcnUP) + 2? 



02760000 T 0808 
02760020 T 0811 
03760040 T 0613 



13 
14 
15 
16 
17 
IS 



end; 

if rcount * 



THEN 



BF6IN PCDEDi 



02760100 T 0615 
02?60200 T 0815 

0216 30 T — 0-8-^0 



RCOUNT ♦• *P(0UP) +1/ 
8CQUNT ♦ *P(DUP) + U 
WORnSlEFT » HUFFaUF - MJMW 



pa; 



02760400 T 0817 
a 14 05 00 T 0819 
02760600 T 0621 



19 
20 ; 
21 



GO TO diddlewrt; 
END ELSE 

wr i t e adjust ; 



02760700 T 0823 
02760800 T 0624 
0p76U900 T 0*24 



22 

23 



END ELSE 

CODE ♦ 4; 

JLW ELSE 



REED J 

mov.rec; 



CUQE 



If 



0^761000 T 0826 
0?761l00 T 0828 
02761200 T 08 3 Q 



25 
26 
27 
28 
29 



diddlewkt* 



IF CODE THEN WRITBACK «• TRUE; 

IF WRITEAFTEREOF « 3 THEN WRITEAFTEREOF * 

RCOUNT » *PfOtiP) -1J 



2; 



02761300 T 0832 
02761400 T 0035 
02761500 T Q839 



DIDDLE' 



END 



movrec; 

RCOUNT.. *..*P(DUP) iXi 
ELSE GO TO. Dinni EWRT/ 



02761600 T 0841 
0?761700 T 0843 
Q2761SQ0 T 0845 



31 

32 

33 

34 

35 

36 

37 " 

38 



LASTOONE * NOT CQDtJ 
IF CT * RCOUNT *t) > 
IF CODE THEN TOTREC * 



*FN D 



ELSE GO TO 
PCO#RTN)i 
SERIAL 1-0 



TOTREC THEN 
_I * UPDATE 



lofsetck; 



E O F P OINTER 



* PASSED EOF ON READ 



02761900 
02762000 
02762100 



02762200 

02762300 
Q?7ft?fl00 



T 0845 
T 0847 
J QH50 



T. 0851 
T 08^2 
J. 0853 



DATACOMI 
$ SET OMIT 
t SE T OM IT 



A ALL DATA COMM GOES THRU HERE 

N0T(TIM£SHARING) 

TIMESHARING : 



02/62500 
02762600 
0?762fl00 



T 0853 
T 0853 
1 Oj__ 



40 
41 
42 



IF UMTYPES13 THEN REMOTtlU; 

% MUST _E UMTYpEslO 
P(MKS»TUNR*5TATN>tlME0UT»EAPAND» 



02762900 
02763000 
0?763^00 



T 0853 
T 0862 
T 0862 



43 
44 
45 

46 
47 
48 



NUMWDS'DLaC'CQQE'CALLlNTCCQaQLDCI)); 
PCRTN); 



S HOP OMIT 



02763200 
2 76330O 
276 5650 



T 0064 
T 0066 
J 866 



EOFSETCKJ 



IF ENDFILE THEN TERM (15); 

ENOFILE * TRUE ; 

PCl fRTN)/ , 



02^65600 
02765900 
0?/66000 



T 0866 
T 0869 
J Q8 72 



49 

50 



51 
52 
S3 
54 



* END OF EOF SET CHECK 

END OF COBOL I INTRJnSICSJ 



02766100 
02?46200 



T 0872 
T 0072 
SIZE" 00 



3 
3 

3 WORDS 



PROCEDURE FBlNBACKBLUCKO'I L x,DKAUDR,FI,FMT,LlSX,EDlTC0DE,EUFL,PARi.> 

START 

value dkaddr*fi>lisx'Editcode*eofl»harl ; » int * ei6o 



i 02767050 T 0000 
OF REL SEGMENT* DISK ADDRESS 
0P767100 T 0000 



■ 00293 




56 

56 



real 0ka0dr,fi>ll5x#edltc0qe*eqfl>pary array. fmtc*j; name fllx ; 
begin 



02 767150 
02707200 
O270725Q 



T OOOOi 
T 0000' 
T OQ9QE0 



n 

2 
3 
4 

5 



INTEGER BSIZE* LJTRN=19 ; 

REAL Ll,SIYr'E s aQf AHBAYSTUFFM8> ALGULHRITt? I2t ALfiUURfc AJg 1 3 » Jti, T7« 



02767300 T 0000*0 
02767350 T 0000*0 
Qa7 6 7 ,q0 .. T 0000 8 



SELECTsU* 'F0RTERR»24» ARY, TYPE* DBLPREC*2Q* JNDXaEQFL* B6700* 
OUT' FIG* IOINT* Ti* T2* T3* T4* T5> TWDT* WHJM8* *»H2"17» 
ST*FsPA8l» 1NTINT»5« PRNTR* CKPRI* FMTWRD»CKPRI » Ft,BaFILx i 



02767450 T 
02767500 T 



0000*0 
0000*0 



027675^0^ 0000*0 



NAME lISTaDDS* AUDK ; 



02767600 T 
02767650 j 
Qg767700 T 



0000*0 
0000*0 
0000*0 



ARRAY ARlatlSTADDRt*3* FI8C*J* IOBUFFC * ) *' TPAR»23[ * ) * FPB*3 1 * 3 i 
lABEl AjIST. BLKtfTA* SFVFN S * ENQAIL* AWAY* SPCU » S PC L2* QSZ* 



02767750 T 
02767800 T 
02767650 T 



0000*0 
0000*0 

ooonto 



10 
11 
12 

13 

14 

IB 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

« 

44 

45 

46 

47 

•8 

49 

50 

51 

52 

S3 

54 

55 

56 

57 



CMPXL* DUBEl* LCJGCL* STRNL* INTREL* BDERR* ENOlT* ERROR* 
60* 81* BQW BI1» BDERRl* 8DERR2* BI2' MAX* LOOP' ST/RNL1' 
PRINTER* UUTL* BKSPC> ti 2 > B03* BQq* BIO* Bl3* BU* BIS. LN DG* 



02767900 T 
02767950 T 
0276/975 T 



0000*0 
0000*0 
000 0*0 



SWITCH TYPL»INTH£L> STRNL* INtRfL* LQGCL* DUBFL* CMPXL i 



02767980 T 
02768000 T 
Q276805 Q T 



0000*0 

0000*0 
onon:n 



DEFINE DONE 5 L6TRN=C"1) *» 

N UTQuNE ° L aTRN^Cl? »> 



02768100 T 
02768150 T 
Q276B200 T 



0000*0 
0000*0 
0000*0 



KINO * FIBC43.C8M3 »» 
TAPEF * 2 #* 
REmOTEF s 13 f* 



02768250 T 
02768300 T 
Q2768325 T 



0000*0 
0000*0 
0000*0 



UATACCIMF ■ 10 t* 
INTEG« = 1 #* 
STR I N G » 2 ti 



02768330 T 
02768350 T 
02768400 T 



0000*0 
0000*0 
0000*0 



REEL ■ 3 ** 
LOGICAL * 4 #> 
nBLPRECSN * -5 », 



02768450 T 
02768500 T 
Q276855Q T 



0000*0 
0000*0 

Qoontn 



COMPLEX s 6 »* 
TYPEF " [4414] *, 
INDXF = L 18 s 153 tf* 



02768600 T 
2 768650 T 
02768700 T 



0000*0 
0000*0 
0000*0 



SIZEF » t 33 J 15 3 # ; 
SUBROUTINE BLANKIT * 



02768750 T 
02768800 T 
0g768B05 t 



0000*0 
0000*0 
O QQQ ' O 



BEGIN 
STREAM(C*PCXCH)*A*-BSlZE-l*B*PCDUP),C36»6]JD*lUyUFF ) ; 

BEGI N 



02768810 T 
02768815 T 

?76 6fl2 Q T 



0001*0 
0001*0 

0004*0 



si*loc a* 8(si*si-i; ds«-chr>; si«-d# ds*a wos ; 

b(0s*32wds; 0s*-32wds) j 

end ; ' 



02768825 T 
02768830 T 
09768ft35 T 



0004*0 
0006*0 
0Q07*t 



P(DEL'DEL*UEL) i 
END OF BLAiNKlT '* 



02768840 T 

02768845 T 

0276 8 846 T 



0007*2 
0008*1 

0008*2, 



subroutine ckpb * 

BEGIN 
_~ P ( MKS »F LG?J IF OtiT THEN Pf QKAflDR. n. C »1 T Y FLSE P(CKPfil) t 



02768850 T 
02768900 T 
02768950 T 



0008 * 2 
0009*0 
000910 



45 

46 
47 ( 
48 
49 
50 ( 
51 
52 
53 ( 
54 
55 
56 I 
57 



IF CBJ>I*E.«-PCFILX,IQINT)J<0 THEN GQ ENDIT ; 
END OF CKPB ) 



02769000 T 
02769050 t 
0276910 



27 6 9100 T Q0 14» l 



0012*0 
0014*0 



subroutine io * 

BEGIN P(0> ) 
EnDALL* P ( MK S »FL fi fD K AQ DR) f TF OUT THFH PtO.BSlZFi: P( F I L X» I 01 NT ) i 



O2?69700 T 
02769750 T 
Q276980Q T 



0014H 
0019*0 
QQ15M 



IF P THEN 
ENDIT. BEGIN FlLXtNQT 33*FILXtNGT 4]*0* PCXIT) END * 

CKs>a ; , 



02769850 T 0017*3 
0?769900 T 0017*3 
027 6 9950 T 002 1 *3 



END OF 10 ; 

Real subroutine nxtitm j 



02770000 T 
02770050 T 
Og770i00 T 



0023*0 
0023*1 
0023*1 



• • 



n 

2 
3 

4 
S 



BEGIN 

P(IF TwDT THEN P( *[ AR1 C INOX . C 33 I 7 ] J ]# INOX 

EL SI;' UR) LINUX 11) i 



AND 25b>CUC) 



0^770150 ij 0024*0 



IN0X*INDX+1# 
END OF NXTXTM 



NXTITM«-P 

; 



02770200 
Og77fla50 



0?770f00 
02770350 
Oa7 7QiitOQ 



0024»0 
002780 



0026*0 
0029*2 

002013 



subroutine getnextlistitem ; 

BEGIN 

TF ARY THEN 



0?.770450 T 
02770500 T 
02770550 T 



0029:3 
0030*0 
0030*0 



9 
10 
11 
12 

13 
14 
15 
16 
17 
IS 



AUSTj 



BEGIN 

PCNXTITM) ; 

IF DBLPREC THEN IF OUT THEN WH?»*NXTlTM ELSE INDX«,lMDX+ t i 



02770600 T 
02770650 T 
02770700 T 



0030*1 
0030*3 



ary«-sj-£e>indx ; 

END 
FLSE IF TYPEaCQMpLFX THEN 



027 70750 T 
02770800 T 
O2 77OH50 T 



0036*3 
0038' 3 
003AM 



BEGIN TYPE*-COMPi.Ex; PC C LI STADDR 1 11 i ) END 
ELSE BEGIN 

P(ARRAYSTUFF»LISTYPE»0); tl STADQR»ClI SX3 i 



02770900 T 
02770950 T 
2771QQQ T 



00^0*0 
0042* J 
0042*3 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

18 



UBLPREC*CTYPL«-LISTYPE,TYPtF)*08LPRECSN i 
IF ANY*.ARRAYi>TUFF*0 THEN 
BEGTN 



02771050 T 

o?mioo t 

027711,50 T 



0044*3 
0047 '0 

0046*1 



IF TYPE=CQMPLEX THEN TYPE*-CQMPLEX / 
SIZE«-(lNOX*ARRAYSTUFF.lNDXF)-»-ARRAYSTUFF.SUEF ; 
PfLlSTADDR»MEMfL.lSTADDR.Cl8ll5 3-3> i 



02771200 T 
02771250 T 
2771 30 T 



0048*3 
0051*0 
0053*1 



ThOT*NOT P(uUD/TOP); P(DEL) ; 

IF EDITCUUE=2 THEN GO ENDG E^SE GO ALlST ; 

FNQ ; , 



02771350 T 0055*3 
0?771400 T 0057*1 

« j77 l S0Q T 00 5 9 * 



PCDEL*[LISTADDRC0J3 ) ; 

IF DBLPREC THEN IF OUT THEN WH2*lI STAODRC 1 J I 

E N D # 



02771550 T 
0?771600 t 
Qa77165Q 1 



0059*0 
0059*2 
Q062<2 



IF OUT THEN WHl«v*P EL$E ADDR*P ; 
ENDG* END ...OF GETNEXTLISTITEM ; 



02771700 T. 
02771750 T 
Q2771Q00 T 



0062*2 
0065*0 
0065*1 



SUBROUTINE GETANOCHECK J 
BEGIN 
GETNEXTLISTiTEMJ Tl«-Tl"l ; 



02772050 T 
02772J00 T 
02772150 T 



0065*1 
0066*0 
0066*0 



IF DONE THEN 
BDESRl* BEGIN P(l) / 

BDERR* Tl»P; P(MKS>n#rYPE>T2*FLG*BSUE*C2)*F0HTERR) J 



02772200 T 
02772250 T 
0P772425 T 



0068*1 
0069*1 

0070*0 



END i 
FLG*FL6*1 i 
END OF GETANOCHECK J 



02772950 T 
02772975 T 
QP773000 T 



0072*3 
0072*3 
007410 



X********** **************: : CODE STARTS HERE * * ************************% 



Op773050 T 
02773100 T 

02773150 T 



00f4*i 
007«*l 
074 * 



t- 



LSTKN«-CKPBI*1 * 

IF EDITC0DE«6 THEN 

REGIN I BLOCKDATA, 



02773200 T 
02773250 T 
0?773300 T 



0074*1 
008112 
00 8PM 



blkdta* getnextlistitem; p((fmtwrd«-fmti;fi4.p+fi ]). j ; 

T2«-FMTWRQ. [18*15]; 6S I*E*(FMTWR0*O ) + flS UE ; 
IF DONE THEN BEGIN IF NUT P THEN GO BDERRU PCxlT) END ; 



02773400 T 
02773425 T 
Q?773450 T 



0082 *3 
0086* 1 
0Q89M 



49 
so 

51 
52 
53 
54 
56 
56 



FLG+FLG+1 i 

if p then begin pc2>; go boerr end; ti«-fmtwro, C33iisw ; 

T3»FHT tf I»F-i t * l 3f T4*FI*T CF T*U / . ! 



0?773475 T 
02773500 T 
g773«iS0 T 



0091*2 
0092*3 
0095*3 



GO TYPLCT2-U i 

cmpxl* if abs(type)xcomplex then go buerr2* addr[0j«-t3 > 
getnextlistitem; addrlo3»T4; if ti<o then go spcli ; 



0^773600 T' 
02773655 T 
0?77370g T, 



0099* 1 
0103*3 
0106*0 



JhJflLU- 



GETANDCHECK J 

GO CMPxL > 

IF NOT DBLFREfi THEN 60 B0EHR2J , ADORl Q3*T3i 



AQPR UJ . tTO i 



02773T2S "V 
02773750 T 
Q ?773flflQ t 



0109*0 
01 10*0 
011012 



J0 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 



49 
50 
51 
52 
53 
54 
55 
56 



IF Tl LEG THEN 
SPCL1S BEGIN H(2); 

GFTANUf.hFClS i 



go blkdta end ; 



2 773850 
0?773900 

n p 7 7 3 v ^ o 



GO 0U8EL. i 
LOGCU IF TYPE'LOGlCAL THEN 

Bf>ERR9l BEGIN P(3)j GQ BOERR FND i 



2 7740Q0 T 
0?774Q50 T 
Q2?74lQ0 T 



011312 
011411 
0-145X 2 



0117*0 
011712 
Q118M 



STRN Lt 



ADDR[0]*T3> IF Tl Lt<2 THEN GO SPCL2; GeTANQCHEC* ; 

GO.. LOGCU * ... . 

T4«-Ft; T3»Tl+i; FHTWrtUtFMTHRD.C3U&] I 



0.2774150 
02?74200 
0g774220 



0119*2 
012350 
0423X2 



STftNLl* If A8S(TYPE)«C0MPLEX 
AOORt03»FMTCFl3 ; 

IF T1»A THFN FI»FT*1 



OH DBtPREC THEN GO B0ERR2 i 



02774225 
02f74230 
0g77fl250 



0126.13 
0129*0 
01 30 10 



ELSE BEGIN 

IF (FNTWRO*FMTWRO-1)SO 
ENO i 



THEN GO. SPCL2* FI*T4; T 1*T 3 ; 



O.p.774275 
02774300 

027/4 3 25 



0131 » 2 
0133*0 
01 3ft? 3 



INTREL* 



GETANOCHECK ; 
GO STRNL1 i 
IF ARS(TYPE)»CQMPLFX 
TYPt=INTLGR OR 

BEGIN 

IF T3>P(MAX) THEN 



PtT3,tAonRcQ13i i 



IF 



THEN fiO RDFRR21 
TYPE-LOGICAU THEN 



B EGIN PCM ; GU BDERR END i 



FLSE 



P(ISD) 
ENO 
PC») i 



spcl?* 



IF DBLPWEC THEN ADOH[U*0 . 
IF Tl UlQ G THEN 
HEfilN PCI )* GO BLttUTA 



END 



GETANOCHECK ; 

GO INTREL i 

run nF blqckdata 



FIB*F.IUKCNQT 23> FILXINQT j-UPaRL* FI.LXr.NOT 4]«-eQfL i 

P(FIB[53) ; 

TF FT<Q THEN fiQ OUTL; PfP.[43t9]XTl«.fE0TTCQ0EaS)»2 < »P( t ALr,QLR£A0))j 



flg+dkaodr; go osz ; 

MAX* It 97777777777777 i 

Out i„ i 



QUT*U PjP...t.43*l3**PC...ALG0LWRlT€.l). 
IF FLG*DKA00H<0 THEN 
DSZI QKADOR»{. i — 



I0INT*P; IF P THEN P(MKS#0#T1»FILX#1#SELECT) ; 

IF EDITC0DE«5 ThEN 

BEfilM t RACKSPACF. 



io ; 



BkSPCJ 



IF .F.I.BC51. 141123^0 ThEN GO ENDlT; CKPBI*3; CKPB* 

IF NOT CFI6[FLG«-03X1 AND KlND^TAPEF) THEN GO EiMDlT i 

IF (»(*CFIlX])),E3U53^P(SeVEN5) THEN BEGIN IOi GQ BkSPC 



AML 



IF (*C*tFlLX3)>tC 18* 15 3>P( SEVENS) 

END > 

T2+CFIBC53 AND 96)*QJ CKPB; JMA Tl+KIND )»TAPEF J 



THEN GO AWAYJ GO ENDlT * 
CKPB | »3 ; 



IF PRNTR«-(Tl=l OH Tl»7 (JR T 1* 12 > ANQ FPB t F IBC43 , C 13 I 1 1 3+33, [43 ' 53 <20 
THEN BEGIN 

TF BSIZE>17 THEN BSjZE+17 ; 



El.SE 



IF T2 
END 
IF T2 



THEN BEGIN IOBUFF+TPARJ PC" ">* BLANKlT END i 



AND T4 THEN F IBE8 J . C 3* 15 3»0 i 



IF FIBC03«0 THEN FIB[Q3«-2; 
IF FIBC03/2 AND T4 THEN 
BE G I N T l»4 i 



T5«-TlsREM0TEF OR Tl = DATACQMF J 



ERROR* Pi«KS»FI8t63/FILX.C33*lS3»Tl^FORTERR) I 
iFNB I 
Tr Tft ANfi NOT FIBri33.t34.M3 THFN PtMKS* (M )»FQrTFRR 1 



02774350 
02/74375 
02774flOQ 



0136*3 
0138*0 
Ql3fl»? 



02/74410 
02774420 
0?774430 



0140 ..i 2 

0.142.* 1 
0l4g*3 



02774440 
02774450 
02774460 



02 7 7 4 4 70 
027/448.0 
02774500 



0144*3 
0l45*0 
0145*0 



Ol45«3 
0148*0 
0148*3 



02774550 
02?74600 



0150*0 
0151*0 
Ql5l*2 



02774700 

02774750 
n 2 774ano 



Ol5l«2 
0156*3 
Ql57<l 



02774850 
02774900 
0g774950 



02775000 
02775050 
27751 00 



0l«l*2 
0162*3 
0164*0 



0164*0 
0165*3 
0167*0 



02775250 
02775300 
027753 8 >n 



0168*1 
0170*3 
Ql7l»2 



02775400 
02775450 
0?775500 



0172*0 
017 7*0 
0180*3 



02775550 
02775650 
02775 675 



0184*2 
0187*2 
0187*2 



02?75700 
02775725 
2775 72 7 



194*1 
0199*1 
0201*0 



02775730 
02175735 
2775 737 



0203*0 
0206«0 
206* 



02775740 
02775750 

0?77580Q 



02775850 
02175900 
02775925 



0210*1 
0215*1 
216 * 3 



0218*0 
0220*0 
0220*0 



rt 



4 

M 

6 
7 

•I 

9 

10 

"i 

12 

13 

?,4< 

15 

16 

"I 

18 

19 
20 { 

21 
22 

« { 

24 

25 

26 ( 

27 

2i 

29 ( 

30 

31 

32 ( 

33 

34 

35 { 

36 

37 

38 ( 

39 

40 

41 I 

42 



43 

44 i 

45 

46 

47 < 

4S 

49 

* i 

51 

52 

53 ( 

54 

55 

56 ' 



• * 



T3*pcsewenS) ; 

if lditc0d£"0 thln 

BFfilN I NO FflRfrAT. Nfl l 1ST, 



I08UFF«-*FRX 
IF OUT THEN 
BE GIN 



J 



02775950 T 0223S 1 
0?776000 T 0224*0 
0^77 6 050 T 03 2<l» 3 



02776100 T 
02776150 T 
Qg776?00 j 



0225*1 
0226*1 
Q?2 6*2 



PR I NTFR' 



IF PRiNTR THEN 
BEGIN 
IE NOT T 2 



THE N F IBU 73»»F , C D UP) + B SIZE X 



02776205 T 
02776210 T 
2776 22 T 



022710 
0227*1 
022 7* 3 



PCMKS#l#0*T2#BSIZEtFItX# ALGQLWRITE3J 
FIBC173**PC0UP)*BSIZE ; 
STRFAMfTPAR*BST2F»S»*FTl..X') * 



CKPB i 



0g776225 T 
02776230 T 
03776235 T 



0230*3 
023410 

Q 2. 16 in 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

«3 



BEGIN 

$i«.tpar; 

FMD j 



0S4.BSIZE WDSJ DUTPAR; 18tPS«.8LlT" M ) > 



02776240 T 
0?776245 T 
Op776a50 T 



023713 
0237*3 

0«40*2 



JX 



GO ENOIT 
END i 
T5 TMF^ P<» 



; 



w ) El SE Pf w n w )i RLANKIT I 



02776255 T 
02776280 T 
7632< 



027) 



U)-T- 



0240*3 
0241*1 
0241*1 



IF T4 THEN I.0.BU.FF.CQ3«-(NQT 0.)UB.SlZE-l)l33»33*l53 
. . .END ... . 
El., fSE IF T4 THEN GO Bin * 



27 76550 T 
0^776600 T 
Og77 665 T 



0244*0 
0247*1 
2 4 7*1 



AWAY* P(l>* GO ENDA 

END i 

T4 then if ufj 



IF Tfl THEN IF UFlL 
GETNEXTLISTITEH> I 
T 1 *- T 4 ; I.0BUFF»1F P 
IF T5 THEN BEGIN PC 



u ; 

XKfBUOJO THEN P( MKS »(. -4 ) jFQRTERR ) ; 



2 776700 T 
2 776750 T 
0^776775 T 



0248*3 
0249*2 
0249*9 



G 

BO' T 
I 



F NOT OUT THEN GD BIO i 
RNTR THEN TPaR EL*! *F H* i 
!! ")? BLANK IT END ; 



0?776800 T 

02776850 T 
0277 6 875 T 



0253*1 
0254*3 
0258 * 1 



801* IF ARY THEN 
BQ2I BEGIN WHIM J 
— IF P((8SlZg*TU ANp NOT PBLPREC* PUP >>Sl7g» iNpX THEN 



0^776880 T 0260*0 
02776885 T 0260*1 
Op 7 76690 T 026112 



PCDEL/SUE-INDX) 
IF TWDT THEN 
B E G I N 



02776895 T 0264*1 
0s>776900 T 0265*3 
Op/76905 T 02 6 6 *0 



IF P<OUP)>(WH2*256-lN0X t t4Ol83) THEN 

BEGIN fr(0EU#WH2>| WHl«-0 END i 
PC»CARl[IN0X.[33»73 3 3,INDX.C4O*83,CPC) ; 



0g7769l0 T 
02776915 T 
Q ?776 92 Q T 



0266*2 
0268*3 
0270*2 



END 
ELSE eUARHl.NDX.JJ) 

WH2+P(XCH) i 



2 776925 T 
02776930 T 
0a776935 T 



0272*3 
0272*3 
273 * 3 



STREAM(S*P»WH2 

BEGIN $I«- 

PfnFi ); Tl»T1 



#N*P<OUP)#C38»4 3,O*tI0BUFFtTl33) ; 

S; DS*WH2 «DSJ N(DS*-32W05; 0S*32W0S) END J 

+whp ; 



02776940 T 
0?776945 T 
?776 95 T 



0274J2 
0276*3 
027 9*0 



IF ARY«.CiN0X«.lNDX + fcH2)<S!ZE T *EN IF Whl THEN GO B04 El$E GU B02 
ELSE GQ B03 ; 

end ; 



0?776955 T 
2 776957 T 
0?776g6Q T 



0280*2 

0283*2 
0284*? 



♦5 
«6 
47 
«8 
49 
50 
51 
52 
S3 
54 
55 
56 



lOBUFFCTl J*WHU IF 
B03JGETNEXTLISTITEM i 

IF NOT (PONE OR U* 



OBLPREC THEN 10BUFFITI*T1 + 13*WH2; TUTl + i } 
DBLPREC2tBSlZE) THEN GO B01 i 



02776965 T 

0?776970 T 
0?777Q00 T 



0284*2 

0290*0 
0291*0 



804UF PRNTR THEN GO PR 
P((Tl-l)4T3[3l'33»l5 
IF DONE THEN BEblN 



inter; if not t4 then go away ; 
3) ; 

PCSEvEN5>CFX*ClOBUFF[Q]]»»)i GO AWAY END ; 



02777050 T 
0^777100 T 
0?777l50 T 



0294 «0 
0295*3 
02^712 



PUIOBUFFCT3*0)3**) 
lUi GO BO i 
SeVEN S***»77777 



; 



02777200 T 
02777250 T 

o ± m m t 



0300*3 

0302*0 
0303*2 



BIO 3 IF 



T4 then 

BEGIN 
IF T2 



t7*bsize ; 

THEN FIB £8 'j."t3»'l]*B6'/00«-(*(*CFUX3i),Cl*l5}»P<B6> 



02777265 T 
02777267 T 
0?777270 t 



0305*0 
0305*1 
306*2 



_o. 



ELSE IF 86700«-FlBC83,C3ti) THEN T6*FIBC 83 . t 4* U3 ' 
IF EOITCOOE«0 THEN 

BEGIN BSIZE»UQBUFF£T63 AND T.3)»U GO 815 END > 



02777290 T 

2 777292 T 

02777293 T 



0309*3 
0315*3 
0316*2 



m • 



n 

2 

3 

4 
S 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 



end ; 
bi« i0buff*-*filx ; 

IF lit THEN HE. I 



B?lZE«-(lCiPUFFtU3 AND T33+1* PfT6 + U END FLSe P<n), 



02777295 T 0319 
02777300 T 0319 
0?777?03 y Q3gO 



ti*p ; 
biuif ary then 

B l2 * REft l N WH IM i 



0g7773O3 
0277730S 
02777110 



T 0324 
T 0325 
Jf _____ 



IF P((B.SlZE + T6-Tl) AND NOT OBLPREC pUP )>S IZE" INQX THEN 

P(DEL/SlZf.-INDXJ ; 
IF TWUT THEN : 



02?77315 
02777320 



T 0326 
T 0330 
-J — 0~W 



BEGIN 

IF PCDUP>>(MH2«-256-rNDX. [40183) ThEN 



02777330 
0?777335 
0?777340 



T 0331 
T 0332 
J D_3-3__ 



e (* t AK UI.NOX..C 33.1 M3.]i.IND.X«.t40. 18.3* CDC) / 
END 
;LSE P.UHUINOX33) I 



0^777345 T 0336 
02777350 T 0338 
0g7773 55 T 0-3-3* 



IF (WH2«-P<XCH)) + <TYF_>PCIQ8UFF I NX T i } )>HU N T (T YPE) THEN P<F-8)j 

STREAM(S*PtWH2#N*-P(0UP).C38l«3»TYPE) ; 
flfGlN ST-TYPFt nl»»l pS+WH2 WnS? NfpS_3gWpS f pS_3,H p S)FMp; 



02777360 
02777365 
Q ?7773 70 



T 0339 

T 0343 

J Q345 



P(DEDI .U*.Tl.*lU.H2 I 

IF ARY*.ClNBX«..iNDX.*hH2.)<?»lZ.E T.MEN IF WHI THeN GO Bl« EESe GO bI2 

ELSE GO BT3 I 



02777 375 
0?"7 77380 
0^77738! 



ig7773 8 5 T 



T 0347 
T 349 

a 



L3-5* 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



ens ; 
addrt03*i08ufful jj if oblprec then aooru 3*i08uff(t1*t1*1 3 ; 

Tl»TUl { : : 



02777390 
0?777395 



T 0353 
T 0353 



08777400 T — Q-35-# 



BI3IGETNEX.1LISTI.TEM ; 

IF NOT (DONE OR U + DBLPREC>_SI_E) THEN. GO BI1 i 
RI4>IF NOT T4 THEN fiU AWAY J 



02777425 
02777450 



0359 
0360 



02777500 T — -0*6-3 



IF DONE THEN 
BEGIN 
RI5I IF B67QQ TtiKN 



02777550 
02777600 
0g777_50 T 



T 0363 

T O364 

0. 



L445- 



BEGIN 

IF BSUE + T6<T7 THEN T6 + T6 + BSJZE 

ELSE BEGIN 



2 777655 T 0365 
02777660 T 0366 
027776 6 5 T 0-3641 



WHILE NOT C*(T6 INX *FILX ) ) , C 321 1 3 

00 BEGIN IO; T6*0 END i 

IF (T6»(t«(»CFlLX3)) AND T3)+1)_T7 THEM 



02777670 
02777672 
27776 75 



T 0369*2 
T 037tti 

I 374*1 



BEGIN IQJ T6<-0 END i 

end ; 
fibe83.c4i143»t6< go end it ; 



02777680 
02777685 
0P777690 



0377*0 
0379»3 
0379*3 



B6t II 



END J 

WHILE C*(*[FlLX3)).U8tl53ja3 00 10* 

eioooo ; 



GO AWAY ; 



02/77695 
02777700 

0?77772 5 



T 0384*0 

T 036410 

I 3 89 * 



end ; 

IF B6700 THEN 
BEG I N 



02777750 
02/77755 
02777760 



T 0390'0 
T 390 10 
J 039QM 



45 

46 
47 
18 
49 
50 
51 
52 
53 
S4 
55 
56 
V 



If IOBUFFCT6J.C32U3 THEN BEGIN Tl+5; GO ERROR END I 
IF 8SJZE+T6-T7 THEN BEGIN 10; 8$lZE«-0 END ; 
T6»BSIZE; GO BI i 



02777765 
02777770 
0?777775 



039013 
0393*2 
Ql9_>3 



end ; 
if i0buffc03»118*153"t3 then begin tl«-5; go error end j 

I-J GO bi ; 



02777780 
02777800 
0?777fl50 



0398*0 
0398*0 
4 01 * 2 



END OF FBIN8ACK8L0CK ) 
PROCEDURE FTlNTFIx(FlLX»OKAQDR*Fl,FMT,LlSx,XPnCQOE,EQrL,PARL)J »lNTt»l56 



02777950 T 0403*2 

StZC" 04Q4 WORDS 
02780000 f 0000*0 



Value dkadDr,fi,lisx,editcodE'-oFl>parl> 

REAL DKADDR,FIjlISXjEDITCPOE*EQFL,PaRL i 



ARRAY FMTC *3i 



START OF REL 

NAmE filx ; 



SEqMENt* DjSK 
02780050 

0278010! 



)278Q100 T 



ADDRESS ■ 
T 0000*0 

0000*0 



00307 



BEGIN 

INTEGER LSTft*«1 9* |T,3 ; 






02780150 
02780200 
027 80 250 



T 0000*0 
T 0000*0 
T OQQOJO 



• • 



*r 






1 

3 

4 

6 
7 

9 
10 

12 

13 
> M 

15 

16 
I 17 

18 

19 
| 20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

M 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 
41 
42 
43 



46 
47 
W 
49 
SO 
51 
52 
S3 
S4 
55 
56 



REAL II5TYPE320, H0LTGG»2l» ARRaYSTUFFsIB* ALGQlHEAOsI 3, SELEcT*U, 
FQR . TFHR»?4» CH R* MAXflHR * FMTw. hu ff, typf. jhdx. stzf. T^Pff 



INTlNTuS. SGN* NEEDNEWLlST ADDRESS, SCALE* R* W* D' T3«jT3» Tg# 
XTRA, 08iPREC» ARY, Tl> EXP»PARL# DECPT»E0FL# E*18» WH1*17, * 
HH?«9* C , *?Qt rnOFi Tfl , COMMAS* n t fl S flN. mi. n rt0 ; 



NAME LISTAODR* ADOR 



ARRAY T£N«22C*3, AR j*L ISTADOR C*]# TPAR»23[*J* FlBt*3 ; 



L A B E t , At 1ST. GETNFXTPHRAftF. RFPfat. tt. **. », pp. lt , on, h h . 

CC* GG> LL* FF> EE' II' DO* ERR3* TEST1, AWAY, jj, 
ERROR, BACK, OUTNUMBER* MAX, ENDALL, EDIT, BLANKS, 
FFRRHR* FX» ASK, trffWW rXj* m , nJ. F 1 . F g. * T NR Dr 



CO* NLCL* 0094, FQ95, VEflRGR, Hy, CD1 ; 
S WITCH PHRASEtSSfHH«PP.*X.TT,AA.nn.i t ..i.i.Ti.r.c. F f p f f .nn.rr i 
OEF I NE DONE .■ L S FRN = C - 1 1 t , 



ADjT, CHKC, 
QUTSUB» 



DONE 

REFU 



* LSFRNsC 

* 3 *r 



LOGICAL «'-■*'.*, 
INTEGR * 1 #," 
QflLPHFCSN a 5 f . 



COMPLEX * 6 #* 
MAXCODE ■ 15 *, 
VFRNfVFRRl? a RFfilN 



PCvFHRl U fin wFBPnp FMR »r 



ERR(EHRl) ■ BEGIN PCERR1), GO ERROR END #* 

H(H1,H2,H3,H'U a IF SC*"£ M THEN HI I D$*CHR 
FLSF RFGIN 



IF .«.■?.#". THEN H2»0S*LIT W -" ELSE 
IF SC""<L" THEN H3*DS*LIT%" ELSE 
IF sc»"*« Then ns«-L iT"f» eI _sf 
IF SC*"C" THEN DS*LIT»)" ELSE 
IF Sew M *" THEN H4tDS*LlT«»" ELSE 
IF S C* W I W THEN IF SCX"<* T HEN 



if sc* M >" then go hi else 

ELSE GO H3 EtSE GO H4 ; 
Sl-Sl+j ; 



GO H2 



TWOO * HSTYPE.C38UJ 
INQXF » £18*153 *, 



#, 



END #* 



TYPeF * 
SlZEF ■ 



[4414] *, 
C 3 3 ! 1 5 J # 



REAL SUBROUTINE NEXTCHR ; 
BEGIN 

STREAMC C»0, BUFF IT»T1»T 1*1) _ 
BEGIN D1«-lOC BUFF; DI*DI«1, 

buff*p; nlxtchR«-op ; 
FNO qf nfxtchr ; 



; 



si*Buff; ds*chr; buff*si end 



SUBROUTINE RHDAOJ J 
: BEGIN 



E«-(T<.«.p(XCH) + T2) + E> Tii*T2-T4j 
P(XCH/TENCt4]#/,,T4*l'SN*XCri) ; 
END OK HNDADJ ; 



T3*T3-T4j Vl«-1 



SUBROUTINE CONVERT 
■ ■ ',-•■. BEGIN . - . ■ 



; 



02^80300 
02780350 

Qa?an/,oo 



02760450 
02780300 
03790550 



0000*0 
000010 
0,00010 



02780600 
027Q0650 
02780700 



ooooto 

oooo »0 
ooooto 



0J780750 
02780800 
03780850 



oooo ;o 
ooooio 
o ooot o 



02780900 
02/80950 
02781000 



0000*0 

0000*0 
QQOOtQ 



02781 005 

02781050 
02 78 U 00 

02781150 T 
02781200 t 
027812^(1 T 



0000»0 

ooooto 

OQOQiO 



0000*0 
0000*0 
QOQOtn 



0000*0 
0000*0 
0000*0, 



02781300 T 
02781350 T 
0g78 l 40Q T 



02781450 
02781455 
02781460 



0000*0 
0000»0 
OOOO tp 



02781500 
02781550 
02781600 



ooooto 
ooooto 

0* - 



02781650 
02781700 
0?7817S >Q 



ooooto 

OOOOjO 

ooooto 



0000*0 
0000*0 
OQO0»0 



02781800 
02781850 
Qg7H1000 



02781950 
02782Q00 
02782050 



0000*0 

ooooto 

0000*0 



0000*0 

0000*0 
0000*0 



02782100 
02782150 
02782200 



02782250 
02782300 
0P782350 



OOOOtO 
0000*0 
0000*0 



02782400 
02782450 
Qa7B2500 



oooo*o 

0000*0 
0000*0 



02782550 
02*82600 
0g7B2ft50 



02782700 
02782705 
09782710 



0000*0 
0001*0 
0001*0 



0003 »2 
0004*3 
0006*1 



02782715 
02782720 
02782725 



0006*2 
0006*2 
0007*0 



02782730 
02782750 
02762800 



0007*0 
0012*2 
0014*1 



0014*2 
0014t2 

0015*0 



2 ( 

3 

4 

si 

6 

7 
8< 



10 

11 I 

12 

13 

14 < 

15 

16 

,7< 

18 

19 

20 ( 

21 

22 

23 ' 

24 

25 

26 ' 

27 

28 

29 I 

30 

31 

32 ( 

33 

34 

35 i 

36 

37 

38 f 

39 



42 

43 

44* 

45 

46 



47 

48 

49 

50 

51 

52 

53 ' 

54 

55 

56 ' 

37 



a 



rT 

2 
3 
4 
5 
6 
7 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



19 

20 



21 
22 



23 
24 
25 

27 
28 

29 
30 



31 
32 
33 
34 

35 
36 
37 " 
38 
39 



40 
41 
«2 
43 
44 
45 
46 
♦7 
48 
«9 
50 
51 
52 
53 
54 



55 
56 



STREAMCV«-0/<J*0*R*0#C«-0#UECPT*N«-0*W*IF' 
T«-0>J<-CiJ0EXs>/Z<-Tl<9) ; 

'BEtilN 



TU8 THEN 8 ELSE Ti«BUFF, 



0278285C 
02782900 
027 62 950 



sj*buff; duloc t * 

W(L3J IF SCS"0" THEN BEGIN T ALLY*T ALLY+t J 
Ei SE TE SCa».» THEM 



DS*CHR END 



02783000 T 
02783030 T 
021 83100 T 



0015*0 
0019*1 
0Q 2 l*2 



0021*2 
0022*0 
002312 



BEGIN 

CI+Cl+OECPTJ GC LI) GO \Jll Ll* 

r-taliy; nFfPT«.TALi y; iauJUAJ 



«*tAlly; tally+1; 
s i »s i + i i 



Cl*CI+Zi 
END 
ELSE IF HC* 



GO L3 ; 

' « THEN 



02783150 T 0024*1 
02783200 J 0024*1 
027 8 1250 J 00 25 *3 



BEGIN 
CltCI+jj 

END 



02783275 *T 
02783300 T 
02^8 3 350 T 



002711 
0028*0 
0028*0 



go .L2J tally*tally+i; OS«-CHr i 



02783400 
02783450 



0028*3 
0028*3 
QQ jQ *0 



ELSE IF Sc«"0 M THEN 

BEGIN 
r . TtCTtJ f G(l L? J Pl»p I *U S l»Sj*i j 



02783550 
02783600 

og? 8 165ft 



003010 
0030*3 
00 30 I 3 



tauly>tally+i 

END 

El, SE BEGIN 



L2* 



di*loc oecpt; qi*di*u os«.chR * 

JUMP OUT TO cv ; 

END) ; 



02783700 
02783750 
Q27838Q0 



CV* 



w«-Si; 5l*LQC T; OI*-LOC V; N«-TALL Y / DS*N OCT i 

end ; 

RUFF<-P; T3»PJ DC10»C0ECPT»P) AND CODE>10 I 



02783850 T 
02783900 T 
027B395Q T 



0032*0 
00 32*1 
0032*1 



0032*2 
0033*1 
00 33*3 



02784000 

02784050 
O?78Ai00 



0034*0 

00 35 > 2 

03 5* 3 



Tl*Tl-((C*P(XCH))^0)-P<XCH)«T3i 
IF COMMAS THEN IF C» H * W ANo NOT 
END OF CONVERT I : 



t4*p; PCXCH) I 
DC10 THEN C*0 } 



02704125 
02784150 
Q27H42QQ 



00 3 8*3 
0042*3 

QtMJM 



REAL SUBROUTINE' UEBlANKQEZERUGETSGN 
BEGIN 



STREAMCfi*0»8UFF*VL*l#SGN«-0»T2*0#Tl»T*Tl,t36l63,HADSGN*SGN) 
BEGIN SI*BUFFI 0I»T2 i 
TjfTE St*" » THfM 



02784250 
02784300 

02/a 4 3 5 Q 



02784400 
02784450 

02784500 



0046*2 
0046*2 

0Q47*Q 



004710 
0050*1 
005013 



IF SO M 0" THEN GO ENDS 
ELSE if sc s "-" THEN 
BEGIN 



02784550 
02784600 
27 fl 465 Q 



0051*3 
0052*2 
0053*1 



Ll* 



buff+tallyj tally*u sqn*tally; tally^buff; 
ci*ci+hadsgn; go l2; haosgn^dh vl*di ; 

sun ; ; 



else IF SC*"O m then 

BEGIN 

if scx"+" then if sc*"&" then 



02784700 
02784750 
02784850 



02784900 
02784950 
02785000 



0053*1 
0054*3 
005610 



0056*0 
0056*3 
0056*3 



L2» 



BEGIN 

tally»tally+ij di*loc buff; di*dw 
os»chr? enosi t2+tally i 



02785050 
02785100 
02785150 



0057*3 
0057*3 
00581? 



_GJ1 



JUMP OUT 
END ; 

li ; 



TO ENDS1 i 



02785200 
02785250 
Q27H5300 



0059*0 
0059*2 



END ELSE VL*DI 
SI*SI+1/ TALLY*TALLY+1) ; 
UI»T1> T2*TALLY ; 



02785350 
02785400 
02 7 8545 



0059*3 
0060*1 
QOOl tQ 



T(2C 32C IF SCX" " THEN 

IF SC>"0» THEN BEGIN TUDi; 
E. L SE IF s na"-" THFN 



JUMP OUT 3 TO ENDSj END 



02785500 
02785550 
02785600 



L3I 



BEGfN TAELY*i; SGN*TALL Y i I 

CI*CI*HAOSGNJ GO L4l TALL**0* HADSGN*TALLY J 

vi » tally i — : ; l : 



02785650 T 
02785700 T 
0278572S T 



0061*2 
0063*0 
6 4 * 3 



006512 
0066*0 
0867 »t 



• • 



>r 



1 

2 
3 

4 
5 
6 
7 
8 
9 
10 
11 



12 
13 
14 
IS 



16 

17 

» 
19 



20 
21 



22 
23 
24 
25 



26 
27 



28 
29 
30 

31 ~ 



12 
33 






M 
35 

36 

37™ 

38 

39 

40 

41 

42 

43 " 



45 
46 
: 47 
18 
49 
50 
51 
52 
53 
54 
55 
56 
57 



ENO 
ELSE if S>c/"0" 
BFrilN 



THEN 



-L4-L 



if sc'"*" then if se*"$ H then 

BEGIN 
DI«-OI->fl* Tl»DI| DI»I , QC 8»FF? DI » PI»1 ^- 



-40. 



OS*CHRJ 
END ; 
JJL-J 



JUMP OUT 3 TU ENDS1 



ENOSi i 



END ELSE BEGIN 
Sl*Sl + u DI*DI-8))) ; 

Burr»si I 



tallyoo; vl*taUly end ' 



END I 

Ti>p(SuB*sbH); sgn«-p; vlvp; 

nFHLANKQFZEHnfl|-TSr«M»f r»Pl>o ; 



BUFF«-P ; 



END OF 0CBLANK0E2EROGET3GN 
SllBRntlTTNP C.KPR i 



BEGIN 

MAXCH«<-PCMKi,QKADQR, t,FlLX#ALGQLREAD)x8 

BUFF»(PC»FILX)).f33tlS1 ; 



- END OF CKPB 
SllBROUTTNF INPUT 



BEGIN PCO) ' 
ENOALL 1 P(MKS»pKAOUK*CHR«.0#FlLX»A|.GOLREAP) ; 
t- IF P THEN BtG l N F Il XC NQT 3 1 »F I I. X [NOT a Un ; PtxjT) FNn ; 



ck*8 ; 

END OF 



Input t 



SUBROUTINE GG.T.NEXTLISTADDRESS ) 

BEGIN 
TF NEEnNEHHSTADORFSS THFh 



alistj 



BEGIN 
IF ARY THEN 
BEGIN 



IF TWDT THEN PC * [ AR1C INDX , [ 33 « 73 ] 3 * I N DX AND 255'CDC) 
ELSE PCCAR1CINDX] J) i 

ARY«-(INDX»lNOX»UDaLPREC) LSS SIZE ; 



END 
ELSE IF TYPE»COMPLEX THEN 

BEGIN rYP£<-»COMPLgXi 



P(CLlSTADDRC13n END 



ELSE BEGIN 

P(ARRAYSTUFF*0); L I ST AOOR* t LI $X 3 ; 
DBLPREC4.(TYPE«-LlSTYPE.TYPEF)aQBLPRECSN 



IF ARY*ARRAYSTUFF*0 THEN 

BEGIN 
IF TYPFTflMPlFX T HFN TYPr»"f.nMPLFX : 



SIZE*(INDX*-ARRAYSTUFF.INDXF) + 

ARRAYSTUFF.SIZEF ; 
P(lISTAD0R*HEHCHST AD0R.[18I15U) 



TW0T*NOT PcLOD#TOP)J 
GO ALIST ; 

FND 1 



P(DEL) i 



PCQEL*C.LlSrADORI.QJ]> 
ENU I 
NEEDNE«LISTADDRFSS»Qj AQDR»P I 



END i 

IF DONE 0* E0ITC00E«1 THEN 
SESIN UU1 GO ENQALL END I 



02765750 
02785800 
02785850 



02785900 
02785950 
02766Q00 



0067:2 
0007*2 
OQftS' 1 



02 786o5 T 
02786100 T 
0g7a6J[50 T 



0068>I 

Q0«9« 1 

OO6QI1 



02786200 
02786250 
02786300 



00* OH 
007112 

Q 7H2 



02786350 
02786400 
027864?*) 



0072*2 
Qn7?«1 



02786*50 
02786500 

02786550 



00 7 4 « 
00/4*1 
QQ/6'3 



0078*0 
0078*1 
007ftl t 



027 86600 
02786650 
02786700 



02786750 
02786800 
Q?7fl6ft50 



00 79*0 
0079*0 

0081*4- 



0082*3 
0083*0 
00 81*0 



02^86900 
02786950 

0?787QQQ 



02787300 

02787350 
03?fl7/iQO 



0083*0 
0083*1 

85* 



0089*0 
0090*0 
0090*1 



02787450 
02787500 
Qg?fl755Q 



0090*1 
009i»0 
00*1*0 



02787600 
02787650 
09787700 



02787750 

02787800 
0?'8785Q 



0091*1 
0091*3 
009?*Q 



02787900 
02787950 
0^788000 



0092*2 
009512 
QQ96»? 



02788050 
02788100 
278815Q 



0099*1 
0099 * t 
0100 *2 



02788200 
02788250 
Q27883Q0 



0102*3 
0103*1 

QlO<t» 3 



02788350 

02788400 
02*98450 



0107*0 
0108*1 
QlQ fl * 3 



02788500 
02788550 
Q27flfift5Q 



0111*0 
0112* 1 
1 13*3 



02788700 
02788750 
0?7888QO 



0115*3 
0117U 

011713 



02788850 
02788900 



T 

T 
JL 



0117*3 
0118.H 

oue*i 



0119*2 
041912 
-L2_ 



10 
11 
12 

13 
14 I 
15 
16 



18 

19 

20 I 

21 

22 

23 < 

24 

25 

26 I 

27 

28 

29 i 

30 

31 

32 1 

33 

34 

35 { 

36 

37 

38 i 

39 

40 

4,( 

42 

43 

44 f 

45 

46 



47 

48 

49 

50 

51 

52 

53 

54 

55 

56 ' 

57 



11 



1 

2 
3 



16 
17 
18 



19 
20 



22 
23 
24 
25 
26 
27 
28 



31 



34 
35 
36 

37 ~ 



41 
42 



47 
48 



•9 
50 



52 



55 



*1 



END OF UETNEXTLlSTADDRtSS ; 



SURRnijTlNF Nil- ) 



BEGIN PCXCH); GETNEXTLISTAOORESS; NEEONEWLI STAD0RtSS«.l J 

IF WH2*DBLPREC THEN WH2>AD0RC1J ; 

IF CHH1*AD0RCQ]?+4>PCFQ94) THEN 



0278895b 
02?88960 
02788965 



0122 « 3 
0i23«0 

Qi23*o 



02788970 
02788975 
Q?7flB9flQ 



012310 
0l24<3 
01271? 



BEGIN IF Tl THEN VEHRCP+10); PCUEL'FU94) £NQ 
ELSE IF PCDEL,,C-PCF'a94)),D|jP><wHl THEN P(DEL*HH1) 

pcxchj ; : : 



EN0 OF NLE f 
SUBROUTINE HANQlEVARIABLES ; 



02788985 
02788990 

02788995 



0l29«l 
013210 
0l35»O 



02789000 
02*89005 
0?7B9O10 



0135*1 
0l35»2 
Ql35*S 



BEGIN Tl<-1 '* 

IF R*PCF095J THEN 

begin pco); nle; 



11»P( f R, rSN)>0; DLRSr.N.[i8ll3J»R i 



02789015 
02789020 
02789025 



Ql36*0 
0136 » 3 
Ql37*2 



IF CQQE«29 THEN 

BEGIN P(FI*W> J 

IF R20 THEN FC[FMTCP1]*nUP*L00»PgRt6,-36*12l»XCyJ 



02789030 

02769035 
?7fl9n40 



01*113 

014212 
0i43;3 



QUTSUB* 



else pc.fi) 
pcstn) ; 

PCQEL'DEI ); 



GQ GFTNFXTPHRASF I 



02 789045 
02789050 
02789055 



0H7f0 
Ql47»3 
0148*0 



IF 



END i 
END ; 
T«<-CQDE«30 THEN 



02789060 
02789065 
Q27fl9Q70 



0149*0 
0149*0 
0149*0 



BEGIN P(2)l NLE) PC,r2>lSN) ', 
, iTREAM(Pi4.P:P2*'P(CU),p34.p(C0l)) i 
BEGIN SIH.OC PJJ SI«-SI*7; DIALOG 



P2; m»ui + i ; 



02789075 
02789080 
0278 9085 



0150*1 
0152*2 
0153*3 



32{IF SCaDC 
P1*TALLY ; 

END i :. . 



THEN JUMP QUTi TALLY*TALLY* 1> SUSI"1> ; 



02?89090 
02789095 
02789100 



0154*3 
0156*3 
0157*0 



IF (T2 AND 63)XT2 THEN PC0EL»32) ) 

IF (CUD£<-P + 3)>MAXCUDE AND Tl THEN VERRC2) 

Tt » C0QE>4 ANH Tl / 



02789i05 
02789110 
Q2789U5 



0157*1 
0159*2 
016213 



END ; 
T2*T1 I 
TF Ptcnor^ii 



ak,p r.nnr< ;i4,rrt95)»H thfm 



02789120 
02789J25 
Q278913Q 



0164*2 
0164* 2 
0165*1 



NLEL* 



BEGIN .P(,.N'4) ; 

nl£; pcxchmsd); 

en d ; 



TUP(DUP) AND T2*T2 AND k>0 ; 



IF D*PCFQ95) THEN BEGIN PC .0*6) J GO NLEU END ; 
IF C00ES4 THEN 

BEGIN IF T4 THEN * + Ri 



02789135 
02'89l40 
08789l«b 



0167 « 3 
0168*3 
1 7 3 U 



JJL 



FMTW*FMTW&(PCDUP).t4l :U + (W<0))t41 147 Jl]; GO Hv J 

END i 
NOT T2 THEN GQ QUTSUti; IF C0DFs5 THEN HV> R»1 ; 



02789150 
02789155 
Q?7H9i60 



0173*1 
0175*2 
017611 



IF PCDUP) AND 
IF T4 THEM IF 



02789165 
02789170 
02789175 



D<0 THEN VERRC16) i 
W*P(F094) THEN 
BFfilM TF COnEjtQ THFN 



VERR(A)i Htfi IMP 



VERRCR* 



ELSE IF PCDUP) AND D«P(FQ94) THEN 

BEGIN PCM ; 
T4»p f P<MKSfC0DF>R'H»D»T4»HHl»lwH2n'MTHF 



02789180 
02789185 
02789i87 



Ol'8'l 
0182*0 

oia?*o 



02789190 
02789195 
027B9200 



0184*3 
0187*1 
01 8 8*3 



0192*0 
0193*3 
Ol94*2 



(•5}<F0RTERR) i 



F094*:* 
F09ilit 



4094 



CD'** P0047676321464341 ; % OPxTaOLU 
CDt*»* •3127.262524230000.; * IGFEDCQO 

END I 



02789205 
02789210 
02789215 



0197*1 
0198*0 
0199IQ 



IF NOT 
ENO OF 



C THEN 0*0 ; 
HAN0LEVARIABLE5 



02789 220 
02789225 
027 8 9230 



02789235 
0278f240 



0200*0 
020 1 * 

2 0210 
020210 
0203*2 



027B925Q T Q 2Q1 13 



• • 



SUBROUTINE ADJUSTBUFF ; 
6UFF«-(PC*FIlX) INX 



T2.C33:i2])4T2t30l45l3] 



subroutine skip * 

if ct1«-p<xch>.) geo m then 
sf rfgin t?»chr*tu ad 



02^89300 
02789350 
5* 6 9 400 



-LL 



JU 



T1*W 
STBUFF 



END ; 



02789450 T 
02789500 T 



0203*3 
0204«0 

o aom 



02789550 T 0209*3 



0207 H 
0208 «0 



x A***********************: : cqde starts here ji************************* 



02789600 T 
02789650 T 

08769700 T 



0-3 tl«l 

021 ..in 

213 11 



FIB*FILXCN0T 23; FILX£N0T 33 
IF FI8C53.U3|23J«2 THEN P(MKS 
IF N QT ( NQT( N£F0 N E HL I $ TAnn R E 5 S 



♦parl; FILXCNOT 41*EQFU '* 
#Q#2»FILX#1#SELECT>* CKP8 I 
»FnlTcOnrc3^ OR FHTtm )THfN flQ pgRROR: 



02789750 T 

02789800 T 
027R985Q T 



0211*1 
022612 
Q?31 «n 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 

44 

45 

•6. 
47 
48 
49 
50 
61 



IF FIBC© 3=0 THEN F.IBIOJM i 

IF CLSTRN*.1)XFI6L0 3 And FIBC43 , [8 : 4 3 a 2 THEN 
BEGIN T3»4 ) 



02789900 T 
02789950 T 
027900Q0 T 



0233*2 
.Q2.3fi.l2. 
2 39* 3 



FERRORI PCMKS#FI8C73#FILX,C33U53»T3*F0RTERR) i 

eno ; 
P f 03 ; : 



02790050 T 
02790100 T 
Og70o[«in t 



0241*0 
0243*0 
Q24310 



GET NEXT PHRASE* 

R*PCFMTCFI<-FI + IJ'DUP).C6*12]7 

m»pcnup)«tia*i23^ n«-(FMTh*p( 



IF (CQ0E«-P(DUP3tCl*53)»2 THEN GO HH .* 
PUP)), [3Q>123 J 



Q.2 79.O3.OO T 
02790250 T 
0279025 5 T 



0243*1 
024311 
0247*3 



IF CXTRft«-P(DUP> AND 63),C44l2 
ELSE P(P((T4*P(0UP) ANO 15)«1 
OLRSfiN»Pi COMM ASi»P ; 



3*0 THEN P(0*0) 

2*QUP) OR T4*8*P(XCH) OR T4»4) ; 



027902*0 T 
02790265 T 
02790270 T 



0251U 
0254*2 
0259*1 



IF P. [42* 13 THEN 
IF CODEsO THEN 
: BEGIN 



IF.. CFMTW .AND 3)*0 THEN HANqLEVAR IABU E 5 ' 



02790275 T 
02790 300 T 
02790350 T 



0260*1 

0264*0 
0264*3 



IF D*0 THEN BEGI 
IF P(0UP).U8* 15 
F PC (NOT 0)*XCH 



-1 



N GETNEXTuiSTAOORESS; INPUT ENO ; 
3XFI THEN P(R*FIC18»33*153) ; 
>lNX* Q UP) . C33*l53gQ TH E N PCDE L3 E L SE F I »fI"W i 



0265*1 

0269*0 

08790500 T 0271*3 



0g790400 T 
02790450 T 
[790500 



JX. 



GO ...GETNEXTPHRASE 
END ; 
CnDE«5 THEN CHR + O 



02790550 T 

02790600 T 
79Q65< 



-oa 



U3-T- 



0276*2 
0277*0 

2 /7*0 



Repeat* 

IF C00E>5 
IF CQDE/3 



THEN BEGIN 
AMn cQorx9 



GETNEXTLISTAOORESS; NEEONEwU »TAD0REsS*-1 EnD i 

thfn , : 



0g790750 T 
02790800 f 

02*90850 T 



0279*0 
0279*0 

0281*3 



IF (CHR«-CHH+>)>MAXCHR TH 
Ti4-w; SGN«-i; E«-EXP*-0ECPT«-T2 
gp PHRASErcnOE-13 ; 



EN GO AWAY ; 
♦rtHl*WH2*0 » 



02790900 T 
02790950 T 

Q2791QQ0 T 



0283*2 
0286*1 
0291*0 



TT* CHR«-W-1 

xx» ts>«-chr; 
s sr in p u t 1 



; 

A0JUST80FF; 
fin TEST1 i 



GO TEST! i 



02791050 T 
0279U00 T 
02791150 ,T 



0300*0 
0301*1 

03031? 



U» IF NOT (NEXTCH 

IF NOT (UDDHC 

P("g"?> IF CO 



RX" " OR T1*0) THEN go ll ; 

OJ«-CX"F* ANO C* M ") AND CX M T H ) THEN GO XX ; 

Q E'l l THE N PC l 2> + 3; ERRC1 3 ; 



02791200 T 
02791250 T 
279 1 300 T 



0305*2 
0309 10 

31 2* 3 



PP* SC 
OOl P( 
01* IF 



ALEtWIFMTWll 
16>; SKIP* 
CT2 »0<8 O i 



I41UJ! 
PtDEBt 



GO TES 

ANKOE^E* 
AND T1>0 



Tl t 

qgetsgn); 
then 



IF T1»0 THEN SGN*SGN QR VI i 



02791350 t 
02791400 T 
0279 145 T 



0315*2 
0317*3 
Q 3 2 l»2 



BEGIN 
PCNEXTCHR 

I*-~ T2+T1* 



&PCXCH3C1«4:443) ; 

15 AND C>3 THEN BEGIN P(DEL3; GO 02 END Et.SE GO U^ ; 



02791500 T 
02791550 T 
02^91600, T 



0325*3 
0326*1 
328 '0 



02* 



If 
-P_t 



ENO i 

sgn then 

"Q W 3J 



PC 

i 



CH5); AODRtOJ^P* IF T2 THEN GO TEST! J 



02791650 T 
02791700 T 
2 7 917 50 T 



033H2 

033112 
0334*0 



52 
53 
34 

56 

56 

6' 



GGl if 
EE« P( 
FF« Pf 



TYPE=L0GICA 
M E"); GO ED 
w F")i GO ED 



L THEN 
IT ; 
IT ; 



GO Hi P(«G M ); GO EDIT '* 



02791800 t 
02791850 T 
Og/91900 T 



033610 
0338*0 
0338*3 



0D» P 
II* P 



:"0")* 



GO 



t 1 

;■«-.'■■ 



*%-•/■ 



.... • it, 
-..i....,; 



02791950 T 
02792000 T 
0279 2050 T 



0339*2 
O340H 
034HQ 



J? 



17 
IS 



19 

20 



22 
23 
24 



26 
27 
28 
29 
30 



34 

35 

36 

37 " 

38 

39 

40 

41 

42 



•9 

SO 



52 



55 
56 



EDIT * 



IF 



DEBLANKDEZEROGETSGN 
BEGIN 



02792100 T 0341U 



ThEN 



IF DLRSGN THEN 

IF C«"* M THEN IF NOT 0E8LANKDEZER0GETSGN THEN GO £2 i 
TF CO0E«9 THEN GO GOTNUMBER ; 



02792150 
0g/9<>2Qn 



0341»l 
CL3A2JL0 



02792250 
02792300 
Q2792350 



034212 
0342*3 

QU6t2 



IF DECPT4.C""," THEN 

BEGIN IF CQDEMO THEN ERR(2)J PCC-T1)) 
$TR F AM <H UFF fCtQ>T2»Q>THT»Tl,r36l63) ,t 



02792353 
02792360 
02792365 



O34713 
0349*0 

0352*0 



BEGIN SI*8UFF I 
UUF SC*"0 M THEN 
BEGIN 



IF Sc*" w THEN IF Sc^O* THEN 



02792370 
0?792375 
02792380 



0354*2 
0354*3 
0356*3 



IF SC<"0 M THEN 
BEGIN 
DI»L0C T2; 



PjL±p_irjJ ds-chh; tally»tai ly + i ; 



02792385 
02792390 
02*92395 



356*3 
0357*1 
0357*1 



END 
JUMP OUT 
END i 



t 

TO 



l ; 



TALLY«-TALLY + i; SI«-SI + U ' 
Dl*Tl i 

TC2C32MF SC/"n" THEN IF SCrf" 2 jHFN IF SCl-fl" THEM 



BEGIN T1*0I I 
IF SC<"0" THEN 
REfilN OI»n.T"B 



J_ 



JUMP 



ti«-di; DI.*LOC T2; DI*DI-U ds*chk ; 
END ) 

OU T 3 TO L i 



eno ; 
oi«-di-8; 



SI*SI*1 >)) J 



Turn ; 



L? aUFF*5l# T2«-TALLY i 

end ; 

ti»pcsub^ssp); c»p; buff»p; e»p»ti ; 



-JX 



IF C<10 THEN IF T1«0 THEN GO GOTNUMBER ELSE 60 E2 $ 
END t 
r.««»" THE M r.n aSki HHltl-OfCPTI GO FX1 1 1 



Eg! 



END 
ELSE IF Tl=0 THEN BEGIN SGN«-Vl 
IF CQDE<10 THEN DECPT+Ij VL»0 



OR SGN; GO GOTNUMBER END ; 



BACK! 

CONVERT ; 

IF T3«0 THEN 



IF COMMAS THEN GO CHKC ELSE P(DEL) 



ELSE BEGIN 

IF VL THEN 
BEGIN 



AOJTt 



IF OClO THEN P(T4) 
ELSE 

FCT3) ; 



ELS E 



e«-e+p; 

END 
BE GIN 



p(del) ; 



IF DC10 THEN £*E*T4«T3 
IF <T2*T2*T3)>T3 THEN 
BEGIN 



IF T2<12 THEN GO 
IF DBLPREC THEN 
BEG IN 



STNRD i 



IF 



P(DUf>»0 THEN 
BEGIN VL*1I 
T2>2 3 



IF T2>23 OR 11 mQ OR C*Q 
T2#-T2-T3* GO AOJT END t 



THEN 



02792400 
02792405 
02792010 



0358*1 
0358*1 
0358*3 



02792415 
02792420 
Q279?4?5 



02792430 
02792435 
02792440 



358*3 

359*2 

Q.VJQI3 



0362*1 
036212 
0363*0 



02792445 
02792450 
02792 45 5 



02792460 
02792465 

02792470 



0363*1 
364*1 
036 4 *1 



02792475 
02792480 
?79 2 48 5 



365*1 

0365*1 
366* 2 



0366*3 
0367*1 
367*? 



02792490 
02792495 
Q27925Q0 



0370*2 
0373*2 
0373*2 



02792505 
02792510 

Q279255Q 



0376*2 
0376*2 

oaao'o 



02792600 
02792650 
09792700 



0382*3 
0382*3 
Oaflfllfl 



02792750 
02792900 

Q 279 29 Q5 



0386*2 
0387*0 
0387*1 



02792910 
02792*15 

02792920 



0387*3 
0388*2 
Q38fl*3 



02792925 

02792930 
02792950 



02793000 
02793050 
02 7 930 75 



0389*2 
3.9.0*3. 
0390*3 



0391*1 
0393*3 
0395*3 



02793100 
0279 3125 
02793^30 



027931 35. 
O2793p0 

Q279316Q 



T 

T 



0396*0 
0397*1 
3 97*2 



0398*0 
0402*0 
flMs * n 



• • 



9 

10 
11 
12 



13 
14 



IB 
16 
17 
18 



19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



31 

\ 32 

33 

34 

) 35 

36 

37 " 
) 38 

39 

40 
I 41 

42 

43 ~ 
I 44.:.. 

45 

46 

47 

48 

49 

50 

51 

52 

w 

54 

55 

56 



BEGIN 
PCCTEN[T2- 

EN J i 



T3-12Jxp(MAX)<WHl WO* RnOAOJ 



WH2*P{0»XCH,WH2,WH1#Q#TENCT3 3#QLM,DLA,XCH) 
END 

FUSE REG IN ___ 



STNRDs 



END 
WH1*B i 
f*o i 



P.C(TE.NCT3-l2+t23XWHl>PCMAX))-12J| 
P(T£NtT3JxWHl*4) ; 

EN D i 



RNDAQJ 



chkc5 if nqt ..(cfo pr tl<0) then go back j 
end ; 

I F C>9 AND CJ-QJ - JL8 THEN Fl 5f fifl GUTNUMRFR 



EXHIF NOT <C*"E W AND 
IF C«**" OR C*"*" 



C#"D") THEN GO EX ; 

THEN BEGIN PCT2»Tt+l); SKIP; T2*P END 
Fi SE TF r_«-)» -on Hni Tnc tue-m r.n raa 1 t 



EX* IF CODE-10 THEN ...ERRC2.1J PCSGN); 
IF DEBLANK0£ZERQ(iET.S6N THEN 

b E GlN PCD EI. ) J 



5GN*EXP«-1 ; 



ERRll IF C«"*" THEN GO GOTNUMBERj ERR< t*< C0DE«10 AND C*"t")) ; 
END ; 

pcnfrpT)? — nErPT-i ; — c onvert; — tf sgjm th*^ pxssjoj r+tT^PT +E r 



decpt«-p; sgn«-p; if c>« tfiein go erhi.* 

EH IF Tl>U THEN IF NExTCHR>9 AND Cx" M THEN GO ERRl ELSE GO 
fiQTN U MBER i 



ei ; 



IF C0DE>10 THEN 

BEGIN IF NOT DECPT 

FjSf TF ___£__ T HFN 



THEN e«.e-d; IF NOT ExP THEN E«.E-SCAlE EnD 



IF (CHR«-CHR + W 
IF ABS(E>>44 then 

REGlM IF ____>68 THFM 



IF OBLPREC THEN 

BEGIN 
PCWH?*WH1) 



Tl-Ct>9) + (C=C«-"* M ))>MAXCHR [HEN GO ArtAY I 
GU £RR3; IF E<C-68) THEN, F»-68 fn p ; 



ELSE 



IF EXO THEN PC TENC ABS( E i*69 ] ,T£NC ABS (E ) ] , IF E>0 THEN P(Dl m > 

else pcdld)) ; 

_E_0 



BEGIN 
P(WHi); 

END i 



IF E*0 THEN PCrE,MCABS(E}3MF E>0 THEN P(x) £LS£ P(/))j 



If sgn then pcssn) -, 

IF TYPEslNTEGR OH TYPEslOGICAL 

begin 



THEN 



IF P(DU*)>P<MAX) THEN BEGIN 
P(CA00R£033'IS0); GO ASK J 

rND i 

PUADDR[0]3#o; IF DBLPREC THEN 
ASKJP(DEL); IF C*"*" THEN GO USTi; 
MAXlll 90607777777/77777 i 



PCOEDi ERR3I ERR<3) EnO ; 



P([ADDR[1]]* 

go xx ; 



HH» PCOEL)* IF (CHR*CHR+R)>MAXCHR THEN GO AWAY J 
STREAM(BUFF»S#S*R.C36l63#HOLTOG,Q»CFMTtFn3) f 

BEGIN _„^ 



di*di + 3; si«-buff; 

GO L2; L 1 » GO L3; 

DS»R CH«; SCDS+32 



CI«-CI+HOlTGGJ GO LU RCHCA#B,C#DJ) ; 
L2» SC2(32(H{W#X#Y*Z)))); qO L4i L3I 
CHR; 0S»32 CHR); L4l buff*si ; 



_c_± 



END %■■ 
FI*FI + ClH2).£36l?3J 



8UFF*P; GO GETNEXTPHRASE ; 



02793165 
02793l?0 

0279 3 i 80 
0279 3J as 



0279319b 
02793200 

0279 3 2 5 



02793245 
02793230 
Q;7Qa^nn 



02793350 
02/93400 



02793500 
02793510 
0270351 



0279355 
02 793600' 

0279 3 6 5 



02793700 
02793750 
0279 3800 



02793850 
02793900 
Og79 3 95 



02794000 
02794Q50 
02794100 



T 
T 

-T- 
T 
T 



02 7.-9*1.50. 
02/94200 
0?7 9 4?5n 



02794300 
02794350 
0g70a-QQ 



02794450 
02794500 
03794S5Q 



02794600 
02794650 
02794700 



0405*3 

0406* 1 
410 * 



041010 
0413*0 
4 1 3*0 



0413*2 
0418»0 
4 19 » 1 



0419*1 
0419*1 
0419*3 




0419*3 
0422*0 
0422*0 



0424*1 
0426*2 

4 3 1 » a 



0434*0 
0437J2 
04 3 91 4- 



0439)3 
O443I3 



0448*2 
0450*3 

45 5 * 2 



0455*2 
0456*1 
0461*1 



046212 
0468*1 
0*6911 



0474*0 
0474*1 
Q474>3 



0475*1 
0480*0 
049 0* 3 



02794750 
02794800 
02794850 



02794900 
02794950 
03795000 



0480*3 
0481*1 

0485*3 



0485*3 
048613 

0488*2 



02795350 
02795400 
03795410 



02795450 
02795460 
02795500 



0489*0 
0491*1 
0492*1 



0492' 1 
0494*2 
0496* ? 



02795550 
02F95600 
02795650 



0498*0 
0500*2 
0503*1 



0503U 
0516*0 
0529*1 



02795700 
02795750 
02195800 



0531*1 
0531*2 

0536*0 



ft 

2< 



10 

11' 

12 

13 

.4 I 

15 

16 



19 

20 ( 

21 

22 

23 ' 

24 

25 

26 ' 

27 

28 

29 I 

30 

31 

32, 

33 

34 

35 *3 

36 

37 

38 4 

39 

40 

4,1 

42 

43 



45 

46 

47 

48 

49 

50 < 

51 

52 

53 I 

54 

55 

56< 

57, 



ft 



N 

2 



AA» P(6); SKIP; ADURtOJMF P( CUDE*6*DUP ) THEN PCBLANK*,) ElSE 
STRLAM(T*IF P THEN 2 ELSE 8-T 1 J BUFF* T 1* HGLTOG* AQDR ) ; 

BESlN — — . . 



02795850 
02795900 

0279595 



0536 
0540 



DI*0I*T) SI*8UFF; CI+CI+H0LT06; GO LW T1(HCA#8»C'D)) ; 

go \.2t li« ds*ti chr; L2» t«-si ; 

END i ■■■'■', ■■ . 



02796000 
02796050 

279 6 1 00 



0543 
0556 
0557 



BUFF«-P ; 
TEST!: 
TF (R+,R-1)>0 



THEN GJO RFPEAT J 



02796150 
02796200 
027962'iO 



0558 
0558 
0558 



IF CXTRA ANO 3)«0 THEN 
p<xtra>; XTRA«-I*I*0 ; 

Tp PfpuPl THEM BEGTM W*P 



GO GETNExTPHRASE ; 

naisn cnoE»4* sn rfpfat fno i 



02796300 
02796350 
0g/96 » 00 



0560 
0562 
5 64 



10 

11 

12 
13 
14 
15 
16 
17 
18 



CCDE>W 
BLANKS* » S" 
ER R OR? 



R*P.[42.U.J; 



GO SS i 



02796450 
027Q6500 
02796700 



0568 
0572 
5 73 



PCFlLXCNOT 33); FILXCNQT 33*FlLXtNQT 43*0; P< MKS*9, INTlNT > ; 

T3*p(oed; T2*p ; 



AX 



02796750 
02796800 
Q2796850 



0573 

0578 
0579 



FOR TERR) ; 
END OF FTINTFIX 



02 7 96900 
02 79 7450 



0584 »0 
Q 584 11 
Zg a 58 5 W Q RO S 



19 
20 
21 
22 
23 
24 
25 
26 



procedure ftint ; 

BEGIN 



% 050 



02800000 
START OF REL SEGMENT/ DISK 
. __ _ 02800100 



0000 
ODRESS 
— 0000 



• 00327 



19 

20 ( 

21 

22 

23 ( 

24 

25 

26 { 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 i 

36 

37 

38 i 

39 

40 

41 ( 

42 

43 

44 ( 

45 

46 

47 i 

48 

49 

50 ( 

51 

52 

53 I 

54 

55 

56< 

57 



COMMENT 



FILX 
FMTA 
I.ISX 



FILE TOP 10 DESCRIPTOR 
FORMAT Urt NAMELIST OR 
ACCIDENTAL FNTRY OFSC. OR 



028Q0200 
02800300 
Q2R00400 



0000 
0000 
0000 



27 
28 
29 
30 



EOITCOOE NO FORMAT* NO LIST 

1 FORMAT* NO LIST 
I NO FORMAT, LIST 



02800500 
02800600 
Q2«0Q7Q0 



0000 

0000 

JDuOjOQ 



3 FORMAT* LIST 

4 NAMELIiT 

5 BACKSPAC E 



02800800 
02800900 
02801000 



0000 
OOOO 
0000 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 ~ 

44 

«5 

46 

47 

18 

49 

50 

51 

52 

53 

54 

55 

56 

5Z_ 



REAL 



blockoata; 



PARL 



3 
3 



-1> 
-2> 



02801100 
02801200 
Q 28QI3 Q Q 



0000 
0000 
QQQQ 



FORTERR = 24* 
EDITCUDE « -3* 
LISX - -4* 



02801 301 
02801400 

02801500. 



0000 
0000 

QQQQ 



FI 

OKAOR 

REftPI"T 



3 
* 



»6* 
-7* 



02801600 

02801700- 

03801900 



0000 
0000 
Q Q Q Q 



ARRAY 

NAME 



SELECT 
FMTA 

FILX 



= 14; 

= -5C*J; 

3 -8* 



02802000 
02802100 
029 Q 21 6Q 



0000 
0000 
Q QQQ 



Integer 
Real 



MEM 



LSTRN 
USTYPE 



2; 



19; 



02802190 
02802300 
OpaflgaOO 



0000 
0000 
QQQQ 



ARRAY 



arraystuff 

holtog 

TEN 



= 18* 

s 21; 

8 221*3' 



02802500 
02802600 
028029Q0 



0000 

0000 
QQQQ 



NAME 
REAL 



FIBt*]; 

listior; 

BUFF 



» % first Buffer position 



02803000 
02803100 
28 3200 



0000 

0000 
0000 



BSIZ.E 

NBC* 
NFCt> 



* % arguments 



02803300 
028034 00 
02 8 3600 



0000 

0000 

-0000 



0H1* 
HH1 

HH2I 



* % 



02803700 
02803800 

ogfloaooo 



0000 
01300 
0000 



• • 



>T 



2 
3 

4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



NAME 

ARRAY 

INTEGER 



wi; 

ioauFF 

RPT. 



* buffc*j; 



W 

BOTYR 

WT 



FIELD 



02804100 
02804200 

02804300,, 



000010 
0000*0 

ooonio 



WIDTH 



02804400 T 
02804500 T 



000010 
0000*0 



02804600 T — 0000 tQ 



Tl 

D 



> X 

> X 

-* — X- 



DEC- 



I M AL P* . 



02804700 
02804800 



T 000010 
T 0000*0 



0280 4 9 T OQ O OtO 



01 
02 

CNT. 



> X 
» X 



LA- 
CE* 



02805000 T OOOOtO 
02805100 T 0000*0 
08805200 T — 0000*0 



EXP 
EXPSGN* 

cnnE 



> % EXPONENT 



EDITING FUNCTION 



02805300 T 0000*0 
02805400 T 0000 I 
0280^500 T 0000*0 



SKP 

NCR 
LCH 



X 

X 
JL 



Redunoant positions 
current buffer position 

BUFPPR STZp IN CwAftAffTr RS 



02805600 T 0000*0 
02805700 t 0000*0 
08805800 T Oflflfl-LQ 



CHR 

PRCW 

PCT/ 



Or 

X.'. PAREN CONTROL 
% PARLfr CnUNTFR 



CURRENT CHAR FROM FORMAT 
WORD 



02805900 T 0000*0 
02805910 T 0000*0 
Q2»n59?0 T 0000*0 



19 

20 



BOOLEAN 



PS 
OONETOG 

_S_GJ* 



J X SCALE FACTOR 
» X RETURN AFTER HRITE 
^_J SJJifl 



02806000 T 0000*0 
02806100 T 0000*0 
0?80ft?00 T OQOOtO 



22 
23 
24 



FR.TOG* 

LGTG* 

OTAERRf 



% TRUE IF NUM HAS FRACTION PART 



028Q6210 T 0000*0 
02806300 T 0000*0 
02806 4 00 T 000 *0 



25 
26 
27 
28 
29 
30 



FMERBTQG 
GTOG* 
CTflG» 



p X 



FORMAT ERROR 



02806500 t 0000*0 
02806700 T 0000*0 
02806000 T 0000*0 



DEFINE 



LQGV 

INTEGV 

STRGV 



3 <**» 
*1## 



02806900 T 0000*0 
02807000 T 0000*0 
02807100 T 0000*0 



31 
32 



34 
35 



DBLV 
CMPLXV 

NUM « 



5*, 
6#, 



JZJU. 



GTYPE 
FTYPE 
ETYPF 



= 3«> 



02807300 
02807400 
02807600 



000010 
0000*0 
000010 



02807800 

02807900 

QafloanQQ 



OOOOtO 
0000*0 
0000*0 



37 
38 



DTYPE 
ITYPE 
LTYPE 



s 4*# 

3 5#, 

*■■ 6#* 



02808100 T 
028Q8200 T 

Qgaosaoo T 



0000*0 
0000*0 
0000*0 



40 
41 
42 
43 



ATYPE 
OTYPE 
MNP 



It* 
■■ CFIB[43 



C8143 )»» 



02808400 T 
02808500 T 
02808600 T 



0000*0 
0000*0 
0000*0 



45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 
55 
56 
57 



TAPEF 

MAX 

EL MTYP 



<2#, 

*777f777777777#» 
' LISTYPE . C44*43»> 



02808800 T 
02809000 T 
026Q91 00 T 



0000*0 
0000*0 
O QOOtO 



DLN 
CMPLX 

TW C1D 



* (LISTYPE. [4414] • DBLV)#> 
= (LISTYPE. [44:4] « CMPLXV)## 
« LlSTYPE.r3fl*U»# 



02809200 T 
02809300 t 
02809400 T 



0000*0 
0000*0 
0000*0 



LPPS 
LPPR 
RPTF 



* 15*30*181* 

* tl5»l83#* 
» [33tl53«, 



02809500 T 
02809600 T 
28097 00 T 



OOOOtO 
0000*0 
QQ QQ tQ 



NORF * (P(XCH*DUP) < Q>#» 
PCF = [916J#» 
ENQLI ST - ( LSTRN ■ f m«. 



L ABEL 



SJZEF 
BASEF 
T Y PER R i 



* CIS* 15311 
C« FMFRR> 



MOW* FNOL, FMTLST, FRMTCD* NrPH. 



02809800 T 
02809810 T 
0280990, T 



0000*0 
0000*0 
QOQQ'O 



02810000 T 
0281^100 T 
026 10 tOQ T 



0000*0 
0000*0 

ooooin 



J0 



m • 



rf 

2 
3 

4 
5 



STRT»REPEAT'LPAR>KrPAR#i)LASH,STHING*TKMT/FMTEKH* 
CL1»CL2»CL3»CL«»SCAL»H0L#SkIP^CL3A»5TRA#TFmA»TIX» 
Gf FfFf [)Cf I/L>A,>U>Cnrth> : — . 



02810400 T 0000«0 
028)0500 T 000010 
02.8 1 6 00 T 000 *0 



LL*LL1J 

Comment ***** start of subroutine declarations * * ******; 

SUBROUTINF QKPB1 



02810900 T 0000(0 
028 it 000 t 0000 10 
02B1U0O T QOQgln 



BEGIN COMMENT INITIALIZE FILE AND ACQUIRE RECORD SIZE; 

LCR * 8*CBSlZE «• P(MKS*UKA0RM'FILX,READINT)); 

B UFF <• (»F !LX)tC33Mi>3; NCR «• OJ 



028U200 t 
02811300 T 
Q281U0Q T 



ooono 

OOOi:o 
0003*3 



end ckpb; 
subroutine 
bfgin 



READSI 



02811500 T 
02811600 T 
Q2flll70Q T 



0000*0 
0006*1 
000710 



10 

ii 

12 



p(mks,dkadr».0#.fuxf readint); 
if dcnetog then pcxit>; 

j SET OMIT s NOT ( T IMfcSHAR ING ) 



02811800 T 
02 811900 T 
02 8 11 909 T 



000710 

0008*1 
0009*1 



13 
14 
15 



IF NOT (C*FXLX)»Cl9tin 

$ reset omit 

ckpb; 



THEN P(FILX»*2000000000,2#COM#OEL#DEL); 



02812000 t 0009|{ 

02812001 T 0012*2 
Q26122Q0 T — 0012*2 



13 
14 1 

15 



16 
17 
18 



end reads; 
label nfcl; 
real s ubrout i n e 



njc; 



02812300 T 0014*0. 
02812400 T 0016*0 
02812500 T 0016*0 



19 

20 
21 



BEGIN 

NFCL* 
WHILE NFC! 



[ 45 » 3 3 < 2 nO NFCT t NFCI ♦ 1 



02812600 T 
02812700 T 
02812800 T 



0016*0 
0016*0 

0016*0 



22 
23 
24 

» 

26 
27 
28 
29 

30 



STREAVCP1 «• 0*P2 *FMl A t NFC I . C 30 « 15 } ) ,P3 * NFCI, [45:33); 

BEGIN DI * LOC Pi; DS «■ 7 LIT "0"; 
Si t L OC P2; §i » s i + P3;p§ » CHR; 



02812900 T 
02813000 T 
0?8l3tOQ T 



00l9'2 
0022*1 
002313 



BEGIN 



SI 
IF 



*■ Si 
SC < 



• i* DI ".*■ 
*A" THEN 



di - i; 



02813200 T 0024*3 
02813300 T 0025*1 
Q28l3fl Q Q T 25 X3 



IF 

IF 

_UF_ 



Sc » 

SC » 

_S£_JL 



m r »t 



THEN 
THEN 
T h EN 



DS 
OS 
J15. 



«■ LIT 
♦ ulT 
-LIT 



tintt £|_SE 
ELSE 



M )«• 



"("/ 



02813500 T 0025*3 
02813600 T 0027*0 
Q28137QQ T 0028*1 



31 
32 
33 



end; 

E*D* 
N F CI ♦ NFCI 



+ II IF (CHR » P) s « » THEN IF NOT LGTG THEN GO NFCL; 



02813800 T 
02813900 T 
02814000 T 



0029*1 
0029*1 
0029?? 



34 

35 
36 



NFC «• chr; 
end nfc; 
subroutine put; 



02814100 T 0033*0 
02814200 T 0033*2 
02814300 T 0033*3 



BEGIN ; 



WHILE NfCI.C45*33 <2 
STRrAK(P9»trMTAfNFCT, 



DO NFCI 
C3QU5 



1531 



* NFCI * 19 
I»P3»NFCl«[45*3 3,F4»NBc)i 



02814400 T 0034*0 
02814500 T 0034*0 
Q2»146Q0 T 0037*2 



40 
41 
42 
43 



BEGIN 



si «■ LUC pft; si«-siti; 

ti l » P2T D I + DI + P3 / QS*- CHR i 



02814700 T 
02814800 T 
028 1 4900 T 



0040*0 
00 40*0 
0040 S 2 



45 
46 
47 
48 
49 
50 
61 
52 
53 
54 
55 
56 



ENO* 
EN D PU T/ 



NFCI * NFCI +i; 



0041*2 

0041*3 

02815200 T 0043*0 



02«150 
028 



1500* T 
I5ldf T 



SUBROUTINE GET; 

begin; 

, STR E AM(M *-l N B CJ»P2 » BUFF ); 



02815300 t 
02815400 T 
02815500 T 



004311 
0044*0 
0044*0 



BEGIN 



Si ♦ F2J 01. ♦ 9X9 

or * oi + u ds » chr; 



028156,00 T 
02115700 T 
02815800 T 



0045*1 
004J«l 
0045*3 



Pi * si; 

end; 



02815900 T 
02816000 T 
02816100 T 



0046*1 
00 46*2 
0046* 3 



*2_ 



BEGIN 



IF HOLTOG THEN 

IF (HBC » NBf.yt6l63) a »f« THEN NBf. » *i w E1.SE 



02816200 T 
02816300 f 
0gfll64Q0 t 



00471 1 
0047*2 
QJOA&XO 



• • 



IF 

IF 

XF_ 



NBC = 
NBC = 
NBC • 






THEN 

THEN 
THFN 



NBC 
NBC 
NBC 



FNDJ 



IF NBC * ■*#" THEN NBC 
NBC * 0&NBCC6t 42163; 



M + It 

n fit 
W j M 



4, WWW j 



ELSE 
ELSE 






END 



get; 

% parameters 

BOOLEAN ATOSfTWDT; 



FOR LIST CONTROL 



ARRAY AR1 • LI$TADRt*3J 

INTEGER iNQX' SUE) 
LABEL RTM ST,SfiTl 



12 



13 



DEFINE NXT.ELM = IF THDT. 
SUBRQUTINF G^TLIST/ 



THEN PC*CARitlNOX i (33l7]3 3MNOX,C40lB]#CDc) 
ELSE [AR1C1NDX3]>; 



IS 



BEGIN 
SrT* IF 
BFGIN 



ATQG THEN 



18 



20 



BEGIN 



wi «• nxtelm; 

INDX «• INDX + CLN; 
IF (INQX »INQX ♦ , i) 



S SIZE T hE N 



21 



ARRAYSTUFF ♦ OJ 
ATD6 » FALSE! 






24 
2S 
26 
27 
2B 



end; 



gu to rt.nlst; 



IF CTOG THEN 
BEGIN * IMAGINARY PART 

wi » fLTSTAQRrnn 



OF COMPLEX 



fnd; 



CTOG ♦■ FA USE; 

GO TO rtnlst; 



32 



P<OH 

LI8TA0R -■•■ UISX3; 

TF ARRAYSTUFF * 



BEGIN 



THFN 



36 



ATQG «• TRUE; 

THPT+NQT PC*(L15TADR»MEM[LISTA0R. [18*1531). TOPU P(DEL) 



39 



en d; 



SlZE«-(lNDX*ARRAYSTUFF.8ASEF>*ARRAYSTUFF f SlZEF 
GO TO S8TJ 



42 



W.l * [LlSTADRtOJj; 

p(del); 

CTOG «• cmplx; 



RTNLST* 
END GETLIST; 
SuBROllTlNF FORMATCQKTRni ; 



BEGIN 

STRT* 



•9 
SO 



w»d«.cgpf<-skp<.rpt»q; 



SGN*D0NETOG*FMERRT06tFALS£; 
CL1* COMMENT; C«6CK FOR SINGU6 CHARACTER EDITING TYPES; 
IF NfeS9 THEN GO TO REPEAT; % MUST BE REPEAT FIELD 



53 
54 



IF 
IF 
IF 



CHR»"( M 
CHR* M ) M 
CHR""/"" 



THEN 
THEN 
THEN 



GO 
GO 
GO 



lpar; 

rtpar; 

slash; 



--'"■■ ■•■ 



-• : -'-- 



,CHRW»:T* 



m, string; 
m w tfmt; 



02816500 
02816600 
02^16700 



02816800 
026 16900 
Q2fll70QQ 



005110 
O0S3J2 
00f)6 »0 



02817100 
02817200 
Q2A171Q0 



0Q5e*2 
0061 <0 
Q062 I 3 



0062 I 3 
0063*0 
0063*0 



02817400 

02817600 
09*\lrat> 



006310 

0063»0 
QQ6 3*fl 



2817800 
02817900 

OPfllBOOO 



0063*0 
0063*0 
0063*0 



02818100 
02818200 



02818400 
02818500 
02818600 



006310 
0063*0 
006 3*1 



006 3*3 
0068*1 
007QI? 



02818700 
02818800 
Q2B1B9Q0 



0072*1 
0072*3 
00711? 



02819000 
02819100 
02fU9 2 00 



02819300 
02819400 

Q2» ifrson 



0074*1 
0074 1 1 
Q07fl*3 



02819600 
02819700 
02819B00 



0074*3 
0075*0 
0075*2 



02819900 

02820000 

09820^00 



0076*3 
0077*2 
0078*0 



0078*0 

0078*1 
0079*0 



02820200 
02820300 
02820400 



0079*3 
0080«1 
Q 8l* Q 



02820700 
02820800 
Qyflooono 



02821000 
02821100 
Q28?1?Q0 



0084*2 
0087*1 
00 87*3 



0087»3 
0088*2 
QQ8B*3 



02821300 
02821400 
0262HQQ 



02621600 
02821700 
0P8218QQ 



0090*2 
0090*2 
0090 13 



02B21900 
02822000 
02822100 



0091*0 
0091*0 
0091*0 



009 3*3 



0095*2 



02822200 
02822300 
2882400 



02B22S00 
02122600 



0098*0 
0099*1 

O tO0 ' 2 



0101*3 
0103*0 

010^1 



T< 



10 



13 



18 



22 
23 * 



25 
26 



29 I 



32 



34 



36 

37 



39 



42 

43 



a 



53 ■ 



55 

56 I 



2 
3 
4 
5 



BEGIN 



IF SGN THEN 
I 
IF N FCS 9 TH EN fij TO RE PEAT 



02822700 T 
02822800 T 
02 8 229 00 T 0- 



07*0 
07!l 
0-ZJL3- 



ENDJ 



ELSE GO "IU FMTERRI 



IF CHR»"t" THEN GO TO STRTi 



02823000 T 
02823100 T 
02823200 T — 



09*2 
1012 
1 0*2 



RPT«-1/ 
Ct 2 * COMMENT TYPES WHICH MAY hAVE REPEAT FIELDS* 

IF SGN THEN RPT»-RPT; 



02823300 T 
02823400 T 
02823500 T Q 



11*3 
12*2 

4-2X2- 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



IF CHR* M P» THEN GO TO SCAlJ 
IF RPT<0 OR SGN.C2H3 THEN GO 
IF CHR»w(" THEN G q T0 LPAR; 



TO fmterr; 



02823600 T 
02823700 T 
Q2fl?3ftQQ T Q 



14*1 
15*2 

lfl»0 



IF Chf?s"H" THEN GO TO HOLi 

IF RP1*0 THEN RPT«-i; 

IF CHH « "X" THFN GO TO SKIP; 



02823900 T 
02824000 T 
Q28241QQ T 



19*1 

20*2 
22*2 



CL3* COMMENT TYPES WHICH HAVE W FIELDSJ 

IF CHR*"I M THEN CODE <• ITYPE ELSe 
IF CHH«"A» THFN CODE «• ATYPF ELSF 



028 24200 T 
02824300 T 

QpfljaaoQ T a 



23S3 

23*3 

2s n 



IF CHRa"L M 
IF CHRs w O" 
F CQQE ?, ITY 



THEN CODE * LTYRE ELSE 

THEN CODE «• QTYPEI 
PF THEN Gn TCI CL3A/ 



02824500 T 
02824600 T 
02824700 T 



28 ?1 
30*3 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



CL^» COMMENT TYPES WIT 

IF CHR*"0 M TH 

IF C hR«"E" T 



h w and fields; 

EN CODE * DTYPE ELSE 
HEN CODE » ETYPE ELSE 



02824800 T 
02824900 T 
03825000 T Q 



34*2 
34*2 
16*2 



IF CHR=»F" 
IF CHR="G" 
GO TO FMTiRR* 



THEN CODE ..* FTYPE ELSE 
THEN CODE * GTYPE ELSE 



CI_3A* COMMENT DEVELOP V 
IF NFC>9 THEN 

w»CHR* ' ■■':"';, ■■■■' 



alue of w field; 
go to fwtirr; 



«HlLE NFC<9 DG >«-lOxw + CHR; % CONVERT TO OCTAL 

NFfil*NFCI-l# 

I F W>63 TH EN G Q TO FHTFRR? 



02825100 T 
02825200 T 

0g825300 T — -ft 



02825400 T 
02825500 T 

g8gS6OO T 



3g*o 
41*2 
4 410 



02825700 T .0 
02825800 T 
02825900 T 4 



4410 
44 »0 
' 1 6 * 



46*3 

51*1 

$2X2- 



IF CODEilTYPE 
COMMENT DEVELOP D 
IF MFCX« f « TM 



then go tix; 
fielo; 

fH RO Tn FMTfRR: 



02826000 T 
02826100 T 
0282 62 00 T 



33*3 

55*0 
55*0 



if nfc>9 then 

q*chr; 

while nfcs9 



go to fmterr; 

G DMOxu + C HR; * CONV E RT TO OCTA L 



02826300 T 
02826400 T. 
029?6*iQ0 T Q. 



57*0 
59*0 
5_9J_3_ 



LPARt 



NFCI*NFCI-i; 

go to tix; 

COMMENT GENE R1T E 



PAREN CONTROL WORD* 



02826600 f 
02826700 T 
02l26ftQft T Q 



64*1 

65«2 
&6tfl 



IF PCT*0 AND 
Tl «. RHT4NFCI 
IF PCf S 1 TH 



RPT = ThLN RPT«-l ; 

[LPPSU(RPTS0H1*47« 1]; 

EN PRCW f Tl i PCTC9>4?>63; 



02826810 T 
02826900 T 
02P26910 T 



66*0 
69*0 
72*1 



45 
46 
47 
(8 
49 
50 
51 
52 
53 
54 
55 
56 



RTPARl 



P(Tl#XCH); PCT «• PCT ♦ i; 
GO TO STRTI 
C OM ME NT POIN T AT L EFT PA R IF R EP F AT N OT EXAUSTEOi 



02826920 T 
02827000 T 
02827100 T 0- 



75*1 
77*0 
7713 



IF NORF THEN 
BEGIN * NO REP 
D Q NETUO <■ EN D 



EAT FIELD 
LI ST i 



02827200 T 
02827300 T 
Q2B274Q0 T Q 



77*2 
78*2 
7 910 



reads; 

if cpct ♦ pct 

then begin p 



• 1) S THEN IF PRCW, PCF *Q 
(XCH,PRCw); PCT » 2 END ELSE PCT » ll 



02827500 T 
02827510 T 
Q26 ?75 ?Q T Q_ 



80*2 
82(0 
85*0 



END ELSE 
BEGIN 
IF CR PT»pC D UP) , RPTF ) * 1 



02827600 T 
02827700 T 
02827800 T Q- 



88*2 
88*2 

89*0 



THEN BEGIN PCQEDJPCT * PCT • II GO TO STRT END 
ELSE PCRPT * 1*CCX); 



end; 



02827900 T 
02828000 T 
Q2B281Q0 T a 



90*1 
93*1 
94 t 3 



• • 



10 

11 



13 



16 
17 



19 

20 



22 
23 
24 
25 
26 
27 
28 



» 
31 ~ 
12 
33 



34 
35 
36 

37 " 



38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



nfci«-pcdup).lppr; 
pcxchj; 

60, TO STRT? 



* RESET TO LEFT PAREN 



repeat* comment convert repeat field to octal in r*tj 
«pt*chr; 

whUE NFn<9 nn rpt* inxRPT*rnBi 



SLASH! 



GU TO CL2) 
X READ NEXT 
REAPS* 



RECORD 



STRING* 



GO TO 5>TRT> 
% MOVE STRING 
LOT ft » TRUei 



FROM BUFFER TO FORMAT 



STRA! 



GET! PUT! NCR <■ NCR ..+. 1) 

IF NFC = """ THEN BEGIN ...LGTG.fr. FALSE; GO TO STRT END* 

IF (NCR * NCR t U > jCR THEN GO TO FMTERRJ 



get; nfci * nfcim* 

put; 

go to 5trai 



TFWT' COMMENT SET BUFFER 

FQLLQMNG M T"i 

IF (RP7+NFC)>S 



TO CHARACTER POSITION INDICATED BY TlEuO 
THFN GO TO FMTFRR? 



WHILE NFCS9 00 RPT«-lOxRPT*CHR * 

IF RtT>LCR THEN GO TO FMTERR; 
MCR«-RPT-tt 



tfmal buff .♦ cofilx) in* ncr. c 33 i 12] uncrc 30 i 45 j 33 ; 

go to strt; 
scall comment scale factor pf p phrasf; 



HQL» 



ps*rpt; 
go to strt; 

COMMENT HOUFRITH STRfNGt 



BEGIN 



HH.ILE. HPT > DO 

I . 

IF (NCR <• NCR ± 1) > LCR ThEN GO TO FmTERR; 



en d; 



get; put; 
rpt*bpt-i; 



go to strt; 
skip! comment x phrase; 
if (ncr » ncr+rpt) 



tix; 



fmterr* 



go to tfma; 
fmerrtog*tRue; 



> LCR THEN GO TO FmTERR; 



end formatcontrol; 
subroutine skpc; % 
bfgin; » 



SKIPS CURRENT 
IN NBC 



CHARACTERS, PUTS NEXT CHARACTERS 



STREAM<Ri«-BUFF#P2«-0IP3«.Q); 
BEGIN 

si » pi; si » si ♦!; pi 



01 



LUc P2; DI * DI+7 



» si; 

OS «- 



chr; 



end; 
nbc «• 



p; biff «• p 



51 
52 
53 
54 



wt «• wt *i; 

END SKPCI 
SUBROUTINE SCALE* 



begin 



55 

56 



IF (01 ♦ Dl + CNT )"">' 11 
THEN DOUBLE ( HH 1»HH2» T EN [CNT] » TENE 69+CNT ] »x» 



:¥!,, 



liii 



;^v 




DHl*'0**»»».NHi»MH2) 
* *»H4 : xTENCCNTJ*0Hi; 



02828200 
02828300 
0282 8 4 00 



02828500 
02828600 
02828700 



02828800 
02828900 
02 8 29000 



0l94> 3 
0l96»0 



019613 
019613 
0197*2 



02829J00 
02829200 



020 2 » i 
020213 

0202 8 3, 



0204*0 
0204 « 2 
Q 204 12 



02829400 
Q 28 29 500 
28 2 96 Q 



02829700 
02829800 

0g829900 



02830000 
02830100 
02830200 



0205*1 
0208*1 
0211* 1 



0213*2 
0216*1 
0217*0 



T 

T 

-T- 



0217*2 
0217*2 
Q217*2- 



02830300 
02630400 
02830500 



02830600 
02830700 

02B30800 



T 
T 

-T- 



0220*2 
0225*1 
0226*2 



02830900 
02831000 
02831100 



028 31200 
02831300 
2831 4 QQ 



0227*3 

0230*3 
83 11) 



0231*1 
0232*0 
02 3 2*2 



0232*2 
0233*3 
23 3M 



02831500 
02831600 
02S317QQ 



02831800 
02831900 
Q?832qqo 



0236*0 
0238*0 
Q239M 



02832100 
02832200 
0?832300 



0239*3 
02«0*1 
02^0*1 



02832400 
02832500 
02832600 



0242*2 
0243*0 
0243*3 



02832700 
02832800 
02832900 



02833000 
02833100 
02833200 



0243*3 
0244*0 
0244*0 



02833300 
02833400 
•028 335 00 



0244*0 
0245*2 



0246*1 
0247*0 
0247*1 



0248*1 
0249*2 

0249* 3 



02833600 
02833700 
02833800 
02833900 
02 834000 

o g a m oo 



0250*0 
0250*0 
025]j*l 



T 

T 



0^54*3 
0256H 
j59*0 



57J 



2 

3 

4 

5 

6 

I 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

»3~ 

** 

«6 
46 

47 
•8 



end scale; 
subroutine getnum; 
begin; 



02834200 T 
02834300 T 
02 83 4 4 00 T 



0259*3 
0260*0 

026.0*0 



STREAM(Bl«-eUFF#P2*IF WT S 8 THEN WT ELSE 8# P3*0»p4*0 1 P5*0 ) i 
BEGIN 
Sl»F1i DI+LOC P5 I ■,-,- ■■ ■ ■ - . - 



02834500 T 
02834600 T 
0g 83 4700 T 



026010 
026410 
0264*0 



P2CIF SC< M 0" THEN 

IF SO" " THEN 
IF S Ci w P w THEN BEGIN DS+LIT" Q"; SI+S l+ liGQ u END 



02834800 T 
02834900 T 
028^5000 t 



0264.2 
0265*2 
0266*0 



-U- 



ELSE JUMP OUT ; 
OS*CHR I 
TALLY»TALLYM> i 



02835100 T 0267*2 
02835200 T 0268*1 
02 8 15300 T 0268* f 



P2*tally; pk-si ; 

si«-lqc psroittoc P3/ ds*r2 .oct ; 

Sl»Pl i 



02835400 T 0.2691.0 
02835500 T 0269*2 
28356 00 T 02/0 * 2 



di «• loc P4; oi * oi ♦ 7; os * chr; 
end; 

NflC » PI QHi *■ P* CNT * PI RUFF » P* 



02835700 T 0270*3 
02835800 T 027i*2 
02835900 T 027U3 



END GETNUMi 
SUBROUTINE GETSlGNi 

begin; 



028 36000 T 
02836100 T 



0263 6 20 T Og7 4» 



027 3*3 
0274*0 



STREAM(Plt.8UFF*P2*(IF «T > 63 THEN 63 ELSE WT },p3*Q,p4«.(.i ) * 

P5*0); 
RFfilM . ; , 



02836300 T 
02836310 T 
02836400 T 



0274*0 
0277*2 
02/8*1 



SI«-P1J Dl«-P2 ; 

P2CQI«-DI"8.; IF ScX" " THEN JUMP OUT TO LU 
SI t S I ± U TAL L Y t TALLY ,» l)i 



02836500 T 
02836600 T 

02836700 T 



0278*1 
0278*3 
28 0* 2 



Pi * si; 
GO to rtnsgn; 
_lu i f SC * "Q w Th e n 



02836800 T 
02836900 T 
Q28T700Q T 



0281*1 
028l»2 

o?am 



BEGIN 

L3: P2 *■ tally; 

L2* P5(Pl»0i; TALLY»P2; PlCIF " SC* W " THEN 



028373,00 T 
02837200 T 
028 37 300 T 



0282*1 
0282* 1 

0282 '? 



JUMP OUT; TALLY*TALLY + 1J SI*SX*t>l P2*TALLY); P^SI ; 
01 ♦ LOC P4J OS «• 7 LIT W M I OS ♦ CHR; 

GO to rtnsgn; 



02837310 T 
02837400 T 
Q 28375QQ T 



0285*0 
0287*0 



end; 



IF SC =%" THEN GO TO L3; 
TALLY + TALLY+i; 



02837600 T 
02837700 T 
0?837a00 T 



0289*0 
0289*0 
0289*3 



P2 + tally; 

TALLY«-i; P5*TALLY ; 

IF SC»"-" THEN TALLY+1 ELSE IF SC»"+" THEN TALLY+O ELSE 



02837900 T 
02838000 T 
O 2838Q10 T 



0290*0 
0290*1 
0290*3 



if sc* M &" then tally*o else 

begin tally*-o; putally; gu to rtnsgn end; 
P3 «• tally; 



02838q20 T 
02838025 T 
283 8 I QQ T 



0292*3 
0293:3 

g 9 4 1 ? 



SI *■ si •♦ 1; 

GO TO L2; 
RTNSsNl 



02 8 382OO T 
02838300 T 
Q283B4Q T 



©2114*3 
0295*0 
295 *1 



end; 

nbc*p; sgn*p; cnt*p; otaerr«-ubuff*P)*0) ; 
end getsign; 



02838500 T 
02838600 T 
02838700 T 



0295*1 
0295*2 
0.298*2 



49 
SO 
51 
52 
53 
54 
55 
56 
67 



label nc8tn,blsgn; 
subroutine numconvert; 
be gin 



02838800 T 
02838*00 T 
Q P839QQ Q T 



0098*3 
0298*3 
Q2V 9*0 



QH1 ♦ 01 ♦ 02 ♦ EXP ♦• EXpSGN «■ FRTQG «-0; 

WH1 «• WH2 .♦ -O; 

XT » JjJ , 



02839100 T 0299*0 
02839200. T 0302*1 
02839300 T 0303*3 



SLSGNt 

getsign; 

IF D TA FBft TM F N 



GO TO NCRT N i 



02839310 T 
02839400 T 
02839405 f 



0304*2 
0304*2 
0306*0 



_E? 



• • 



WT ♦ WT - CNT; IF NBC <0 
THEN If WT < THEN GO 
IF NRC S 9 THFN 



% BLANK FIELD 
TO NCRTN ELSE GO TO BLSGNj 



BEGIN 



getnum; nhi * OHi; 

IF <WT » WT - (Dl » CNT>) i THEN GO TO NCRTNj 



02839500 
02839510 
02839600 



02839700 
02839800 



0307:0 
0308*3 



0312*0 
0312*2 



02 83 99 T — 0344-4-3 



BEGIN 



WHILE NBCS9 OR NB.Cs" " OR NBC»"Q" DQ 
I 
GETNtJMI SCALFi 



02840000 T 
02840100 T 
02fiUQ2QQ T 



0317*2 
03201 3 
0320* 3 



9 
10 
11 
12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

SO 

51 

52 

53 

54 

56 

56'* 



END/ 
ENDJ 



IF <WT «• WT-CNT> S THEN GO TO NCRTN; 



02840300 t 
O284O4OO T 
02840500 T 



0323*0 

325*1 
032513 



IF NBC 



"»" THEN 



BEGIN 



fhtog » trui; 



02840600 T 
02840700 T 
02840800 T 



0325*3 
326*2 
0327*0 



SKUCI 

IF WTSO THEN GO TO NCRTN } 

WHILE NBCS9 OR NSC»" " OR NBCs"Q w DO 



02840900 T 
02840910 T 
09841000 T 



0327*3 
0329*0 
033011 



BEGIN 



getnum; scale; 
02 t Q? t cnt; 



02841100 T 
02841200 T 
02841300 



J- 



3 33 J 2 
0333*2 
3 36»-0- 



END* 

en d; 



IF ( WT ♦ WT - CNT) i THEN GO TO NCRTNJ 



02841400 T 
02841500 T 
02841600 T 



0337*1 

0339*2 

034010 



IF NBC a "0" OK NBC * "E" ThEN SKPC/ 

IF WTSO THEN BEGIN DTAEKR*tRUE; GO TO NCRTN END / 

IF (NBC« ,, + "? QR,(NBC«"& w ) QR (NRC* w w ) OR (EXPSfiN* ( NBC 8 "-" 3 ? 



02841700 T 
02841710 T 
02841800 T 



0340«0 
0343*0 
34^*2 



THEN SKPCJ 
IF WT$0 THEN BEGIN DT AERR«-TRUEJ 
IF NBC > ?9" TH EN nUERH » TRUE 



GO TO NCRTN END i 



02841900 T 
02841910 T 
02842000 T 



0349*0 
0351*0 

353 12 



BEGIN 



ELSE 

I 
GE TNU M i 



02842100 T 
02842200 T 
Q 26 4 2 30,0 T 



.0355*0 
0355*2 
3 56 * 



EXP ••■ IT EXPSQN THEN C-DH1) ELSE OHli 
IF (WTtvWT»CNT) S THEN GO TO NCRTNJ 
WHILF WT > DO SKPCi : 



02842400 T 

284 25OO T 
03842600 T 



0357*0 



359 

0361 



end; 

NCRTN: 
JJL 



WH1 » THEN IF SGN THEN WH1 » -0J 



02842700 T 0364 
02842800 T O364 
26*2 90 T Q364 



end numconvert; 
Subroutine convert* 

BFG1N 



02843000 T 0367 
02843100 T 0367 
02 8432 00 T 3 6 8 



WH1 «■ WH2 «■ O; WT *•«; 
GO TO P(COUt,DUP#ADD); 

go to'Tbebrj 



02843300 T O368 
02843400 T 0370 
02843500 T 0371 



GO 

GO 



_D_I_ 



TO GJ GO 

TO ii GO 

% OCTAL 



TO f; go to E; 
to a; go to 0; 
co n version 



GO TO OC; GO TO I* 



02843600 T Q3?l 
02843700 T 0374 
2 643 8 00 T 375 



IF W>16 THEN SKP<-W-WT«-16 ELH SKp<-0 ; 

STREAMCPl*BUFF,P2«-0*P3*tWHl 3 >P4*SKP>P5«-WT*P6*1 6"WT*P 7* 0* 
P6*( HW ft)) / . , , 



02843900 T 0375 
02 843 950 t 03 79 
Q26440QQ T 0382 



BEGIN 

Sl«TU Pi*TALLY; 

P4(IF SCw" « 



TALLY*1 J 
■ ^ 1 ELSE 



IF SC»«0" THEN SI»SU1 



02844050 T 0383 
02844100 T 0383 
02844150 t 0384 



ELSE BEGIN P7(jOMP OUT 2 TO MAST); IF SC»""" TH£N 
.P2.tT.-AUY ELSE IF Scf"*» THEN IF SC/"*" THEN JUMP UUT 
TQ ma§t; py.tTAlLYj SI»§Ifl END) ; 



02844200 T 0386 
02844250 T 0388 
02844300,, T 0390 







"3* Vhltt ^U(*P OUT TO MAST) 1 
P*UK1P 3 OB) I ' 



02844350 T 
02844400 T 
OH 4.4*10 T 



039H2 
0393H 
039418 



2 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 



P5CIF SC>"0" THEN IF SC<"8" THEN BEGIN SKjP 3 SB; p7* 
TALLY; 3(1F SB THEN DS*SET ELSE DS+RESET; SKIP SB) 
FLSt guMP RUT TU LAST FLSF BEGIN IF SC*" " THFN 



END 



IF SC* M w THEN BEGIN P7CJUMP OUT 2 TO CAST)* 
IF 3C«"»" THEN P2*TAUY ELSE IF SC*"*" THEN 
If 3C*"fi w THEN JUMP OUT TO LAST? F7»T<U t Y FnP 



si«-si + i; 

Pi ♦S.I. '* 
LAST? 



SKIP 3 OB END) i 



0g8«4450 
02844500 
02844550 



0395»0 
039613 
039910 



02644600 
02844650 
0g64470n 



040012 

0402>2 
040410 



02844/50 T 
02844800 T 
02844850 T 



04 0511 
040650 
4 06 1 1 



ENO ; 
SGN*PJ IF C0TAERR*((B0FF*P)«0)) THEN GO TO COMM I 
H1-T01 + TF SGN THEM -wm ELSr *wi ; 



go to cqmm; 
al % alpha conversion 
tf w > 6 Then skp <- 



(WT ♦ 6 ?/ 



02844900 T 
02844950 T 
02844075 



0406 »i 
040612 

1 0409»1 



02845000 T 
02845100 T 
02645200 T 



04HI 3 
04121 1 
Q41?M 



whi ♦ •» H ; 

STREAM(P1* BUFF«P2*tWHl3>P3*SKp»p4*WT#P5«-H0LT0G); 
RFRIM 



Si «■ pi; 

01 ..♦. P2; 

P5(P4( 



SI 

DI 



SI 

DI 



P3; 
2; 



IF 

IF 

IE. 



SC * 
SC « 
SC 9 



"A" 



THEN 

then 

Then 



ds *• chr 

BEGIN SI 
BEGI N S I 



else 

* si 

* si 



Hi 

+11 



OS 

ill. 



LIT 

HI 



'♦» 



ENO 
FND 



ELSE 

ELSE 



IF SC = 
IF SC - 
IF SC = 



»» r »i 



THEN 
THEN 
THEN 



BEGIN 

BEGIN 
BEGIN 



SI 
SI 
.SJL 



SI 

SI 

-Si 



+ 1/ 

+ i; 

±1L 



DS 
DS 



LIT 
LIT 
LIT 



it j tt 
w it ft 



ENO ELSE 

END ELSE 
END E LSE 



ds ♦ chr;); 
jump out to xn; 
os «- P4 r.HR; 



028*5300 T 
02845400 T 
02145500 T 



02845600 T 
02845700 T 

02845800 T 



041511 
041610 
041 8 *0 



02845900 T 
02846000 T 
02 646 1 0Q T 



04 IB 10 
0418 13 

Q 41 9U 



042011 
042l»l 
04 2 ? n 



02846200 T 
02846300 T 
02846400 T 



04241 1 
042513 
04271 



02846500 T 
02846600 T 
Og846700 T 



ir- 



042813 
04291 1 
04 3 01 



28 
29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

•3 



XI 



e nd; 



pi 



si; 



02846800 T 
02846900 T 
26 470Q0 T 



0430:2 
043012 
Q430M 



BUFF * p; 
WIC03 ♦ whi; 
GO TO cb mh; 



02847100 T 
02847200 T 
Q2fli.73QO T 



043110 
043112 
043211 



LI % LOGICAL CONVERSION 

STR£AM(Rl*BUFF>P2*QiP3«-0>P4«-kO; 

BEGIN 



02847400 T 

028«7500 T 
02847600 T 



043410 
043410 
041513 



si ♦ pi; P3*si; 

P4(IF SCX« " THEN JUMP 
TALLY » 01 GQ TO LL U 



OUT 1 TO LL ELSE SI * SI + i); 



LLI IF Sc ». 

.lis p2 * tally; 
end; 



"T". THEN 

si *> P3; 



tally «■ 

SI «■ SI 



i; 

♦ P4; 



pi 



si; 



02847700 T 
02847800 T 
Q;fU700n j 



043513 

0436<1 
043812 



02848000 T 
02848100 T 
02848200 T 



043910 
043913 
0441 1Q 



45 

46 
47 
48 
49 
50 
51 
52 
53 
54 



witoi «■ Pf 
BUFF ♦ p; 
Q TAFR R t E L M T YP 



* lqgv; 



02848300 T 
02848400 T 
02848600 



044111 

044113 

2848600 T 442 11 



45 

46 

47 < 

48 

49 

50 ( 

6' 

52 

53 ( 

54 

55 

56< 

57 



GQ TO comm; 
II % INTEGER CONVERSION 
NUMCONVF.RT. 



02848700 T 
02848800 T 
02 848 9 T 



044410 
044412 
04 4 4 12 



IF <0TAERR ♦ OTAERR OR 02*0 OR EXP P 

OR ELMTYP * OBLV OR WHI > MAX) 
THEM r.O TO CQMM J ; 



WHO] 
GO TO 
I SIN 



IWl 



«• IF SGN THEN -WH.l ELSE MHW 
COMM; 

E PRECISION . 



02840000 T 
02$4«l00 T 
H2BM2M T 



028 49 300 T 
O28494OO T 
02849500 T 



044610 

044712 
Q450I1 



045210 
045412 
4 5 6 10 



55 

56 



El X E FORMAT 
Fl X F FORMAT 
1 ' % G EQRMA T 



028«9600 T 
02849700 T 
02849800 T 



045610 
045610 
045610 



• • 



# 



numconvert; 

if (who] «■ wh1) * then go to cqmm> 

IF fHTAERR » nTAKRH PR LLMTYP s LTIGV 



02849900 T 
02850000 T 



0456*0 
0457*0 
0<l5fl»3 



OR ELMTYP ■ INTECV OR ELMTYP" OBUV) 
THEN GO TO COMMJ 
Tl » (IF EXP X THEN EXP ELSE "PS) 



02850200 T 
02850300 T 
02B5Q4QQ T 



0^60*0 
0463*0 
CUAJLL3 



-.(IF .FBT.QG THEN D2 ELSE .0.).; . 
IF Ti<(-68) THEN Tl*-68 ELSE IF DTAERR+T1 >68 THEN GO TO COMM ; 
IF Dl GTR 11 THEN IF Tl GTR THEN 



02850500 T 
02850510 T 
0?85 53Q T 



0466*3 
046913 
04>4*3 



• 



9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

JO 

31 ~ 

32 

33 

34 

35 

36 

37 " 

38 



00U8LECWH1,WH2>TENI TU # TENC 6Q + TX) * TIMES, I ■# wHl* WH2 ) 
ELSE 
BEGIN 



02850535 y 
02850540 T 
Q 2 S 5Q545 T 



047613 
0480*2 



DOUBLE CWHl»foH2' TEN [-T i), TEN L69*Tl3 >/>**> W Hl# Wh2) > 

IF WW2 > 9Q0Q777T7777777Q0 THEN 

IF wjlLtlll fej USg u T HEN WHi »» HHi ♦ 1 & JgLtLtUIZilli 



0.285Q550 T 
02850553 T 
2650 ^ 5 5 T 



048 ill 
485*0 
Oaas*i 



END 
ELSE 
MH1- ±Jl£ Tl& Q THEN WH1XTPNTT13 



02850560 T 
02850565 T 
OgflgOftOO T 



0490*1 
0490*1 
4 90 * 1 



ELSE WHl/TENt-Tl]; 
lUCQJ «■ IF >GN THEN -WHl ELSE WHlJ 

g o to c omm; 



02850700 T 
02850800 T 
02850900 T 



0493*3 
0496*2 
0499*0 



DC* * DOUBLE PRECISION CONVERSION 
NUNC ON VERT J 

tf whi « o Then begin witoi » win] »wm; go to comm end ; 



02851000 T 
02851100 T 
02851200 T 



0499*2 
0499*2 
0501*0 



IF (DTaERR * DTAERR OR E.LMTYP * DBLV ) 

THEN GO TO CQM.M.; 
Tl <- CIF EXP X Q THEN F*P £,L.SE -PS) 



02851300 T 
02851400 7 
02851500 T 



0504*3 
0506*0 
0507*3 



-UF FRTOG THEN 02 ELSE 0); 
IF Tl<<-68) THEN Tl*-68 ELSE IF DTAERR*Tl>68 TheN GO TO C 0MM i 
IF SGN THEN KH1 » - HHU — : 



02851600 T 0509*3 
02851610 T 0512*3 
08851700 t — 5 17* 3 



IF Tl ...» THEN 
DOUBLE (WHJ#KH2«.TENC 71 J » TENC69 + .T.1 J#***#iUt0 ], wl [ 1 ] > 

ELSE 



02851800 T 
02851900 x 

02853000 T 



0519*2 
0520*1 

0524*0 



00UBL£(WH1»WH2#TENC"TU»TENC69-Tn,/,*,WIC0],W1[1J); 
COMM» 

END convert; I 



02852100 T 
02852200 T 
02852300 T 



0524*3 
0529*2 
0529*2 



comment ***.*. *..* .*.*..* * end up qeclarations ***********; 

IF EDITCODE*!. AND EDlTCODE'3 THEN 
BFGIN PCMkS) ; 



IF EDlTc00E>6 THEN P(FILX# OK ADR )} P( FI'FMT A> *P( .LI5X ) ) i 

IF EDITC0DE»4 THEN PC EOF L* INTCALLCPARL**1&4 ) ) 

Fl SE PfFPTTpQnE,E0FL>rNTrALLtPARL>g160n J 



02862200 T 
02862210 T 
Q2862P2 Q T 



02862230 T 
02862250 j 
o?8Ag?60 t 



0529*3 
0529*3 
Q 54?*Q 



0542*3 
0545*3 
0549*0 



40 
41 
42 
43 
44 
45 
46 
47 
18 
49 
50 
51 
52 
S3 
54 
55 
56 



PCXIT) i 

end ; 

EJ J JLLNOJ «) t E OFL ; 



f ILXCNQT 3] «• PARL; 



02862270 T 
02862300 T 
02862310 T 



0551*3 
0552*0 
0552*0 



FlB ♦ FILXINOT 23i X OPEN FILE IF NOT OPEN 
IF FlBC5].C43*23 * (Tl * 2 + C£0ITC0QE»5 } > THEN 
PfMKS,Q,Tl>FlLX*l> SELECT); 



02862400 T 
02862500 T 
0?B62ftOQ T 



0555*2 
0557*1 

lLl 



ckpb; aRRAYStlff*o; 

IF FIB[0] = THEN 
FIB.C03 * ,!„» (EDITCO PE s ° °P E PITOPE *2? 



02862705 T 

02862706 T 
02862708 T 



0562*1 

0563*3 
056 4 * 3 



ELSE : 

if r: 

THEN 



*X * (EOITCOOE *0 OR EOITCODE • 2) 
>*riB£63,riLX»C33U5],4,FPRTERR); 



0fl627l0 T 
02862712 T 
28627J4 T 



0567*1 
0568»2 
0571*0 



IF EDITC0DE»1 THEN GO FNOl; GO FMTLST i 
FNOL* 

LSTRN«--i; 



02862800 T 
02863900 T 
02864000 T 



0574*2 
0576*1 
0576*1 



FMTLST I 



GO TO PKMTC0I 

Ffftw •■. Ibkl *■■■ ■■■-■v 1^ 



0286*i00 T 
0286290Q T 



PS77*t 
057713 

057.7*3 



N 

2 

3 



CTOG ♦' DQNETOG 

GETLlSTi 

G fl TO FRMJCp; 



♦■ false; 



02883100 T 
02883200 T 

i n" Hm i < ff l iiMi .i W)li*iJi' W i W i n '» M '*■ " 



0578*2 
0579*3 



MON* 
FRMTCD* 



PS » ftl 



0288)400 T 0S8i I a 
04801500 T 0581*2 
tLgMlAflfl T 0561*2 



4 
5 
6 

I 

8 
9 
10 

11 

12 



NFCI ♦ (FIX8) + 2i 
IF NFC * "C" THEN GO 
NFCI » (F1X8) t 2/ 



TO 



X FIRST 

FMER.RJ 

a; first 



FORMAT CHARACTER 



FORMAT CHARACTER 



02883700 T 0582*1 
02883800 T. 0584*0 
(83900 T 0586*0 



,Q2»( 



nfphi formatcqntrql; x anayusjs of format statement 

IF FMERRTOG THEN GO TO FMERRJ 
PMCYf t IF fDUNFTQS <• pMDLlSTI THfM RfAOSJ 



02884000 T 0587*3 
0288«i00 t 058910 
0288^200 T 0590*0 



IF W + NCR > LCR 
NCR t « * ncr; 
CONVERT; 



then go to fmerr; 



0288^300 T 059310 
028 84500 T 0594*3 
02880600 T — 0596*0 



13 

14 
16 



IF QTAERR THEN GO TO TYPERRJ 

GETUSTj 

IF (RPT»RFT-1) > THFN GO TO FMCYC? 



02884700 T 0597*0 
02884800 T 0596*0 
02 8 8^900 T 0599*0 



13 
14 { 
IB 



16 

17 



go to nfph; 

FMERR! 

P (HKS* F IR r63»FllX .£33* 133*0* fARTeRR)* 



02885000 T 0601*1 
02885100 T 0601 * 3 
02 88 5U0 T 6 0l»3 



19 

20 
21 



TYPERR* 

P(MKS>FlBC6l»FIl-X,t33 s l53#2'FORTERR); 
ENO FTINTj 



02885400 T 
02885500 T 



0603*3 
060 3* 3 



028 8 5800 T — 060 5 *3 



22 
23 
24 
25 
26 
27 
28 
29 
30 



SIZE* 0606 WORDS 
PROCEDURE FTQUTFlX(FlLXfDKADDR'Fl#FMT#LlSX»EDlTCQDE#EOFt»PARu; SlN^lS/ 02886000 7 0000*0 

S TART OF R E U SEG ME NT* DISK ADD R ES S « QQ3 «8 



value okaddr*fi*lisx*eoitcqde*eofl*parl ; 

ARRAY FMTC*Ji NAME FlLX* REAL 0KAD0R*Fl »Ll SX*EDI TCQ0E,PARL*£QFL i 

BEGIN 



02886040 T 0000*0 
0288*080 T 0000*0 
02886120 T 0000*0 



INTEGER LSTRN*19* E=17 ; 



REAL LISTYPE»20* ARRAY$TUFF» 18* ALGQLWRITE« 12* SELECTM4* 

F0RTERR«24# CHR* MAXCHR* 8SIZE* PRNTR, TYPE* INOX* SIZE, TWDT, 
SGNU BtiFF, IXt T?» I** WHl - HH?» MH 3, ARY. W. f). R. SkUMmttiW). * 



02886160 T 
02886200 T 
288 6240 T 



0000*0 
0000*0 

OQOoto 



31 
32 
33 



02866280 T 0000*0 
02666320 T 0000*0 
02 8 86360 T 0000*0 



34 
35 
36 

37 " 

38 

39 



.El"9.» XTRA, C*...'FMTIN» SAVBUEf'. DBLPREC* CODE' T4» 
NEEDNEWLISTELEMENT* FLG* SCALE* T8* T6*l8* $AVD* 

C U MM A S> DLRS qm, T 21 J 



T5* SkP*PARL' 
DECPT=20» ND* 



02886400 T 0000*0 
02886440 T. 0000*0 
02Rtt6<.60 T OOQOIO 



NAME LISTAD08 i 



02886520 T 0000*0 
02886560 T 0000*0 
02866600 T QQQQ'O 



40 
41 
42 



ARRAY TENs22C*]* AR 1*L ISTADDR t* 3 * TPAR»23[*]* FPB B 3C*J* FJBC* 3 ' 
LABEL ALIST, GETNEXTPhRASE* REPEAT. TT, XX* SS* PP* AA* A t > On* HH, 



02886640 T 0000*0 
02886680 T 0000*0 
02666720 T 0000*0 



CC# ERBOS* GG, LL*: FF;> EE, II* 00* TEST, TESTl, AWAY, OVRFLW, 
BUMPWH3# MAXI# LOGS* ThREH* THREC* HLF* CONVERT* Ol* QVRFlWi* 
FIVPT* JJ* RAPUP* XI* QVRFLW2* ONE* QUTSUB* CD* NLEL* Ffl9 q* 



02866760 T 0000*0 
02886800 T 0000*0 
02886840 T 000Q*0 



46 
47 
18 
49 
50 
51 
52 
53 
54 
55 
56 
57 



FQ95' VLBRQR, Hy, CD1* CM5K, REPEAT1, IEDIT, TENU* 
STNRD* SE* TWHLp* DREST, qRESTI* HLF1* FIVPT1* SQN* 
TEST2, REPEAT2* STNRD1* XPIV, GOTE* NK ; 



ONDG* CKH, 
0VRFL.W3* 



02886845 T 
02886850 T 
02886655 T 



0000*0 
0000*0 
0000*0 



SWITCH #*RASE»S$*HH,PP,xX*TT*AA,QO,LL*JJ*n*GG*FF,EE*00,CC ; 



02686660 T 
02686920 T 
268 6 9 60 T 



OOQOIO 
0000*0 
QQOOIO 



DEFINE DONE * LSTRN»C-1) #* 

REEL » 3 #* 
LOGICAL * 4 ** 



02887000 T 
02887040 T 
2887090 T 



0000*0 
0000*0 
0000*0 



INTEG* » 1 #* 
OBLPRgCSN » 5 ■## 

CO MPL&X •■», .. 6 I f 



02887120 T 
02867160 T 

Q?fl67aoa t 



0000*0 
0000*0 
000 0* 



• • 



MAXCQBE - 15 «, 

VERR(VERRl) - BEGIN FCVERR1); GO VERROR END #> 

MAYSF(hAYBF|yMAYR£2fhAYBF3) a CT»CI+MAYfiEl J fin TQ MAYR£g i 



02887210 
02887215 
Q286724C 



0000*0 
0000*0 

ooomn 



TWOO « Ll5TYPE,C38*l) *> 
TNDXF » ClfitlSl M, 



DS«-tIT MAYBE3J MAYBE2* #j 



02887280 
02887320 
02687360 



000010 
000010 
000010 



TYPEF = [44I«J #* 
SIZEF ■ P3 1 15.] * ; 



02887400 T 
02687440 T 
02887460 T 



000010 

ooooto 
0000 to 



9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

36 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



SUBROUTINE 8LANKIT ; 
BEGIN 
STRgAM(A»BSl7E«l«ft»P(DUPl.r36l61.T21>BUFF) I 



02887482 T 
02887484 T 
02887 8 6 T 



0000»0 

0001*0 

0001 to 



BEGIN 

Sl«-T2i; DS*|NDS; SI*BUFFJ 0S«-A WD.S.J BCdS«-3<!WD$; DS«-32*qS) ; 

end ; „ 



02867488 I 00031 2 
2887490 T 0003 « 2 
02 6 67 4 9a T OCQfe ' O 



ENB OF BUANKIT I 

subroutine nuTPuT \ 



02887496 T 
02887498 T 

03687520 T 



0006*1 
0006*2 
0006*8 



BEGIN 

IF PRNTR THEN 
BEGIN 



0288756C T 0007 »0 
02887600 T 0007*0 
02887640 T 0007*1 



stReam<q*q»savbuff 
begin 0i*l0c 

Tt»yF tTi»P>»«*« T 



q; si*SaVbuff; ox*D!+7i ds*chr end $ 

HFN FtSF IF Tl>9 THEN 16 



02887680 T 
02887720 T 
02887760 T 



0007*3 
0009*0 

00 1 0*1 



IF NOT C 
PCWKSfTi. 



THEN FIBt 
[4?*23fTl 



ELSE IF T1=0 THEN 32 EL*E Tli 

i/]**pcuup)+bsize ; 

ANQ lSfC^BSUE^FlLX^AUGOL^RITl 



-E+-4- 



02887800 T 
02887840 T 
02887880 T 



0013*1 

0016*2 
00 20*1- 



FI8C63**P(DUP)-(CC*0)»T1) * 

P(MKS# FL6» OK ADOR»0'(-1)*FILX# ALGOL WRITE' OEL) i 
STaEAMCQ»BUFF<-SAVBUFF.BSlZE>BS2»P£DtlPl»l*T21fS»»FILtt) ; 



02887920 T 
O288816O T 
02888200 T 



002310 
0026*0 
002811 



ilEGl 
.S.I*Q 



N 



; si<-sm 
; si*syti 



'» .o.s*bsi.ze wos; oi*a; s» i * f 2 1 j ds*9Chr ; 
'» n s»BSZ u p s 1 



02888240 J 
02888280 y 

02888320 T 



0031*1 
0031*1 

0033*0 



end ; 

FlB£173**P(DUP)-BSIZE i 
_ENJ2 



O288836O t 
02888400 T 
Q2BB8440 T 



0034*0 
0034*1 
QQ36*1 



EtSE BEGIN 

P(MkS»FL6 
I F LSTHN^ 



*DKADDR»0'BSI2E'FILX'ALG0LWRITE) ; 
t- 1? THEN 



02888480 T 
02888520 T 

02886560 T 



0036*1 
0036*3 

QQ38*? 



BEGI 
P(MK 
BUFF 



N 
5#FLG*DKA 

»SAVBUFF» 



DDR,0#C-1)*FILX#ALG0LH«ITE#DEL) i 
(»FILX).C33»153; BLANKlT ; 



02888600 T 
02888640 T 
02888680 T 



0039*2 
00*0*0 
0042 *1 



END 



END 
CHR»0 ) 



02868720 T 
0288876C T 
02868800 T 



0045*0 
0045*0 
0045*0 



46 
46 
47 
•8 
49 
50 
51 
52 
53 
54 
55 
56 
P 



END OF OUTPUT i 
SUBROUTINE SKIP i 



02888840 T 
02888880 T 
02888920 T 



0045*3 
0046*0 
0046*0 



IF (TUP(XCH)) GEQ W THEN T1*W 
ELSE BE«IN 

STREAMCT21»Q«-W-Tl*T4.pCQUP) t [36*63^BUFF) i 



02888960 T 
0288*000 T 
02689040 T 



0046*0 
0047*3 
0049*0 



BEGIN 

SI*T2l; pS*Q CHR; T(Sl*T2i; 0S*32CHR; oS*32CHR) i 

T21«-0I i . 



02889080 T 
Q8889120 T 
02889140 T 



0051*3 
0051*3 

0054*0 



END i 

buff«-p ; 
end of skip ; 



02889160 T 
02889200 T 
02889240 T 



0054*1 
0054*2 
0055'0 



REAL SUBROUTINE NXTELH ; 

N . ■■•■ .. 



02889280 T 
02889320 T 



0055*1 
00551 1 
0056*0 



^r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IB 
16 
17 
18 
19 
20 
21 
22 
23 
24 
26 
26 
27 
28 



29 
10 
31 " 
32 



33 
34 
35 
36 



37 
38 
39 

♦0 
41 
«2 



(4 
»5 
46 
47 
18 
•9 
50 
51 
52 
53 
54 



55 

56 



PCIF TWOT THEN P C * C AR 1 C 1N0X • C 33 ■ 7 ] 3 3 » INOX 

ELSE AR1CIN0X3) / 
IIMOXMMnxtW NXTELM4-P ; 



AND 255»C0C) 



END DF NXTELM ; 
SllRRntlTt MF flETMEXTl TSTPl TMFMT I 



02689400 
02889440 
02 8 89 480 



BEGIN 

IF NEEDNEWLlSTELEMtNT 
BEGIN 



02889520 
02889560 
021189600 



005610 
0059*0 
fa 6Qi 



006112 

0061*3 
006 H 3 



THEN 



AlISTi 



IF A8Y THEN 

BEGIN 
: PtNXTELMH 



02889640 
02889680 
02869720. 



02889760 t 



006210 
006210 
00 62 » 1 



END . 

ELSE If TYPE*COMPLtX THEN 
BEGIN TYPE-REEL; 



IF nSlPREC THEN HHP»NXT£LMJ A RY»INpx<Sl?Ei 



02889800 

f>a889eao 



PCLlSTADDRrU? FND 



ELSE BEGIN 



P(ARRAYSTUFF*Q); LISTAD0R*CLI5X3 i 
DBLPRre»(TYPE»irSTYPE.TYPFF^DBtPRECSN 



.IF...ABY*ARRAY.3.T.UF.F/0 

BEGIN 
IF TYPe*COMPLEX 



THEN 
THEN TYPE»REEL i 



SIZEi'CINDXoARRAYSTUFF.INDXF)* 

ARRAYSTUFF.5IZEF I 
PCLlSUPOR + MFMrt. TSTADDR,f1flU5m 



TWUUNOT 
GO ALIST 

end ; 



RCL0D*T0P>J 

; 



P(DEL) > 



P(DEL»L1STA00RC03 J i 

IF DBLPREC THEN WH2*LJSTADDRU3 t 

END i 



_LL 



T5*-WH1*-P ; 

end ; 

(neednemlistelemfnt»1)»editc0de oh done then 



AWAYt BEGIN QUTPUTi P(XlTJ e«0 

ENB OF GETNEXTLISTEUEMENT ; 



SUBROUTINE NLE / 

BEGIN PCXCH); wH2*o; GETNExTL I STELEMENT 
IF HH1»4>P(FQ94) THEN 



; 



BEGIN IF Tl THEN VERRCP+1Q); 
ELSE IF P(0EL*(*P(F094})*DUPXWH1 
P(XCH) ; 



PCDEL*FQ94) END 
THEN P(0EL#WH1) 



END OF NLE * 



SUBROUTINE HANDLEVAR I A8LES 



BEGIN TH1 i 
IF R*P(F0»5J THEN 
BEGIN P(0)J NLEJ 



TUPC.R>lStn>0 ; 



IF C0DE»29 THEN 

BEGIN PCFI+SAVW) ; 
IF R20 THEN PtCFMTtP33»QUP' l QP*P &RC6 t 36U 23* X C H> 



OUTSUflt 



ELSE PC, Ft) 
PC5TN) J 
PCOEL^DEDJ 



i 



GO ttETNEXTfttRASE t 



4E- 



tND 
END i 
Ta<-r;Qnr = i0 



THFNj 



BEGIN P(Z)1 NLE1 >,C f NS*ISN) I 

Sf It AM C *\*Wm*plM® )*#3*f { CO 1 5 3 ; 

h .mini M±m& P 1 1 alf t i»yi. oi,n.nc P2 1 o i»o 1 * 1 1 



02889880 
02889 920 
Q?flfi9960 



006213 
0063 »0 
0063*2 



0067*3 
0068 » 3 
0Q7Q»0 



02890000 
028900«0 
02890080 



02890120 
02890160 
02890200 



'0072*1 
007213 
0074*1 



02890240 
02890280 
02*90320 



0076*2 
0077*3 

007611 



0080*1 
0081*2 

ooflato 



02890 360 
02890400 
02fl9Q48Q 



0085*0 
0086*2 
0087*0 



02890520 
02890560 
OpBOQAOO 



0087*0 
0087*2 
0069*3 



02 8 90640 
02890680 
299078 



02890725 
02890730 
03890735 



0089*3 

0Q.90«3 
0Q9Q* 3 



0093*1 
0095*1 

00 95*2 



02890740 
02890745 
02 89075 



0095 '2 

0096*0 
0096*0 



02890755 
02890760 
03890765 



02890770 
02890775 
02890780 



0099*1 
0102*0 
QlQSln 



.PlQ5.il. 

0105* 2 
01 05 '2 



02890785 
02890790 
02890795 



0106*0 
0106*3 
1 07* .? 



02890800 T 
02890805 T 



0UO« 2 
0111*1 



02890815 
02890820 
QgftQOaai 



0H»«3 
0116*2 
01161,1 



028908 30 
02890835 
2 690 8 40 



02890845 T 
02890gi0 T 

oaa9eeS5 t 



0117*3 
0117*3 
0U7J 3 



119*0 
012|*2 
0122*3 



• • 



>r 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



22 
23 
24 
25 



26 

27 

28 

29 

30 

31 ~ 

32 

33 



34 
35 
36 
37 " 



39 

40 
41 
42 
43 



45 
46 



18 
49 
50 

51 



J2CIF SC< 
PUTALLY 
fcNO i 



>DC 



THEN JUMP OUT; TALlY«-TALLY + i; S I * S I •* 1 > ; 



IF (NO AND 63)XND THEN P<DEL*32> i 

IF (C0O£*P+3)>MAXC00E AND Ti THEN VERRC2) 

Tt»CQ0E>a ANH Tt I 



02890860 
02890865 
02fl90fi/Cl 



end ; 
t2*ti ; 

If PCCOPE^U 



02890875 
02890680 
Q2fl908ft5 



0123* 3 
0125*3 

oi?6*o 



AND"c0nFS14fF095l «SAVH THFN 



NLEU 



BEGIN P<,5AVW»4) 
NLEi PCXCH#ISD); 
END i 



02890890 
02890895 

Q2B9090Q 



0J26»1 
0i28»2 
1 *1*3 



TUP(DUP) AND T2»T2 AND SAVW>0 ; 



IF 
IF 



SAVD«P(£U95) THEN BEGIN P ( f SAVO* 6)/ GO NLEL END ) 
C0DES4 THEN 
BEGIN IF T4 



02890905 
02890910 
0g 8 90915 



013312 
0133? 2 



THEN SAV<uRJ 



_t£. 



FMTW*FMTW4(P(DUP).t41ll) + (SAVW<0))C«*na7*nJ 

end ; 

NOT T2 THEN GO HUTSUBi IF f.0DF»5 THEM HV I R»t 



GO HV $ 



02890920 
02890925 
02890930 



IF PCDuP) AND SAVDXO THEN VERRC16) ; 

IF T4 THEN IF SAVW«PCF094) THEN BEGIN IF CQDE'9 THEN VERrC6)£Nq 
else IF pcnup) A\n SAvn»PtFno4i thfn 



02890935 
02890940 
09890945 



0136»3 
Oj37t3 
014211 



0142*1 
01441 2 
91 4 5»1 



0147U 
0l5l »0 

oi5hq 



VERRORI 



F094« t t 
F095» : J 

cn»» t 



4094 

4095 

e004767632l46434i 



BEGIN Pi?) } 

T4*P; PCMKS*C00E»R#SAVW*SAVD#T4#WH4#WH2#FWTW# 
C«5)>P0RTFRR) J 



02890950 
02890955 

Q289Q960 



02890965 
02890970 
Q289Q975 



T 

T 



0153 J 3 
0156*1 
Ql6QtJL 



CDl**t 03127262524230000 ; 

END ; 

IF NOT P THEN SAVD»0 



% OPXJA QLJ 



* IGFEDCOO 



02890980 
02890985 
0?a9Qq90 



0162*0 
0162*3 
Ql65»2 



END OF HaNdLeVaRIABLeS 
RFAL SUBROUTINE SETUP ; 



02890995 
02891000 
02691001 



0166*1 
0168*0 
169* , 



Ol70»0 
0171*0 
017110 



BEGIN 

P(XCH*DUP> i 

IF DBLPREC THEN 



02891010 

02891015 

0P891Q20 



01 72* 2 
017213 
0172*3 



BEGIN 

IF P>NU THEN BEGIN T6*P-N0; PCND) 

IF (T3»( T4»P)"T3«-NU-16)<0 THEN 



02891025 
02891030 
02891035 



0l73»0 
0173*0 
01 73*2 



END 



ELSE 



BEGIN 
IF T5 

BEGIN 



PCWH3/TENC 
LSS 8 THEN 



T53#,WH3*ISD); T3*T4 END 



02891040 
02891080 

2 8^112 



BUMPWH3* 



ELSE 
END 



IF PCWH2/TENC8 
«H3«-^H3 + 1 i 



, T2*T5]#,WH2#ISN)»TENtT2] THEN 



02891160 
02891200 
0?fl0t? 40 



IF P(WHl/TENct6-T5)# t WHl#lSN)»T£NCTUT5-T2*83 
THEN IF <NH2*WH2+1)»T8 THEN GO BUMPWH3 t 



02891280 
02891320 
0289136Q 



0173*3 
0174*1 

0176'? 



0i79»2 
0162*2 
Q 1 6 3 1 3 



ELSE BEGIN 

IF CT3*P)>11 THEN 



02891400 
02891440 
02 6 91 4 60 



0184 U 
0187*2 
01 89*1 



T6*T3-T3«-(PCWH1,TEN£AB5(E)]»IF E>0 
THEN pc/>, ELSE,F(x))SPCF lVPT) )+i l 



52 
53 
54 

55 

I 



IF C00£«12 THEN PC SCALE**) I 
PcP-ErT6*WH3*XCH*TENUBS{PtDUP)))*IF P(XCH)<0 THEN P(/) 

' -^ ; "*■■■ FLSE Pf xl«.WH3.r«?Qi t 



02891520 
02891560 

O28916O0 



018911 
0l93*2 
l 96 >3 



end ; 
e1*pctenct3j: 
fn u of s et up 



02891640 
02891680 
02691720 



0196*3 
0197*1 
02 Q »1. 



<WH3,DUP)+El; 

t 

j. 



SETUP*P I 



02891760 
02891800 
02891840 



020412 
0206*1 
OPI OID 



2************************ § I 



STAR? %\ HERE t !************************» 



02891880 
02891920 
03801060 



0211*1 
0211*1 
021313 



021410 
0214*0 
Q2 U ' fl 



56 



>r 



9 
10 
11 
12 
13 
14 

' 5 _ 
16 

17 

18 

19 

20 

21 

22 

23 



24 
26 



26 
27 
28 
29 



30 
31 
32 
33 



34 
35 



36 
37 ' 
38 
39 



40 
41 
42 



43 
44 
45 

46 
47 
48 
49 
50 
51 



52 
53 



54 
55 
56 



FI8«-FILXCNUT 23> P(TEN[8]# ,T8# ISO) i 

IF FLG«-[)KADDR<0 THEN DKADDR'O ; 

IF P (FlB[53»PUP)iC43m THFN P ( MKS, Q, 0, F ILX, 1 , SF.LF g T ) 



; 



C*(P AND 96)*0 / 

MAXCHR«-{BSIZE*P(MKS#FLG,DKA0OR#0*(*J)*FlUX#AL60l,HRIfi))x8 + 
PRNTR»tCTl»FTBf4..rai4:n»t na T1»19 nn Ti«7> a n o 



02892000 
02892040 
02fl9?0.flQ. 



0214*0 
0226*2 

Q??9»n 



FPB[FI8C4],C13»113 + 3J.U3'53<20 ; 
IF N0TCNQTCNEEDNLWllST£UMfclNT«.e D ITCC)DE"3) OR FMUFIJ) THEN GO ERROR/ 
IF NOT TPAH.fH.ll THEN __ 



02892^20 
02892160 
Q2892200 



0232M 
0233*3 
0236*3 



BEGIN 

E*P(l*lEJ*CFx#$FB)&29C8»38ii0 3 1 
STttCAMtA*P(2ljtE3nj BEGIN nSfrflLTT" 



0289220b 
02892240 

Q28Q 2 25 



P ( TPARj 1* 25 fCO.M# DELUDED i 
END i 
Tgl»PftTPARf2t33) INX i 



E*0 



'; si»aJ ns»7Wn§ end > 



02892255 
02892260 
Qlfl9?265 



0240*3 
0245*0 
24 7 * 2 



0249*0 
024912 
0252*0 



IF PRNTB THEN 

BEGIN 
IF BSIZ£>16 



02892270 
02892275 
02892276 



0255*0 
0257*2 
Q257>2 



IF C THEN 
PCPCCMSK) 

-LNO 



THEN BEGIN 8SIZ£*171 MAXCHR» t 3^ END I 



BEGIN BUFF«-TPAR 
OH TPAR) 



INX t; TPARtQ3«." n ) BLANKIT END 



02892280 
02892320 
02R92360 



ELSE P(P(*FlLX)rC33*153) 

BUFF«-SAVBUFF«-P i 

IF NOT PRNTR THEN BLANKET 



I 



02892440 
028924 45 

02 8 92 48 



IF FIBCQ3*0 THEN FIBC03«-1 i 
IF CLSTRN«-1)/FIB103 AND T 1 = 2 THEN 
BEGIN 13«-4 ; 



02892520 
02892560 
Q2fl9?56 t > 



0259*0 
0259*1 
0-35AJL3 



0262*2 
0267*0 
02 6 8 * 



ERROR* P(MKS»FI8C7 3,FUX,C33*15],T3*F0RTERR) 
END ; 

P(Q3 * . 



02892600 
02892640 
02892680 



0268*0 
0269*2 

0270*2 



GETNEXTPHRASE* 

R*.PCFMT[FI*FI + 1J'DUP),C6*123; IF ( CODE*P C QUP ) , [ 1 ' 5 3 )*2 T H EN Q° HH ; 
SAVW+PtDUPJ. [18*12]/ SAvn«-CFMThi»PfnnPi).[30M2i 1 



02892720 
02892760 
Qgfl928fln 



0273*0 
0275*3 
2 7 8 *1 



IF (XTRA+PCDUP) AND 633.£44*23«0 THEN P(Q>0) 
ELSE p{p((O*P(0UP) ANO 15)»12,0UP) OR 0*8,p(xCH) 
Q\ RSSN»PJ COMHAS+P J >__ 



02892a40 
02892880 
02692885 



OR 0*4) 



IF P. [42* 13 THEN 
IF CODEsO THEN 
BFfiTK 



IF CFMTW AINO 3 J =P THEN HANDUEV ARI ABLE* 



02892890 
02892895 
Q2ftojonn 



0279*2 
0281*2 
0281*2 



0281*3 
0281*3 
0286*1 



0289*3 
0293*0 
029713 



IF 



SAVD'O THEN 

BEGIN GETNEXTLISTEUEMgNT; OUTPUT; NeeqNEWL IST£LeMeNT*OEND; 
TF-PCD»»).ClBll5Wri THEN PIR&FI M ftl33 1 1ST ) t 



02892905 
02892920 
02892960 



FIVPTH* 



IF P((NOT 0)#XCH#INX#DUP).C33ll5j! 

GO GETNEXTPHRASE i 

5*49755813885 i 



THEN P(OEU)ELSE FI*Fr$AVWj 



02893000 
02893005 

02fl93QflO 



0298*3 

0303*0 
303* 3 



END ; 
IF C0DE*5 THEN CHR*R*0 
RFPE AT * 



02893080 
02893120 
02893160 



0304*1 
0305*0 
0308* 3 



if cqde>5 then 
repeat1* getnextlistelement 
re peat s; 



02893200 
02893240 
02893320 



0311*2 
0315*1 
31 6* 3 



IF <CHR*CW«"SAVW) + C HR)>MaXcHR then 
IF C00ES9 THEN IF C0DES14 THEN 



IF CQOE'3 ANO C0DE*9 THEN Gq AWaY; 



02893360 
02893365 
Q2893370 



0318*0 
0318*0 
0320*2 



SGN*WHl,tl5l3; DECPT*CUDE>10 ; 
IF CO0E<13 THEN 
IF ABSCHHIXP(TENU) 



02893375 

01893380 
02893385 



032012 
032111 
3 2 3 * 



AND NOT CODE THFN 



IF W<64 ANO NOTCCOMMAS OR OLRSGN OR DBUPREC) ThEN 

BEGIN 
IF NOT DECPT THEN 



02893390 
02893395 
02893400 



0323*0 
032712 
Q 330 11 



02893405 
02893410 
02893415 



0330*3 
0333*1 
03 34 *0 



336*1 
0339*1 
0339*3 



3 
4 

5| 



• • 



*r 



BEGiN 

IF P(E1«-W, ABS(WHl)* ,WH2M&N)>9 

THEN GO I EDIT i 



IF P<SGN*l*-*DUPUO THEN GO ONDG I 
GO UVRftWl J 

END t 



02693420 
02893425 
0_fl934 30 



IF (T1«-11-D«-3AV0)<0 THEN GO STNRD1 i 
IF ...(.EltW-0-1 )<0 THEN GO QVRFLW ; 
P(T6»0)j IF Wh1«0 THLN BFGIM WH?»0; 



02893435 
028934*0 
02693 4 *5 






P(T£NC03'DUI»*A8S(WHt )) 
IF SCAlE*0 THEN 
RFGIN 



fit) CKH END J 



02893450 
02 8934 55 
02893460 



0340U 
0340*3 
3 4 2 t 2 



03431? 
0345*3 

03 4* *1 



13 



IF P(T.ENCA.BSCSCALE)3#IF SCA_E>0 THEN P(x) 
ELSE P(../i#O.UP)i.PCT.ENin THEN GQ STnRq ; 
Pf.WHltSTN) ; 



16 
17 
IS 



END ; 

IF PC0UP»HLFl»-»#NH2»lSN*-»x»«T5»I$N)«F 
BEGIN T5»Q* WH2»WH2+1 FND ; 



TH&N 



19 
20 



IF 15*0 THEN 

BEGIN PCDELf 10) 
TF D>8 THFh 



21 
22 



BEGIN 
T2>T5 
END * 



P<0£L>5) 
OIV T8; 



d*d*8 ; 



23 
24 



26 
27 
28 



CKH» 



ENQ ; 
IF „H2.<lQ THEN 
BEGIN 



IF P(E1»SGN-1»0UP)<0 THEN 

BEGIN 
IF __-2-L0 THFN GO QVRFLW2 I 



a 



3' 



M 

3l" 



PC DEL) J 

IF E1«0 THEN 

BEG I N 



32 

33 



• 



34 

35 



cmSk*i* 9700000 * 



IF SON THEN GO 
ELSE GO ORESTi 



OVRFLWl 
i 



36 

37 " 



HLFl J Jl 

tenuhi 



o»5 ; 

99999999999 



________ 



38 



40 
41 
42 



____. 



P(Sgn*0); wh2* w * m j 
end ; 

STREAM <S»P I T2f WH2»SCN> BUFF 1 



J_ 



43 



BEGIN 

si*T2i; ds«-s chr; MAYBECSGN,H#"- 

si+loc sgn; si»si-u ds»chr; s»ni 






45 

46 



•8 



49 
50 



DRESTi 
DR-8t'|t, 



END i 

IF NOT OECPT THEN GO 
BUFF»FJ P(WH2*0> * 



TEST 



IF 



51 
52 



S4 
55 



0S«-8DEC; 
L2* Q+DI i 
T6(DI«-0I-T6/ 



GO L2J Si*LQc T5; q s *D DEC > 
T6(0S»LIT"Q")J JUMP OUT)/ 



ENO I 

GO TEST ; 

ENQ ; 



02893465 
02893470 
02»9347S 



03461 J 
0349 JO 
0351 : 3 



02893480 
02893485 
02893490 



035510 
0|56*1 
0357*0 



02893495 
02893500 
03893S05 



0357*2 
0359*3 

036113 



0362*1 
03621 1 
0364** 



02893510 
0289 3515 
Q26935P0 



036711 
0368*0 
Q369*£L 



02893525 
02893530 
02893535 



02893540 
02893545 
02893550 



036913 
0370*3 
3 7 3 11 



0373*1 
37 31 j 

0374*0 



02893555 
02893560 
02893565 



02893570 
02893575 

0269 3 5 8 



0374*2 
0376*2 
0377*o 



02893585 

02893590 
02893*95 



37.8.11 

0378*2 
3 79*1 



02893600 
02893605 
02893610 



0379*3 
0380*0 
Q3 8 l* 



0382*0 
0383*0 
Q3B4*n 



02893615 
02893620 
03893625 



0384*0 
0385*2 
0385'? 



02893630 
0?893635 
02893640 



0387*1 
0387*1 
0389*1 



02893645 
02893650 
02693655 



0390*1 
0390*2 
03*1*1 



CE«-P)>T1 THEN 0?893660 T 0392*2 

T6*-E-Tl-(ABS(WH1).TENCE-1]XP(FIVPT1)) * 02893665 T 0393*3 

STKEAMCQ«-P*D*T2»T5>T6*bUFF) ; 02893670 T 0397*3 

BEGIN 02893675 T 0399*3 

DS*LlT"."* CI^CI+O; Si*LOc T5;Sj*Sl+2i 02893680 T 0399*3 

OS»D CHR; GO 12} Sl»LOC T2J DS»0 DEC ; 02893685 t 0401*1 



02893690 
02893695 
02893700 



02893705 
02893710. 
2893/1 5 



0402* 3 
0404*0 
0404* l 



0407*2 

0408*0 



I* 







IEDITj 



rf 

2 
3 
4 
5 
6 
I 
8 
9 
10 
11 
12 
13 
14 
15 



IF P(E1-^GN,DUP)<9 THEN 
BEGIN 
STKtAM(C l »P»Wh2 »S QNtBUFn 



02893720 T 
0289372b T 
Q289373Q T 



0408*0 
0409*2 
Q 4 1 Q, « 



BEGIN SI*L0C WH2* C 
DS«-LIT w 0*; DS*El 0E 
IF TOflGLF THEN TAjL 



I«CI+S6NJ GO LI J 

a Ei*oi; DUauFF ; 
y»u DS»e Fi(L ; 



02893735 T 
02893740 T 
03193745 T 



0411*2 
0412*2 
QJt MJLQ 



di*di-i; os«-ut m -"* 

DS*E1 DEC; IF TQGgL 

lA+nu ni»HUFF> ns» 



gu ia; li» 
E then tally«.i * 

bfill; l?» hh<?»oi ; 



02893750 T 
02893755 T 
02693760 T 



Q4l4»3 
0415*3 
041613 



IF P 



SQN4-TALLY ; 
END I 

THFN GO son 



FLSf GO QVRFLW3 1 



02893765 T 
02893770 T 
Q2B93775 T 



0417*3 
0418*0 
4 1811 



IF 



END 
Wh2<T8 

BULL 



THEN 



N_ 



02893780 7 
02893785 T 
02 8 93790 T 



0419» 1 

041911 
42 010 



12 
13 
,4 | 
15 
16 

" < 

18 

19 

20 ( 

21 

22 

23 ( 

24 

26 

26 ( 

27 

28 

29 ( 

30 

31 

32< 

33 

34 

35 ( 

36 

37 

38 { 

39 

40 

41 I 

42 

43 

44 { 

45 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

561 

57, 



P(OEL) ; 
STREAM<WH2»S4.El-8IT21»SGN»BUFF) * 

BF6IN 



02893795 T 
02893800 T 
0gfl93an5 T 



0420*2 
0420*3 
4 2 3 *1 



16 
17 
18 
19 

20 
21 



Sl*T2i; dS«-S c 
DS«-8DEC; MH2 + D 
CI»CI+SGN* fiQ 



HRJ StDU. Si*L0C WH2 ; 
I* Dl*$i D3»8FlLLi 5*DH 
Li; QI+PI-1* pS+HT"-" j_ 



02893810 T 
02893815 T 
02893820 T 



0423*1 
042412 
0425*3 



-Gfl-i 



Li* 

END 

QN ; 



* 



0289 3825 T 
02893830 T 
Og89 38 3S T 



0427*1 

0427*1 
4 27*2 



22 
23 



24 
25 



END ; 
ei«-p ; 

STRFAM(Hhi«.kHg HIV T R> WH g, T 2 1 * S 4.1 F E j>l^ T*EN P( 



02893840 T 
02893845 T 
0?693850 T 



0428*0 
0428*0 
4 28*2 



26 
27 
28 



El 
8EGI 
SI»T 



-16»8) 

N 

21 



ELSE P(0#E1«8)'E1*P#5GN*BUFF) * 
DS»S THRi nS»SQN CHR? S»pT I 



02893855 T 
02893860 T 
Q2J918M T 



043t*2 

0434*3 
4 3 4 * 3 



29 

30 



5I«-L0C WHU DS*E1 DEC* 1 
TALLY*!* DS*8DEC; >H1«-Dl 

os»8,fill; wh2*-qi; ci+ct+ 



f toggle then 
) t21*tally; di«-s 
sgn; g o 11 1 



02893870 T 
02893875 T 
07fl93ft8Q T 



0436 »1 
0437*1 
043 8*2 



31 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 



DI*DI*U 0S*LIT — W i LI* 
END 
IF NOT P 



i 

THEN 



GO QVRFLW3 » 



02893885 T 
02893890 T 
ng8Q389S T 



0439*3 
0440*2 
0440*3 



SQNI 



IF NOT DECPT THEN 

BEGIN P(DEL'XCH#DEL); GO 
Ll»P* BUFF*-P ; 



TEST END ; 



02893900 T 
02893905 T 
0P893910 T 



0441 1 1 
0441*3 
0443*2 



IF W<13 THEN GO DREST1 * 
P(0&P(C1+8UFF> iNX (NOT El ) ) C43I 46* 23 
+B U FF. [3Ql33« E l.t3 Q<3 3) i 



02893915 T 
02893920 T 
02B93925 f 



0444*2 
0445*3 
0447*2 



FlVPTl* *«5. 49755813865 

STNRni 



GO..DREST ; 
P( O EU»DEL»del»DE L? i 



02893930 T 
02893935 T 
289 3940 T 



0450*1 

4 50*3 
0452*0 



45 

46 
17 
48 
49 
50 
51 
52 

53 
54 

55 

56 



STNRD1* 



D*SAV0 i 
P (XPI V #WH 1»0 ) 



END 



02893945 T 
02893950 T 
0?fl0305«i T 



0453*0 
0453*0 
4 5 3*3 



IF NOT OBLPREC 
BEGIN 
IF P THEN 



THEN 

GO GOTE i 



02893960 T 
02893965 T 
289 3 97Q T 



0454*3 
0455*1 
0455*3 



P(TENtA8,S<E*(P&(WHl 

WHU1*2*1 

IF E<0 THEN P{X,QNE 



*ABS(WH1) MOD P(MAXI 
3*P(TWHLF)**PCLQG8)) 
*XCH) ; 



) 3(9* 3*6.1 & 
]#WH1) i 



02893975 T 
02893980 T 
0? 893 9 85 T 



0456*2 
045813 
046 2*0 



GOT E* 



IF PC>3 ThEN 

BEGIN P(E-P 
E»p"j 



; 



02893990 T 
02893995 T 
02894000 T 



0404*0 
O464* 1 
0465*2 



END I 
IF C00E«13 THEN 

if mi U Hl #0 



AND CDLRSGN OR D>16 OR + 8CALE>nn 



02894005 T 
02694010 T 
Q2894015 T 



0466*0 
0466*0 
QAAAJL3 



THEN GO SE * 

ND+12; wh3«-whi ; 

END 



ELSE IF P AND WH2«0 THEN BEGIN HH3*E*P; ND*24 ENO ELSE 
BEGIN 
P(WH1»AP.S(HH1)3 i 



02894020 
02R94025 
02894030 



0470*3 
0471 ! 2 
04173 tQ 



BEGIN 

P(WHl»ARSf WH1) ) I 

IF C.P AND PCNK)) s O THEN WH2«-PCQ> ONE* W H 2> *H1> DLH* .HHl* «• ) * 

IF C.EtC.P&.(WH3*WHl).t.9f3l.6.]4HHl[ll2ll]*PCT.WHtF))>«PCt0Qa>)<0 

THEN PCOjOMEfTENlft^EliTENI-EltOLD) 

ELSE P(TENtE+693»TEN£E3) t 

Ti*PJ IP CP>WH2 ANO T1*WH1) OR Ti>WHl THEN E<-£"1 t 
P(HH2»HHUTENCft9 + AdS(E)3»TFNtABS(E)3»IF 0>F THEN 



047310 

0476*3 
0a e 4 Q 4 5 T 4 77 * 1 



02894035 T 
02894Q40 T 

tffc 



4 
5 

6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



02894030 T 0478 * I 
02894 055 T 0482 JO 
02 8 9 4 8 T 48 6*0 



02894120 t 
02894 i60 T 
02894200 



048912 
049JI2 
049611 



PCOLM) ELSE PCDLQ)) i 

ti«-pj T3«-p; PC243 ; 

IF TUPCTHREH) THFN P (T 1>P CTHBEH ) OR T 3>P (THRFL ) « - ) i 



02894240 T 0499*2 
02894280 T 0501 1.0 
'89 4 3 2 T 5 02* 



0289 4 3 2 ( 



1414. 



NO*P I 

IF N0S70+E THEN P(WH2»WHi,TENCND*693#TENCND3*DLM, 

. TENtfta^EUTENC-E-lljOLM) 



02894360 T 0505*2 
02894400 T 0506*0 
028944 1 T 0510 * 



ELSE PC WH2 * *H 1 » TEN t ( T 1 ? Afl SC.ND-E" I ) ) * 69 3 t TEN C T U » I F 

THEN P( OLD) ELSE PCDLM)) } 
WH1»P '» 



NOSE 



0289*425 T 051212 
02894440 T 05i7»0 
02894/iBO T 0519*0 



19 
20 
21 



P(T3*P*WHI»T6*TENC853»T4*TENtl63#0LD'HLF*-* ,Wh3# ISo» D£L» 

T3»whi#o#wh3#t6#T4#dlm*ols) ; 

WHUP * 



02894520 T 
02894560 t 
02894600 T 



05J9I2 
0523*3 

0525*3 



22 

23 
24 



P.CT3tP«..WHljf0.,.T8,DL0*HLF#-/.»WH2#lSD#DEL#T3 # .WH.l# 
0jWH2.#0#T8#.DLM»D.LS« f .WHl.*.lSD#DEL) * 

-EAUX 



02894640 T 0526*1 
02894680 T 0529*2 
02 8 94720 T 05 3 1* 



Ht^- 



15 

28 
27 
28 
29 

30 

31 ~ 

32 

33 

34 

36 

36 

37 " 

38 



IF T4*(Tl»T2*T3*T6«.0) = WH3 THEN PCCNO)) 

ELSE BEGIN PCE+1); IF CU0E«12 THEN P(SCALE»+) ENO 

Fl »P 1 



02894760 T 
02894800 T 

02894840 T 



0531*3 
0536*0 

Q539I0 



END ; 

GO PHRASECCQDE-1 i 

HLFMI 0.5 ; 



; 



02894880 T 
0289496Q T 
0?894965 T 



0539*2 
053912 

548 * ? 



.MAXI»I» 30777777777777777 
ONE** l 1.0 i 
xptv»h frinoonoooooooooo 



02894967 T 0550*0 
02895000 T 0551*0 
02895040 T 0352*0 



TWHLFU * 
NK* * * 
THREHt H 



12.5 ; 

00007000000000000 ; 
P1153013331500045 ; 



02895045 T 
02895050 T 
2 695 05 5 T 



0553*0 

0554*0 
0555*0 



THREL*** P0d03U212U67260 

L0G8*** 0.90308998709 ; 

Sri IP PfW«Cr5-SGNfQUP)<0 THFN GO OVRFLWl 



02895060 T 0556*0 
02895065 T 0557*0 
0?895070 T 0558*0 



40 
41 
42 



IF P(DUP)>63 THEN 
IF *H1=0 TH£N 
BE GI N 



BEGIN P(W»XCH,SUB*63,+); SKIP; PC63) END i 



in 



02895075 t 056H0 
02895080 T 0565*1 
02895085 T 0566*0 



43 



sfREAM(8KP*P|T2t#SGN#0*0*3#Dl«.P(OUP) ,C36l63'BUrF) * 
BEGIN 
SI»T2l^ 0S»SKP CHRJ MAYB£cSGN»U» w " w )J 0S»2LlT w .0" ; 



02895090 T 0566*2 
02895095 T 0569*2 
02895100 T 0569*2 



46 
47 
48 



JLQ. 



5j>T2li 

end ; 
test ; 



DS*0 CHR; D1(SI*T21; QS«-32CHR; 0i>*32CHR); S K p«.DI 



02895105 f 0572*0 
02895H0 T 0574*2 
02895115 T 0574*3 



«9 

50 

51 

- 
52 

53 

54 

55 

56 



EN9 i 
NO*E i 
IF SCALED THEN 



02895120 
02895125 

02895130 



T 0575*1 
T 0375*1 
T 0576*0 



IF SCAL£<0 THEN 

BEGIN IF P(1-SCALE'DUP)>D THEN GO 0VRFLW2 END 
ELSE BEGIN 



02895135 
02895140 
02895145 



T 0576*3 
T 0578*0 
T 0580*2 



IF P(SCALE*»#OUP)<0 THEN GO OVRFLWl i 
P<SKP*P)f 0*0+SCALEJ E«-E-«ALE; P(l) ; 



02895150 
028*91*5 
28951 6 



T ,0581*0 
T 0582*3 
T 0586*0 



.5? 



• • 



E|_SE BEGIN IF D = THEN GO OvHRLWl* P(l) END / 

T3 + P ; 

TF P(HHliTENrAbS(P(CEl*fl-T3)-NO»HUP))JtIF .P(XCH)>(. THEN 



02895165 
028V5170 
02695^75 



058650 
0588*0 

588 *2 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 

44 

45 

46 

47 

48 

49 

SO 

51 

52 

S3 

54 

55 

56 



P(x) ELSE P</)>. 

BEGIN PCTEN 

Pf5)t IF D> 6 TH 



T4#ISN)«TENCE1*11 THEN 

CE1]*.T4#ISD); E«-E*l END ; 

£M AEGIM Fl»T4 nlV T8I n»n«RI PfOFt^Q) FNn 1 



02895t80 
02895185 

Q2fl95l9Q 



0592IQ 
0595*1 
059810 



5TREAM(SKP*P*Q*P*0»EWTa#E*ABSCE+T3)»E5*E<C-T3)#SGN#T2l#BuFF) > 

BEGIN 
.SI-T21 » DS+SKP CHRj MAYBE( SGNt t 1 t"- w )1 DS»LlT", M ? Ql±£d*JjI 



02895195 
02895200 
Q28952Q5 



0602*2 
0606 I 3 
060613 



SULOC EH 05 + DEC; DS*8D£CJ GO L2J Sl*LOc T4j os*o OEC I 

1,21 DS*2LIT*E "J CI*Cl + ESi GO l3t 01*01-11 0S*LlT"-" i 

L3t QS»?QFCJ SKP»QI * 



02895210 
02695215 
02 8 95220 



060913 
0611 1 3 
61 313 



PCDEL 
IF SC 



END ; 

) ; 

Al,E>0 



THEN *TREAM(SCAl.r'SKP»SKP + SfiNtBUFF) j 



02895225 
02895230 

02895235 



061411 

061412 
Ci 6 1. <i 1 3 



BEGIN 

01*01* 

QS»LIT 



SKp; 

If .H 



skp*di; Sl*SKp; si*si*i; ds*scalE chr ; 



02095240 
02895245 

02895250 



061713 
0617*3 

6 19 » a 



TT I 



GO TE 
PCCHR 



EN0 ; 

st ; 



IF PRNTR THEN PCDELfH+6) i 



02895255 
02895260 
02 8 952 6 5 



0620 ID 
062011 
6 a »3 



P((P(DUP).C33«123 INX SA VBUFF )4p( XCH ) C 30 145 1 3j ); GQ TEST J 
XXI PCO) I 
X11 SkIPJ «0 TgSTl ; . 



02895280 

02895320 
02895360 



0623*3 

0626*2 
0626*3 



SSI 

CC« 

AAI 



OUTPUTS IF CR*R"1)>0 THEN GO SS ELSE GO TEST2 ) 



P(HHi,6 ) 

Skip 



x 



02895400 

02895440 
Q2»95qflQ 



0628*2 
0632*3 
0632*3 



All 



STREAM(Q»P*T*IF C0DE»6 THEN 2 E^SE 8-T1 #T1#8UFF J i 

BEGIN SI-LOC Qi si»si+t; QS»Tl CHR; Q»DI END 

an Test 1 



02895520 
0289556Q 
03895*00 



0633*1 
06341Q 
0638*0 



GO TEST 

LL* Pt"F"); IF T5 THEN P(29#*>* P(l)* GO Al 
PPt SCALE»WtrMTwCl»4ltl]; CHR+CHH»w; GO TEST1 ; 



; 



02895640 
02895680 
299572 



0639*3 
0640*1 
64 2 *? 



001 P(16)l SKIP f 

STREAMCQ*3*<16«»Tl)iTl»WHl>8yFF> 
BEJklA 



; 



02895760 
02895800 
02895840 



064610 
0647*0 



SI*LQC ..rt.Hi; SKIP fl SB ) 
T1CDS«-3RESET; 3C IF SB ThEN 

q»di '* : 



DS«-SET ELSE DS*RESEt; SKIP SB)) ; 



02895880 
02895920 

2 895 96Q 



0649*3 
0650*2 
065 3? ? 



HH» 



END i 
GO TEST ; 
PtOELH If_ 



(CHH*CHR+R)>MAXCHR then go away ; 



02896000 
02896040 
02 896080 



0653*3 

0654*0 
0654*? 



STREAMCi«-CFMTCFin:R>S«-R f [36* 6]* BUFF) i 

BEGIN SI«-q; Sj»SI+3; dS*-K CHR* S(DS*32CHRJ 03*32CHR)J 
BU FF»p; FI »(^*2 ),[ 36t93*Fi; GQ G ET>EXTP, H RA9 E J 



Q*DI END i 



02896100 
02896120 
02R96l6Q 



0657*2 
0660*0 
0662* 2 



GG« IF TYPE.INTEGR T*EN BEGIN 0ECPT*0*0; 

IF TYPE«L0GICAL THEN GO LL i 
IF EiaO AND E1S0 THEN 



GO II END ; 



02896200 
02896240 
Q 2 89 6 28Q 



0668*0 
067l»0 
0672*1 



BEGIN 
W*W»4.i 



D*0-E1 i 



JJLL 



02896320 
02896360 
02896400 



0674*0 
0674*2 
0677*0 



FF« 



IF P(0,E1+Q»DUP)<0 THEN P(D£L#WH3*0) J 

IF T4 AND OECPT THEN T6»P ELSE T3*SETUP*T3 i 



02696440 
02896480 
0289 6 52 



0677*0 
0677*0 
96 60*1 



P(C0DE*9) i 

E*..(T4*IF . CNU*6)<Et THEN El ELSE P(DUP) )*(T5*lP COMMAS TH£N 
C T*-U. D I V 3 E L S E, OH UL RSGN + SGN i , _ 



02896600 
02896640 
02896660 



0685*0 
0685*3 
06 8 9*1 



IF P THEN 

BEGIN If <CHR*CI*«*E*«)>MAXCHR THEN 4JQ AWAYJ P<*H3«0) END 
FLSF IF P<tt»B»nECPT«r,DUm<0 THFM &0 ftVRFLHg i 



02896720 
02896725 

0289ft760 



0694*0 
0694*0 

0698*0 



J7J 



• • 



h 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 



21 

22 
) 23 

24 

25 
| 26 

27 

28 

I a 

M 

31 ~ 

I 32 
33 

34 
I » 

36 

37 ~ 
| 38 

39 

40 
I 41 

42 

43 
i 44 / 

45 

46 

«7 

18 



«9 
50 
51 
52 
53 
54 
55 
56 



SKP+P+Tb ; 

IF El LSS 1 THEN 

R&filN IF CND»CTa»SISP^n)"En>0 



-EE-L 



G0 CONVERT 
END ; 

P( w e*>)j — go oi 



; 



THEN NPfrO+T4JSKP»SKP-T4 FND; 



00 J PCD") » 

Dll IF T4 THEN BEGIN PCOELJ; GQ....SE END; IF P< 3C ALE>DUP ><0 THEN PCdEl>0); 
TF (SKP»«P(n+P*DUPl+H-S"S.fiN«DLRSflM,<Q Thfn p.n DvHFW l 



if d*scaleio then if -scale4sav0 then go 0vrfi.w2 else pcscale,*) 
if setup then p<tencT3*i]»,hh3«iso> ; 

tc <Ta»Mn»OKSCALr Turw , 



; 



BEGIN 

IF ABSCEi*El-SCALE)>99 fHEN GO .0VRF|>1 

TF D TH£N N.D+-SCALF ELSE Tfl»SCALE ; 



END } 

CONVERT* 
IF NOT OBLPRftC ANO T3>B THEN 



BEGIN WH3MWH2**IH3) .01 V I8i T3«-T3*T2*8 END ; 

8TREAMCND^SKPiT.6.*SQN..»E.*O.E.CPr.'S»S.KP.,t3.6i.63»f*T«.c3e?63#0lRSGN#T«* 
. T2l,rtH3,T3,HH2,T2,W Hl'TUBt]rF) ; , 



BEGIN SX*T2U OS*SKP CHR ; 

5CSI*T8i; 0S*32CHR; 0S*32CHR)j SKP+DIJ MAYBECDLRSGNia3»"$ , ' ) 

MAVBEtSQN«ll,«»»); 86N»0I1 DUtlI»EJ NDf DS»LlT»0»a i 



§I«-LQC "H3; 0S*-T3 DEC; i>I*LOC *H2; DS«-T2 DEC; Sl*LOC *H1 i 
OS*Tl DEC; Tft(pS.tUIT w O"Ji T(32CDS*21IT M M )); ND'Dl; Cl*Cl+E 
GO L2J $T« -^GN? DT»SGm; S t »S ! +Vi n S»T4 CMat ns»LyT w t w | L2J 



END ; 
T6*P ; 
IF (T4»P(XCH))*ti 



THEN 



STREaM(BUFF*P«T4^SgN«-IF El USS THEN "*" ^LSt " %5* ABS ( El ) ) I 
BEGIN 

QifrBUFF; si»luc Ta; St»st47j ds»chr; si«-5|+7; ds»chr ; 



os>2 dec; buff«-di ; 



ElSE TF T5>0 THEN 



STREAMCT«-T5"l»Q«-E-T5x4*T5»T6) / 
BEGIN 
SI»T6J 0K-DI-T5J US«-Q CHR; OS»LIT"»" i 



T(0S*3chr; os*lit w # m ) 
end ; 
if hjsavw then begin buff»p; p(w+n»savw> j go xi end ; 



GO TEST 
UVRFL.W3* 

P(QEL) / 



; 



0VRFLW2I 

P(OEL) 
OVRFLWll 



.. P.COEU ; 
OVRFLW* 

STREAMCW«.SAVWtWl»SAVW.f36t63*RUFF) ; 

BEGIN W(DS«-IIT"*"); 'MtC.92(0S»2LlT"*"))J 



TESTI 



w*di end ; 



»p * 



TEST.1.1 

IF 

TFST2* 



CR*R-1)>0 THEN GO . REPEAT i 



GO GETNEXTPHRASE ; 

C0DE»4I GO REPEAT2 ENn 1 



IF (XTRA AND 3)»0 

PtXTRA)! XT*A*5AVW*0 I 

IF, ECPUPl' ; tH£N BEGIN SAVW+P. U2*33 i 



02896800 
02896840 

Q2fl968flC 



02896920 
02896960 
028970 



0703*0 
0704*0 
070413 



02897040 
02897 8o 
02^971(10 



07U*0 
0711*2 
0711*3 



02897120 
02897360 

QaflQ74flo 



0712*1 
0712*2 
0716*0 



072012 

0724*1 

07?7»n 



02897440 
2897480 
02897520 



0289*560 
02897600 
Q?B97A4Q 



0728*3 
0729*1 

0731*3 



0734*3 
0734*3 
073 AM 



02897680 
02897720 

0?89776Q 



02897800 
02897840 

02897880 



07 36*1 
740*1 
0744* 0, 



028 9 7920 
02897960 
Q28960Q0 



0746*1 
074710 

075010 



753*1 
0755*0 
0759*4- 



028980*0 
02898080 
02898120 



02898160 
02898200 
0?898?40 



0761*1 
0761*2 
0762*0 



0763*1 
0767*1 
0707'? 



02898280 
02898320 
02B9836Q 



02898400 
02898440 
02898480 



0769*0 
0769*2 
076 912 



0771*0 
0774*2 
0774* 2 



02898520 
02898560 
03898AO0 



0776*1 
0777*3 
0778 *0 



02898640 
02898660 
03898665 



0781*2 
0782*0 
0783*0 



02898680 
02898720 
03898760 



0782H 
0782*1 
0783*1 



02898600 
028988*0 
?998 fl8 



02898920 
02898960 
Q?699000 



0783*1 
0784*1 
P78<H.l 



0787*0 
0790*2 
0790*? 



02899040 
02899080 

0?.899085 



02899120 
02899180 
,02 899 2 00 



0791*2 
0791*2 

0793*3 



0793*3 
079512 
0797*0 



T* 



JJ 



n 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
26 
26 
27 
28 
29 
JO 
31 " 
32 
33 
34 
36 
36 

37 ~ 
38 
39 
40 
41 
42 
43 ~ 
44 
•6 
46 
47 
18 
«9 
50 
51 
52 
53 
54 
55 
56 
57 



CODE«-i; R*P.C<I2UJ; 
END OF FTOUTFIX ; 



gu ss ; 



02899240 
02899280 



080210 
080<.»1 
ZE « 6 05 W O RDS 



X FORTRAN 
PROCEDURE FTOUT; 



OUTPUT 



INTRINSIC 
% 031 



02900000 

02900100 

START OF REL SEGMENT! OlSK 



0000 

0000 

PORESS 



10 
10 



60375 



COMMENT 



BEGIN 
FILX 
FMTA 



FILE TOP 10 DESCRIPTOR 
FORMAT QR NAMEUIST OR 



02900200 
02900300 
02900 4 00 



0000 
00001 

oooo t o 



JO 
JO 

-1 



USX ACCIDENTAL ENTRY OESc« OR 
EOITCOOE NO FORMAT* NO LIST 
1 FORMAT, NO LIST : 



02900500 
0g900600 

02900700 



0000 
0000 



«0 
10 
O QO QiQ 



2 NO FORMAT* LIST 

3 FORMAT* LIST 

<* , NAM ELIST 



02900800 
02900900 
Q2901Q00 



0000 
0000 
0000 



'0 
«0 
UN- 



REAL 



EOITCODE 
FHRTERR 



* 



-I* 

24* 



0290U00 
02901200 
02901210 



0000 
0000 
0000 



«0 

to 

JLO- 



LISX 

FI 

DKADR 



"2/ 

-5> 



02901300 
O290H00 
029Q15QQ 



0000 
0000 
0000 



»0 
JO 
ID- 



ARRAY 
NAME 



FMTA 
FILX 

MEM 



» -3C*J* FP6 
s -6* 
J5 2J 



* 3t*3 t 



02901600 
02901700 
Q2901800 



0000 
0000 
0000 



to 

10 
10- 



RE.AL 
INTEGFR 



ALGOLWR 
SELECT 

LSTWN 



HE 



s 12' 

a Hi 

* 1 9' 



02901900 
02902000 
Q29023QQ 



0000 
0000 
OQQO 



*0 
»0 
L0_ 



REAL 
ARRAY 



LISTYPE 

ARRAYST 

_T_£J4 



UFF 



20* 

221* 1 t 



02902400 
02902500 
02902900 



0000! 
0000! 



i*0 

oooo to 



N AME 



TPAR 

FIB[*]i 

LTSTADR. 



« 23C*3* 



02903000 
02903100 

2 90 32 00 



0000 
0000 
0000 



10 
»0 
UN- 



REAL 



BUFF 
BSIZE 

JDJi 



» x first buffer position 

> X ARGUMENTS 

TRUE FOR SE R I A L I/O 



02903300 
02903400 
02903410 



0000 
0000 
0000 



to 

10 



WH1* 

rtH2 

HI 



, % 

t % 



02903500 
02903600 
02903700 



0000 
0000 



»0 
10 
10. 



ARR1Y 



W2 

NFCI 

IQ 8UFF 



» BUFFC*31 



> % 

; % 



NEXT FORMAT CHAR LOCATION 



02903800 
02903900 
03904000 



0000 
0000 
OOOQ 



10 
10 
JJ5_ 



INTEGER 



DH1 
DH2 
PH3 



> % 
, X 

-t-JL 



CONV- 
ERTED NU- 



MBE R 



02904100 
02904200 
02904300 



0000 
0000 
0000 



to 

to 

10- 



RPT 

w 

WT 



* * REPEAT INDICATOR 

» X FIELD 

t % : HIQTH ^ 



02904400 
02904500 
02904600 



0000 
0000 
0000 



to 

10 
10- 



Tl 
D 

J3X 



» X 

» X 



OEC- 



IM At. P- 



02904700 
02904800 
029049 Q 



0000 
0000 



to 
to 



ooo o t o 



Dl 

02 

-03- 



X 
» % 

-M — IL 



LA« 



CE« 



02909000 
02905100 
02905200 



10 

itO 

ooooto 



00001 
0000! 



ZEROS 

EXP 

SHFT 



* % TRAILING ZEROES 
» X EXPONENT 
-X — INTEGER PART OF SHIFT 



02905300 T 000010 
02905400 T 0000*0 
02905500 T 000 JO 



CODE 
SKP 

NC R 



, % EDITING FUNCTION 
# X REDUNDANT POSITIONS 
^_l CURRENT B UFFER PO SITlUN 



02905600 
02905700 
02905800 



T 0000 
T OOOQ 
X 0000 



to 
io 

JL0- 



J0 



• • 



LCR 
QUOTE 
CHR 



PRCW 
PCT, 
PS^ 



, % BUFFER SUE IN CHARACTERS 
> % STRING DELIMITER (" OH P) 
,*_JK C U RR E NT C HAR FR O M F O RM A T 



* PAREK CONTROL WORD 
% PAREN COUNTER 



02905900 T 
02905910 T 
02906Q00 T 



0000*0 
0000*0 
OQQQiQ 



02906010 T 
02906Q20 T 



0000*0 
0000*0 



IX 



5CAL F F AC TO R 



02906100 T 000010 



BOOLEAN 



dqnetqg 

SGN 
PRNT» 



*% TRUf 



* X RETURN 
> % SIGN 
IF PRINT S QUT 



AFTER WRITE 

PUT 



02906200 T 
02906 300 T 
02906000 T 



0000*0 
0000*0 
0000*0 



7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

«8 



FMERBTOG 
LGTG 
PTOG 



FORMAT ERROR 

DOUBLE PRECISION TOG 



02906500 T 
02906600 T 
029Q67Q Q T 



0000*0 

ooooto 

OQQ Q'n 



CTOg 

GTQGA 

GTOfi 



, % COMPLEX NUMBER TOG 
* % G EDITING TOG W-D - S G N > 
JL_X fi EDITING TOG 



02906800 T 
02906810 T 
029Q69QQ T 



0000*0 
0000*0 
0000*0 



OEHNE 



OBLV 

CMPLXV 

GTYPE 



* b*, 

* 6## 

a lit 



02907300 T 0000*0 
02907«00 T 0000*0 
0290750 t 0000*0 



F.T.YPE 
LTYPE 
DTYPE 



JUULl. 



02907600 T 
02907700 T 
029n7flOn T 



0000*0 
0000*0 

ooooto 



ITYPE 
LTYPE 
AT YPE 



* 5#» 
» 7*# 



02907900 T 
02908000 T 
0290fil00 T 



0000*0 
0000*0 
0000*0 



UTYPE 
KIND 

TAPEF 



* ..cFi.euj..te* «.})#.> 



02908200 T 
02908300 T 
029 08 5 



0000*0 

0000*0 

29 08 5 T 0000*0 



MAX 

DLN 
CMP LX 



^77777777777 
* UISTYPE.C4 
» CL IS TY PE.C* 



77#* 

4*4] «OBLV}#> 
4143 m CMPLXV)** 



02908700 T 
02908900 T 
02909000 T 



0000*0 
0000*0 

ooooto 



TWDD 
LPPS 
LPPR 



..* LlSTYPE.C3a*U#* 
= 15*30 J 18## 

a [i*>na]<> 



02909100 T 
02909200 T 
02909300 T 



0000*0 
OOOOIO 
0000*0 



RPTF 
NORF 
_PJ1£ 



» C33«153*> 
* (P(XCH#DUP) 
f9lft.«. 



< 0)*' 



02909400 T 
02909500 T 
02909510 T 



0000*0 
0000*0 
0000*0 



ENDLIST « CLSTRN = (-1))## 

SI2EF - C33*153#> 

BAS LF ~ Clfl»lS 3*» ; 



02909600 T 
02909700 T 
0P9C9800 T 



0000*0 
0000*0 
0000*0 



label typerr>nmlst# 

strt*rep£*t»lpar 

CLl»CL2t CL3»f.L4t 



»rtpar#slash#string#tfmt#fmterr* 

SCALiHQLf t»KlP*CL3A*STRA«TFMAtTlX« 



02910000 T 
02910100 T 
02910200 T 



0000*0 
0000*0 
0000*0 



ertn,g,f,e,dc>i, 
nofl*fnol»binary 

FRmTCD,NFPH*FMCY 



l>A#AA,t], 

>FMTLST* 

C^FMEPR' Z 



FA,GA,AST#COMM# 



02910300 T 
029104Q0 T 
Q29 1Q9 QQ T 



0000*0 

0000*0 
0000*0 



COMMENT ***** START OP SUBR 

SUBROUTINE QKPB; 

BE GIN CO MM ENT I NITIAL IZ E FI LE 



OUTINE DECLARATIONS * "* * * * * * ; * t 
AND ACQUIRE RECORD SlZEl 



02910600 T 
02910700 T 
0291080 T 



0000*0 
0000*0 
OQOllO 



LCR ♦ 8x(BSlZE * P(MKS#FLG'DKADR 
IF PRNTR«-PRNTR&C((Tl*FIBt t ,].[8«4 
^___ , ri3»ll3+33.r43*53<20H 



*o#(-i )#filx*algol w rITE)); 

J)«l OR TW OR Tl"l2) AND FPBCFIBU3 
47*47*13 TMF N 



02910900 T 
02 911 000 T 
291 1005 T 



0001*0 
0004*? 
00 9*0 



•9 
50 
51 
52 
53 
54 
55 
56 



IF BSIZE i 1? THEN BEGIN LCR 
BUFF^CIF Tl*PRNTfi AND (EDITcQDE* 
♦ C33H53 



* 132J BSIZE ♦ 17 ENDi 
1 OR £0JTC0QE>2) TH£N TPaR ELSE *FlLX) 



02911010 T 
029 11 100 T 

0291 1200 T 



0013*0 
0016*1 

0020*2 



IF ((NOT Tl) OR PRNTR,[ 

STREAV(P2 * (BSIZE-13.C 
P3»BSiZE»Tl-l 



46113) AND ED1TC00EX2 THEN 

36*6], 

*P4*BUFF) ; 



029H400 T 
02911500 T 
02911600 T 



0022*0 

0024*2 
0026*2 



BEGIN 




3 2 *OS?J 



02911700 T 
0*9 U 890 T 
0191 1900 T 



0028*1 
0Q29 1 3 

00 30*0 



DS ♦ P3 WD5>; 



n cr ♦ o ; 



02912000 T 
02912100 T 
2 912 3 00 T 



0031*1 
003l»3 
003210 



END ckpb; 

subroutine prntj 
begin comment 



GENERATE A CALL FOR CAR. CONT. AND FOR OUTPUT* 



029 |2400 T 
02912500 T 
0?9l2ftQQ T 



0032*3 
003310 
003310 



IF PRfvTR AND CEOlTCUDE ■ 1 OR EUlTCODE i 3) ThEN 

begin; 

NC R t Oi 



02912700 T 
02912800 T 
02912900 T 



0033*0 

.00.3511 

QO?sm 



STREAM(P1*-0*P2*TP 
BEGIN SI »P2I 01 
PI » P2J DS 



AR)I 

♦■ LOC Pll 01 *DI ♦ 7; OS *CMRI 

♦ in g w ;en d; 



02913000 T 
02913100 t 
02913200 T 



0036(2 
003810 
003910 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

•3 

44 

45 

46 

47 

48 



NCR «• ..PI.. 
IF NCR * 
IF NCR * 



" " THEN D2 * 16 ELSE 
"0" THEN D2 *■ 32 ELSE 



02913300 T 
029 .lift 00 T 
Qg9},j50Q T 



0040 10 
0040 « 2 
004?»? 



10 

11 

12 

13 
,4 | 
15 
16 

»*. 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

2B 

29 ( 

30 

31 

32< 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

4,1 

42 

43 

44 ( 

45 

46 

47' 

48 

49 

50 ( 

51 

52 

53 { 

54 

55 

56< 

5} 



IF NCR * "*" 

IF (02 
TF NOT PR N TR 



then 02 * else 
* ncr) > 9 then 02 * 161 

.C46I11 THEN FTBtl73»rlfltl71 + B<tl7E ; 



02913600 T 0045*0 
02913700 T 0047*2 

Q291390Q T 0050*2 



.PCHKS#D.2..C4«! 
FIBC6HFIBI6 

NHT (*FIL 



4£- 



l2r».D2*C44.i«)#P.R.NTR,C.4e*iJ»BSlZe#FlLX»AL.G0LHRlT.E) i 

]-CD2sO) ; 

XJU-C4JLUJ TH£N P(FIL X*P20nnnononO/2tc0^ i> OEL»obL) j 



02914000 T 
02914010 T 
0291 4 1 T 00 5 9*3 



0054*0 

005711 
1_ 



PRNTRnJ CKPB I 
STREAM(Pi«-TPAR#P2**FiLX»P3*BSl2£ t C36l6)#P4fBSl2E) ; 

B E GIN 



02914200 T 0063*0 
02914300 T 0065*0 
291 44 00 T 00 6 7 » g 



si ♦ pi; 01 ♦ P2i us * P4 wds; 

P3CDS «-32 WDS; DS ♦ 32 WDS); 

oh-pi; P4cns«-aLiT M ") ; 



02914500 T 
02914600 T 



0067*? 
0068*2 
0291^ 6 1 T 06 9* 3 



ENOI 
FlBtl7)*F 

FNn ELSE 



IBC173-BSIZE; IF DONETOG THEN PCXIT) I 

REG IN P(MKS>FLfi#nKAUR^O/RSlZF*FILX»ALGOLWRtTE)f 



02914700 T 
0291*800 T 
Q29l<t9Q0 T 



0072*0 
0072*1 
0075*1 



END 



IF OQNETO 
CKPB END 
PRNTl 



THf.N P(XIT)I 



02915000 T 
02915100 T 
02915200 T 



00 7813 
0079 * 3 
00B1*0 



LABEL NFCLl 

REAL SUBROUTINE NFCi 

BFGIN 



02915300 T 0081*1 
02915400 T 008111 
02915500 T 0082*0 



NFCL* 

WHILE NFCI.C45UJ < 2 

STBffAMtPl ♦ 0tP2 +FMT 



DO NFCI * NFCI + II 
A[NFCI.[30U5J]*P3 t NFCI . T45* 33 ) I 



02915600 T 
02915700 T 
02915800 T 



0082 1.0 
0082*0 
006 5* 2 



BEGIN 01 * LOC Pi; DS ♦ 7 LIT "0"! 

si * loc P2; si *si ♦ P3;os ♦ chr; 
si + si * u ni » oi g u 



02915900 T 
02916000 T 

oa9J6ino t 



0088*1 
0089*3 
009013 



end; 

NFCI ♦..NFCI 
N FC ♦ CHR f 



+ l; IF (CHR ♦ P) = " " THEN IF NOT LGTG THEN GO NFCL; 



02916800 T 
02916900 t 
02917000 T 



0091* 1 

0091*2 
0095*0 



END NFCI 
SUBROUTINE 
B FG IN / 



1ST! 



02917100 T 
02917200 T 
02917300 T 



0095*2 
0095*3 
0096*0 



STREAMCPl * 0IP2 ..♦ BU 
BEGIN SI ♦ LOC H3 
P I «• P2| 



FFfP3 ♦ CHR); 

; si ♦ si + 7; 

DS t c hr ; pi ♦ pi; 



02917400 T 
02917500 T 
029 1 7 6 00 T 



0096*0 
0097*2 
009 6 10 



so 

51 



end; 
♦ pi 

END 1ST! 



02917700 T 
02917800 T 
02917900 T 



0098*3 
0099*0 
00991-2- 



52 
53 
54 

55 
56 
B7 



X PA 
BOOLEAN ATOG* 
ARRAY AR 1 = L 



rameters 
twdt; 

ISTADRC* 



FOR LIST CONTROL 
U 



02918000 T 
02918100 T 
Q29J82Q0 T 



0099*3 
0099*3 
0099* 



BEAU 

LABEL RTNLST* 



» 
5RTJ 

.-■»■ IF 



TWDT THEN P<*URitINDX.C 33*73 3 3, INOX. UQ*83,CQC ) 



02918400* f 
02918500 T 
Q2 9 1860Q T 



»3 

0099*3 

Q 99 M 



• • 



>r 



9 

10 
11 
12 
13 
14 
15 
16 
17 
18 



19 
20 



21 
22 



23 
24 



26 
26 
27 
28 



29 

JO 



31 

32 
33 
34 
35 

36 

37~ 



39 
40 
41 
42 
43* 



45 
46 
17 
48 



49 

50 



51 
52 
53 
54 

55 

56 



SUBROUTINE 
REG IN 



getlist; 



ELSE ARHINDX]*; 



SRTI IF 
BEGIN 
1£- 



ATOG THEN 



DIN THFN 



BEGIN 



WH1 



■ k XT elm; 

» INOX + 



-U_ 



WH2 
END ELSE 
BEGIN 



*■ NXTEL«J 



FN-n; 



W.H.J.. 
WH2 



n xt elm; 
0; 



BEGIN 



IF (INOX *INOX * X) i SIZE THEN 
I 
AfiPAYSTUrr » rt: 



ATOG «• FALSE; 



END./ 



GU TO HTNL^Ti 



END* 
BEG I N 



IF CTOG THEN 

1 IMAGINARY 



WHl *• LISTADHCU; 

WH2 «• 0; 

CTflG *■ F At ..F; 



port of complex 



ENOi 



GO to rtnlst; 



P(Q)f LISTAQR + CLISX]* 



BEGIN 



IF ARHaYSTUFF / THEN 



ATnG » true; 



ENOi 



SIZE*CIN0X*ARRAYStuFF«8ASEF)+ARRAYSTUFF,SI2EF ; 
TWOT*NOT P<*(LlSTADR*MEMcLlSTADR.Cl6U5]])»T0P)J 

nr\ m srt; 



P(OEL) * 



PCDEL); 

WHl «• LIS TADRC03; 



WH2 * IF OLN THEN 

CTBG * cmplx; 

RTNLSTI 



LISTAORClJ ELSE 0; 



END GETLIST; 
SUBROUTINE FORMATCONTROL; 
BE G I N 



STRTt 



CLl* 



W«-D*CODE*-SKP*RPT*0; 
SGN»DONETOG»FMERRTOG»FALSEi 



COMMENT 
IF 
lf_ 



CHECK 
NFCS9 
CHH a 



FOR SINGLE 
THEN GO TO 
"(" QR CHH 



IF CHR * «)•» OR 
IF CHR»V" THEN 
IF CHR s «"»» OR 



CHARACTER EDITING TY?£S; 
REPEAT; X MUST BE REPEAT FIELD 
* "%" THEN GO TO LPAR; 



IF CHR*"T" THEN 
SGN«-(CHR*"- W ) & 
IF SGN THEN 



CHR m «£" 

GO slash; 

CHH n "»« 



GO TO tfmt; 

C C HRa " + " ) [ 2 I 4 7 » 1 3 ; 



THEN GO TO .RTPARJ 
THEN GO TO STRING! 



BEGIN 



IF NF 



THEN GO TO REPEAT 
ELSE GO WlMWM 



02918700 
02920200 
02920300 



02920400 
02920500 
08920600 



0099*3 
0099*3 
OlOQtQ 



02920700 
02920800 
02920900 



010010 

0100*1 
OlOQI 3 



02921000 
0292H00 
02921200 



01 02 10 
.010212 
Ol07*0 



02921300 
0292HQ0 
02921500 



010811 
0H2I3 
1 1 2 *3 



02921600 
02921700 

02921800 



0113*1 
0117*3 
011 8 *2 



0118*2 

0120*1 
0120*3 



02921900 
02922000 
029 2 2100 



02922200 
02922300 
0g922ft0Q 



012U2 
0122*1 

01228 -1- 



02922500 
02922600 

02^22700 



0122*3 
0122*3 
0123*0 



02922800 
02922900 

0292*600 



0i23»2 
125*0 
012 5 *3 



02923800 
02923900 
02924000 



0126*2 
0127*0 

0127IQ 



02924400 
02924500 



0128*0 
0128 5 3 
0l?9«j 



0292^700 
02924fl00 
Q?9?49QQ 



02925000 
02f25t00 
0?9?5?QQ 



0130*0 

0132*3 
0136*1 



0136*3 
0136 » 3 
Q137'0 



02925300 
02927400 
02927500 



0137*3 
014113 

0KHI3 



02927600 
02927700 
02927800 



014312 
Ol43«3 
Ql<t4tQ 



02927900 

02928000 
02928t00 



0144*0 
0144*0 
01*6*3 



02928200 
02928300 

29 2 8400 



0l48»2 

0148*2 
0j5l *Q 



015312 
0156*0 
0157*1 



02928500 
02928590 
02928600 



029,20700 
02928800 



0159*3 
016110 
01 63 * 3 



0164*0 
0164*2 
0166*2 



< 



1 
2 
3 

4 
5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 I 

18 

19 

20 ( 

21 



22 

23 ' 

24 

25 

26 i 

27 

28 

29 i 

30 

31 

32 i 

33 

34 

35 < 

36 

37 

38 ( 

39 

40 

4,1 

42 

43 



47 
48 
49 
50 ' 



52 
53 1 
54 
55 

3 



a 



^r 



10 

11 

12 
13 
14 

15 
16 
17 



19 
20 
21 



22 

23 

24 

25 

26 

27 

28 

29 

10 

31 

32 

93 

34 

35 

36 

37 " 

38 

39 

♦0 



end; 



IF CHH="," 
HPT»1J 



THEN GO TO STRT; 



Cj.21 COMMENT TYPES WHICH MAY HAVE REPEAT FIELOSJ 

IF SGN THEN RPT*"»RPT> 
If CHR««P" THFN flQ TO SCAL* 



IF 
IF 



RPT<0 OR SGN. 12*1] THEN GO TO FMTERR; 
CHH s "C" OR ChH s "X". THEN. .60 TO LPAR; 
CHR« W H" THEN GO T O H OI,; 



_CL-3i 



IF RPT«0 THEN RPT*H 
IF CHR » "X" THEN GO TO SKIP; 
COMMENT TYPES WHICH HAVF W FIELQS* 



IF CHRs M I" THEN CODE *> I TYPE ELSE 

IF CHR«"A" THEN CODE <■ ATYPE ELSE 
IF CHR a " L " THEN C ODE » LTYF E EL SE 



-CXJLL 



lf CHR<»"0" THEN CODE ♦ OTYPEJ 
IF CODE 1 ITYPE THEN GO TO CL3A; 
COMMFNT TYPES htth b ANn n ftf| nst 



IF CHR* M D" THEN .CODE...*. DTYPE ELSE 

IF CHR*"E" THEN CODE ...♦ ETYPE ELSE 
if nhRs"F" them rnp E * f typ E E'. s E 



CL3A» 



IF CHR* M G" THEN 

GO TO fmterr; 

CDMMEnT DEVFl nP \IA\ 1JF QF 



CODE ♦ GTYPE ELSE 

w Finn* 



IF .N.FC>9 THEN GO TQ..FMTERRJ ... 

W«-CHRI 

WHILE NFCS9 DO W» 1 Qxw+CHR i % CONVERT TO OCTAL 



NFCI*NteCl*iJ 

IF W>63 THEN GO TO FMTERR; 

TF CODE^ITYPE THEN CO TIXJ 



COMMENT DEVELOP D FIELD* 

IF NFC M ," THEN GO TO FMTfcRR; 
IF NFC >9 THFN GO Tfl FMfFRHJ 



D + CHfU 

WHILE NFCS9 DO 

NFCT»MFffT-n 



OMOxD+CHR; % CONVERT TO OCTAL 



GO TO tix; 

LPARt COMMENT GENERlTE PAREN 
IF PCTXQ AND fcPTsn 



control word; 

THEN RPTtl I 



Tl * RPT&NFCI[LPPSHCRPTS0Hl»47»l); 

IF PCT S J THEN PRCW ♦ Tl & >CT (9* 421 63 ; 

P (Tl* XCH)1 PCT»PCT+t; 



« 

43 
44 
45 
«6 
47 

(8 

— 
•9 

50 

51 



go to strt; 
rtpar: comment point at 
if nohf then 



LEFT PAR IF REPEAT NOT EXAUSTED; 



BEGIN 



* NO 



REPEAT FIELD 
UONETOG * ENDLISTi 
PRNTJ* WRITE OUT RECORD 



JLM 



BEGIN 



IF (PCT *■ PCT - 1) S THEN IF 
THEN BEGIN P(XCH»PRCW); PCT «■ 

ELSE , 



PRCW,PCF *Q 
2 END ELSE PCT 



♦ i; 



52 
53 
54 

55 

56 



IF CRPT*P(DUP)tRPTF) * 
THEN SESIN PtPCLUFCT 



PCT ■» li GO TO STRT ENp 



end; 



ELSE P(RPT • 1,CCX); 

nfci»pcdup).lpph; j RFSET Tn left parfm 



P<XCHJ* 
GO TO STRTI 
RFPEATI cnMMEMT CnwuFBT 



RFPFAT FIELD TO OCTAL IN RPTI 



02929000 
02929100 
02929200 



02929300 

02929400 
02929500 



0l67$2 
0167*2 
Ql6fl»3 



0169»2 
0169»2 
0171*1 



02929600 
02929700 
Q29298Q0 



02929900 
02930000 
05930100 



QH2*2 
0175*0 
0177 * 2 



02930200 
02930300 
02930/ < 00 



02930500 
02930600 

og 9 10700 



0178*3 
0180*3 

oi e a ' o 



0182*0 
0184*0 
018 6* 3 



02930800 
02930900 
029 3 1000 



0189*0 
0191*2 
1 92*3 



0293H00 
02931200 
029^1300 



0l92»3 
0194*3 
0197*1 



0199*3 
0202*1 
0202*1 



02931400 
029 31500 
02931600 



0202*1 
.0204*0 
0204*3 



02931700 
02931800 
029 3 1900 



02932000 
02932J 00 
02932200 



0209*1 
0210*2 
0211 * 3 



029323O0 
02932400 
02932500 



0213*0 
0213*0 
21 5*0 



02932600 
02932700 
029 32710 



0217*0 
0217*3 
0222*1 



02932800 
02932810 
02112820 



0223*2 
0224*0 

oaaatQ 



02932900 
02933000 
Q29331QQ 



0227*0 
0230*1 
0833*1 



02933200 
02933300 
029 33 4Q Q 



0235*0 
0235*2 
0235*2 



029 3 3410 
02933420 

02933500 



0236*2 
0237*0 
0238'? 



02933600 T 
02933700 T 
029 338 I 



0240'0 
0243*0 
0246*2 



02933900 
0293^000 
029,34100 



0246*2 
024710 
0248*1 



0g934200 
02934 300 
0g9 3 4 400 



T 0231*1 
T 0252*3 
2 0252*3 



0254*0 
0254*1 
0aS 4« 3 



• • 






h 



9 
10 
11 
12 



15 
16 
17 
18 



• 



19 
20 



21 
22 



23 
24 
26 






26 
27 
28 
29 
W 
31 " 



32 
33 



34 

35 



36 
37 " 



38 



40 
41 



42 
43 



45 
46 
47 
18 



19 
SO 
51 
52 
53 
54 
55 
56 



rpt«-chr; 
while nfcs9 

G Q T O C L 2 J 



do rpt* ioxrpt+chr; 



StASHl COMMENT WRITE OUT BUFFER; 

prut; 

an TQ STRTI 



STRING* 



STRA| 



COMMENT MOVE STRING FROM FORMAT ARRAY To BUFFER* 

QUOTE. * CNR; % SAVE STRING DELIMITER 
LftTG t TRUE? rHR «• NFCi . 



if (ncr * ncr + 1) > lcr then go to fmterrj 
jst;,v 

I F NFC t QU O TE THFN fiQ TO STR *J 



TFrT * 



LGTG <• FALSE i 

COMMENT SET BUFFER 

FPU flUlNG "T"; 



X " OR P 



6U TO strt; 

TO CHARACTER 



POSITION INDICATED BY Fi£l,0 



IF (RPT*NFC)>9 
WHILE NFCS9 00 
TF RPTHCR THEN 



THEN GO TO FMTERR; 
RPT*lOxRPT+CHR* 
fin TO FMTERRj 



Tfma: 



nc8«-Rpt-w 

buff +ccif prntr then tpar else 

WgR.[3Tn?nitHCRt30t<t5nii 



(*FILX)) INX 



go to strt; 

SCAl: COMMENT SCALE FACTOR 
PS»RRTi 



OF P PHRASE; 



go to strt; 
hol' comment hollerith siring' 
lgTg t true; 



BEGIN 



WHILE RPT > 00 
I 
IF (NCR » NCft » 13 > \c.u thfki fin to rytrBBi 



end; 



chr ♦ nfc; 1ST 

HPt«-HPT-i; 



lgtg ♦ false; 
skip* csmment x phrase; 
if (ncr » ncr+rpt) 



FyTLRRI 



T IX» 



go to tfma; 
fmerrtqgotrue; 



go to strt; 

> LCR then go to fmTerr; 



end fcrmatcontrol; 
subroutine funnyzeroa 

REGIN ; 



SKP «• w - (U + 6 + SGN); 

STREAM (Pi* BUFF«.P2*SKP#P3»S6N»P«*(0 + 4J); 

BEGIN 



_LJ_ 



di »pi; 01 ♦ 01 ♦ P2; 

P3(DS * LIT «•"; JUMP OUT TO L>; 
OS » 2 LTT- w O."J 



P4(DS ♦ LIT 

Pi «■ Di; 



); 



end; 



buff * p; 
end funnyzero; 
subroutine finoe; 



begin 



if dtug then 

DOUBLE ( TEN C 6 i|,0/WHl#WH2>x,«-,WHl,wH2) 
ELSE WH1 » T____j x ^Hi; 



EXP*(0*WH1C42* 3*6 34WH1U* 2* U*12, 5 )x f 90308998709 

wa *■ oi-,v.., 



02934500 
02934600 
0293 *1 7 00 



02934S00 
0293*900 
Q293!i000 



0254(3 
0255«2 
02601 1 



02935100 
02935110 
0293520fl 



026013 
0260^3 
02ft2lQ 



02935300 
02935400 
02935500 



0262 « 2 
026212 
0263?! 



02935600 
02935700 
029 3 5600 



0265«2 
026713 
026910 



02935900 
02936000 
0g93M0C 



027 1 »0 
027211 
02?2 < 1 



02936200 
02936300 
02936000 



0272*1 
0274*2 
027911 



02936500 
02936600 
02936700 



0280*2 
Q28.il 3 

-0284X0- 



02936800 
02936900 
Oa937 Q 0Q 



0286*2 
0287*0 
0287*0 



029 37100 
02937200 
02 9.3 7 100 



02937 400 
02937500 
0?937600 



0287*3 
0288*1 
02 8 8 * 1 



0289*0 
0290* 1 
0?9Qtl 



02937700 
02937800 
0g937900 



0292*2 
0296*0 
02971 T 



0297*3 
0299*0 
0299*0 



02938000 
02938100 

Q29382QQ 



02938300 
02938400 
Q2938 t iQQ 



030i»i 
0301*3 

030?»? 



02938600 
02938700 
029 36800 



0302*2 
0302*3 
Pq__3JL0 



02938900 
02939000 
029391 00 



0303*0 
0305*1 
0307*2 



0307*2 
0308*1 
031 0*0 



02939200 
02939300 
02 939 4Q Q 



02939500 
02939600 
02939700 



0310*2 
0311*3 
Q3 1?* 



02939800 
02939900 
02940000 



0312*1 
0312*3 
0313*0 



100 
02940130 



0313*0 
0313*1 



0318*2 

0322"H 
0323»0 



ft 

2< 
3 
4 
5( 

6 



9 

10 

11 I 

12 

13 

14 < 

15 

16 

,7l 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 I 

27 

26 

29< 

30 

31 

32* 

33 

34 

35 i 
36 
37 

36 4 
39 
40 

41 I 
42 
43 



45 
46 
47 
46 
49 
50 
51 
52 
53 



m 



54 
55 



n 

2 
3 

4 
5 
6 
7 



IF EXP > THEN DQUBLEC TEN IEXP3 > TEN [69+EXP 3 , +> Mi* W2 ) 

ELSE DOUBLE C1*0,TEN[ -EXP 3>TENC69-EXP 3 »/>«->M»W2) 
EL S E nl » I F &XP £ Q TH E N T E NUXP 3 E L SE 1 /TEN [ 'E .X P 3 ; 



02940300 T 
Q294040C y 
02940500 T 



0323*1 
0327«2 
3301 3 



li 



IF Whl > Wl THEN GO TO ERTN; 
If WHl ■ M THEN 
IF WH2 > W_2 THEN SO TO ERTN; 



02940600 T 
02900700 T 
03940600 T 



0|39»2 

0340*3 
OM4JL8 



EXP ♦. EXP-W 



ERTNJ 
E ND F l N QEi 



0?940900 T 
02941000 T 
029 4 U00 T 



.03«3I 1 
0344*2 
Qj44*2 



10 
11 
12 

13 

14 

IS 



subroutine numcqnvert; 

BEGIN 

IF Dl > THEN 



BEGIN 



D0UBLt(WHl#hH2'TENtl6 3#TENCB53*/»**Wl*W2); 
PHI » Wl DIV l.O; 



02941200 T 
02941300 T 
Q294U00 T 



034413 
034510 
034510 



02941500 I 
02941600 T 
029 4 17 0Q T 



034513 
0346*1 
03^9' 1 



9 
10 
'1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

.33 
34 
35 | 
36 
37 
38 | 
39 
40 
41 4 
42 
43 
44 4 
45 
46 
47 < 
48 
49 
50 ( 
51 
52 
53 ( 
54 
55 



end; 

IF 02 > THEN 
BEGIN |F pTQ G THEN 



02941800 T 
02941900 T 
02942000 T 



033012 
035012 
03*1*1 






16 
17 
18 
19 



BEGIN 

DOUBLE C WH 1 # WH2 * Dh 1 * Q» TEN CI 63* TEN 1 853 *x,-* 

T FN C fl lf T FNE771f/f»yWl>W?)i, 



02942100 T 
02942200 T 
Qg942300 T 



0.3521.0 
035212 

0355*1 



20 
21 
22 

23 
24 



END 



Dh2 ♦ «t Olv 1; 

ELSE OH? ♦ WH1 OTV TENTfl); 



02942400 T 
02942500 T 

029 4 2 6 T 



035713 
035910 
035910 



end; 

BEGIN 



IF DTQG THEN 



02942700 T 
02942800 T 
039 42 900 T 



0362 » 2 
0362*2 
0362*3 



25 
26 



27 
28 



DQUBL£CWHl*WH2*DHl»Q*TENCl6j,TENt85 3*x* 

DH2*0*TENt 83»TENt773#x# + #»,«.fWl»W2); 
0H3 «• Wl DIV ij 



02943000 T 
02943100 T 
029I32Q0 T 



0363*1 
0365*3 

036 91 1 



29 
30 
31 
32 



END 



ELSE 0H3 ...<■ WH.l DIV i; 
EXP t fcXPtll 



02943300 T 0370*2 
O29434OO T 0370*2 

02943 5 00 T — 0324844 



33 
34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

« 

44 

45 

46 

47 

18 

49 

SO 

51 

52 

53 

54 

55 

56 



end numcqnvert; 
subroutine seto; 

BEGIN 



02943600 T 
02943700 T 
0?9fl3ftOQ T 



0371*2 
03*3 » 3 
0^7/ttft 



BEGIN 



IF DLN AND DT > 23 THEN 

1 

Z£HQS»QT-23; j)T ♦• 23; Dl «• 7; D2 » D3 » 8; 



02943900 T 
02944000 T 
0?944iOQ T 



0374*0 
0376*1 
0376*3 



ENO ELSE IF DT>12 AND NOT DLN THEN 
BEGIN 

Zeros+pt-12; dt ± 12; oi»o; D2 ♦ 4; 03 » a; 



02944200 T 
02944300 T 
Q29444QQ T 



0380*3 
0383*2 
0384*0 



END ELSE IF DT>16 THEN 
BEGIN 
, D1»DT-U; D2»Q3»flf 



02944500 T 0388*1 
02944600 T 038912 
02944700 ,T — 0390*0 



EN0 ELSE IF DT > d THEN 
BEGIN 



02944800 T 0392*2 
02944906 T 0393*3 
029»5000 T 0394*1 



END ELSE 
BEGIN 



Ol«-02t.O;D3»QT; 



0397*0 

039710 

294530 T — 0397 * 2 



02945100 T 
02945200 T 
-0 



end; 
end setd; 
subroutine rnpdffi 



02945400 T 
02945500 T 



039912 

0399*2 
02945600 T 039913 



BEGIN 



IF DTCG THEN 

if Ti * Then 

nQllBLE(WHl/WH2»»5fT£N[T11*TFN[m69 3 > x,t,» t HHl,HH2) ELSE 



02945700 T 
02945800 T 
Q29459PQ T 



0400i0 

0400*1 
0401*2 



fnd rnooff; 



,E(WHl#HH2#»5#TENC*Tl)#TENt69»Tll#/#**»*WHi#WH23 
EL«E -WMi * HH1 ♦ (XF TUO THEN SxTENtU) ELSE 5/TENfTlj); 



02946000 T 
02946J00 T 
0g9 4 6g00 T 



0406*1 
041110 
4 U»0 



y 



• • 



h- 



2 
3 

4 
S 
6 
7 
8 
9 

to 

11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



SUBROUTINE 
BEGIN 
BEGIN 



scale; 

if dtjg then 

IP Tl * 



THEN DOUBUECWHl#*H2>TENni3#TENCT*+693#*#*#VilHl,WH2) 
ELSE DGUBLECwMl#wH2,TENt>Tn#TeNC69-UW#*»WHj,*H2)J 
IF HHl Z? TENCOTT THEN 



02946300 
02946400 
Q2946500 



0417*0 
0417*0 
4t 7»l 



02946600 T 041810 
02946700 T 042211 
039 4 6800 T — 4 26*3 



BEGIN 



ExP ♦ EXP ♦ 1; 

,l3nURLE(WHl»WH2fTfNtl3>Of/f »fWH1fWH2}l 



02946900 T 
02947000 T 
Q2947l0f) T 



04 27« 3 
0428 *1 

0429*2 



END 
END ELSE WH1 * IF Ti * THEN WHlxTENCTil ELSE WH1/T£NE-Tl ] J 

fno .Scale; — : 



02947200 T 
02947300 T 

02947400 T 



0432*1 
0432M 
0437* 



4^ 



X************** § j ^ k T F 

subroutine convert; 

BFGIN 



ED IT- CONTROL** ******* ********* 



02947500 T 
02947600 J 
0^947700 T 



043712 
04 37 '2 

Qq-18'0 



OTOG * GTOG «• FALSE; 

SGN oWHl.UUJJ IF CODE < LTYPE 

PHI » DH2 » 0H3 » ZEROS »EXP » S 



THEN WHi «. ABS(WHi); WT * HI DT 

kp » ShfT » pi » n2 » 03 » o; 



o; 



02947800 T 
02947900 T 
0?948000 T 



043810 
0439*1 
0444*1 



go to p(c0oe»dup*add); 

go to fmerr; 

go to g; 



02948100 T 
02948200 T 
Q2948 3 Q0 T 



0449*2 
0450«2 
0451. n 



GO TO 
GO TO 
G O TQ 



F* 
E# 

JU1L 



02948400 T 
02*48500 T 
02948600 T 



045l*2 
0452*0 
0452*2 



GO TO 
GO TO 
GO TO 



i; 

l; 

JJL 



02948700 T 0453*0 
02948800 T 0453*2 
02948900 T 0454*0 



25 
26 
27 
28 



GO TO 0* 

0* COMMENT OCTAL 
, I F W > 1 6 



CONVERSION * 
THFN SKP » * 



■ (l«T » 1*U 



02*49000 T 
02949100 T 
02949200 T 



0454*2 
0455*0 

0455*0 



29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 



STREA 
BE 



M(P1 *■ BUFF*P2 «• W.HWP3 .* 
GIN SI .* ...IQ.C P2; di ..*. pi; 

PI » 01 * P3? P5CSKIP 3 SB)j 



SKp»p4 «• WT*P5 «• 16-WT); 



02949300 T 
02949400 T 
029495Q0 T 



0458*0 
Q46o»2 
0461*0 



P4CDS ♦ 3 RESET; 3<IF 
PI » nn 



SB THEN DS ♦ SET 

ELSE OS ♦ RESETI SKjP Sb)>; 



02949600 t 
02949700 T 
0g9fl9a0Q T 



0462*2 
0464*1 

0465*2 



end; 
buff ♦ p; 
so to cum h; 



0.29499.00 T 
02950000 T 
02950100 T 



0465*3 
0466*0 
0466*2 



Al COMMENT A^PH 
IF M > 6 THEN SK 
AU STR£AM(P1 



*****#*; 



A CONVERSION * * 

P ♦ W - (WT * 6)1 

» BUFFIP2 » HH1»P3 «■ SKP* PU » WTll 



02950200 T 
02950300 T 
Q215Q4Q0 T 



0467*0 
0467*0 
Q470I0 



41 
42 
43 



BEGIN 01 * Pll DI «• DI + P3; 

si «. lOc P2; si «• si 
• DS » p4 chr; pi <• d i, 



+ 2; 



02950500 T 
O295O6OO T 
0?950700 T 



047i:3 
0472*2 
0473*0 



45 

•6 
47 
•8 



EN0I 
BUFF «• p; 

go to cumm; 



02950800 T 
02950900 T 
? 951Q0 Q T 



0473*3 
0474*0 
0474*? 



L» COMMENT LOGICIAL CONVER 

IF hi >1 THEN SKP*W 

WHl» Q&(IF HH1 THE 



siqn; 
-c«t«-d; 

N "T" ELSE t , F"U12'42»6]; 



0295.1100 T 
02951200 T 
O?951 3O0 T 



0475*0 
0475*0 
0478*0 



49 

50 
51 



go to aa; ■ 
ii comment integer convers 

IF WH1P0 AND wH2«0 



lONi 
THf N OT » Q3 » X EL SE 



02951400 T 
02951500 T 
0295160 T 



0481*1 
0481*3 
Q48H3 



32 
53 



BEGIN IF OTOG THEN 

D.QUBLEC.WH1»WH2>*»5 
ELS E mi » T l «■ HH 



*+>**HHl>HH2J X ROUND OFF 
U 



02951700 T 

02951800 t 
02951900 T, 



0485*1 
0486*0 
0468*3 



56 

57 



BEGIN 



IF 

m 



WH1«0 AND 
■:.'<• 



WH2»Q 
OT 



THEN EXP*»f ELSE FINOE ; 
♦03 * 1 ELSE 



02952000 T 
02952100 T 
29 522 00 T 



0492*1 
0497*0 
499*? 



n 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



IF CQLN AND EXPS24) OR (NOT DUN 

dt «■ txp-t-i; setd; numconvert; 



AND EXP212) THEN GO AST 



EJ1DJ 



02952300 T 0500*0 
02952400 T 0505*2 
08952500 T 0509 ?0 



end; 



IF DT * SGN > W THEN GO TO AST; 

IF W > flf ■♦ SON THEN SKP » W - DT g SfiNi 



02952600 T 0509*0 
02932700 T 0509* 
0?9 52fl OQ T Q51QI3 



STREAk(PU0«P2 •• 01 

P6 «- 03' P? «■ 
BEGIN 01 <■ Pip; 



P3 «• Phl*P4 «■ D2*P5 *■ DH2> 
DH3»P8 ♦■ SGi\>p9 «- SKP*P10 * 
P9(UI *■ PI j 1); 



buff); 



0?952900 T 
02953000 T 
0g9^3lQ0 T 



0514* 1 
0516^0 
05l7*2 



P8CDS «• LIT w - w ); 

SI <-LOC §3; DS * P2 DEC) 

si «• t.Qc Pi?; ns » P4 de 



d- 



02953200 T 0518*3 
02953210 T 052010 
0a<?S3300 T 0520*3 



SI 

Pi 



LQC 

oi; 



pf; 



ds «■ pe dec; 



ENC,! 



02953400 j 
02953500 T 
0g95 3 6 T 



0521*2 
0522*1 
0522 * 2 



13 
14 
15 



BUFF «■ p; 

go to comm; 

On r.HMMFNT 



nouBi e precision convert. same as e conwErtj 



02953700 T 0522*3 
02953800 T 0523*1 
0p95 3 900 T 0523 * 3 



16 

17 



e: comment e conversion.; 

otqg ♦ true; 
Se t d; 



02954000 T 0523*3 
02954100 T 0523«3 
029 5 4200 T S 2 / i » a 



19 
20 



21 
22 
23 



BEGIN 



IF WH1»0 AND WH2 » THEN 

ir w < fn+6 + sr,m> thf^ fin Tn ast: 



02954300 T 
029 54 400 T 
0g9 54 50 T 



0526*0 
0527*3 
0528*1 



FUNNr^ERU; 
END ELSE 
EE til N 



GO TO comm; 



02954600 T 0530*2 
02954700 T 0532*2 
02954600 T Q S» 3 2 1 2 



25 
25 



27 
28 
29 
30 
31 
32 
33 



finde; 
if ps s 



THEw 



REG IN 



02954900 T 053310 
02955000 T 053410 

029^5iQQ t Q^aaia 



IF (S(\P «• W - D " 5 - SGN) < THEN 

if cdt <• dt + ps). < o Then dt ♦• o; 
ti t exp - nn rnooff; 



GO TU AST/ SETD; 



02 9 55200 
029 55 300 
.0?.9554Q 



4 QC T 



t 0535*1 

T 0540*0 
0543 



i-6- 



ENO ELSE 
BEGIN 

oi t nl + cshfi » PS); sxin. 



02955500 T 0545*0 
02955600 j 0545*0 
0?955700 T 0545*: 



I5 4 5»2 



34 
35 



36 

37 ~ 
38 



ti .*.. txp - or, 

IF W<( T 1 *.(DT + 5 + 
S*P«-w-l t; 



BNCDF.F.;. 

SQK + . 2 E R il 5 ) 



then go tu ast; 



02.95.bB0.0 T 

02955900 T 
,,02V5t>J()W T 



0548*0 
0550*0 
0^3*1 



FNOJ 



Ti«-DT-l-EXP; 

numconvert; 



scale; 



02956100 T 
02956200 T 
029«i6^QQ T 



0554*2 
0554*2 
Qs*7in 



40 
41 
42 



exp«-exi j -ps; 
end; 

STR EA VfPl » 0*P? * SKp,P3 4- § G NfP4 <• Q 1 >P5 » PH I* 



02956/jOO T 
02956500 T 
02956600 T 



0558*0 
0559*1 
0559?! 



45 

46 
47 
48 
49 
50 
51 



P6 * D2>P7 ♦ DH2,P8 

Pll *• (EXP < 0)#Pi2 

BEGIN P I » P15; Dl * 



*■ D3#P9 ♦ DH3#P10 ♦• (DLN)# 

* ABS(£XP)»Pl3 ♦ SHFT»P14 ♦ ZER0S#Pl5 

PI ♦ P2; P3CDS * LIT "«")J : 



.BU.FF>' 



02956700 j 
02956800 T 
0g9S6Q0Q T 



0561*0 
0563-1 1 

Q565U 



Pg «■ Oi; 
SI + LUC 
SI «• LQC 



DS 
P5; 
?7i 



• LIT 

OS ♦ 
DS *■ 



t 
P4 
P6 



dec; 
d£c ; 



02957000 T 
02957100 T 
029^7200 T 



0567*2 
056811 
0569*0 



st * toe 

P14CDS * 
Pl l O CD I * 



P9; 
LIT • 

01 * 



DS * P8 

"); os 

±1 ps » 



dec; 

♦ LIT "E*J 
LIT w D n ); 



02957300 T 
02957400 T 
Q293750 T 



056913 
057012 
QS72U 



S2 
S3 

54 



OS ♦• LIT ' 
P1H0I * 
SI + LOG 



" ; 

DI - 
P12; 



l; DS 

PS » 



LIT 

dec; 



«■« 



); 



02957600 T 
02*57700 T 

02957800 T 



0573*3 
05741 1 
0575*3 



56 

5. 



pi *■ on 

P13C0I * pa; sj «. 
P 9 ff l 3,6Hft l 



pa; sj 



♦ SI ♦ 



1; 



O U T TQ x ) ; XX 



02957900 T 
02958000 T 
0295fii00 T 



0576*1 
057612 
Q577I3 



• • 



2 

3 

4 
5 

e 

7 

a 

9 
10 

11 

12 



END* 
BUFF «■ PJ 



fiQ TO CflMMi 



FJ COMMENT F CONVERSION; 

IF DTOS THEN 
IF PS>Q 



02958200 
02958300 
Ogfr gflfl O Q 



02958500 
©2958600 
02958700 



0579*2 
05?9:3 
5QQ » 1 



0580»3 
058013 



THEN . O.DUB.LE.C«Hl# WM2# TEN CP5]«TE.N I.69 + P5 3 #«#•■» WH1#WH2) 
ELSE 0GUBLE(Whl»rth2»TENC-PS]#TENC69-P5]#/#*»WHi»HH2) 
ELSE WHl MF PS > THEN HHlxTfcNIPSJ EL*E WH 1/TENC-PS 3 ; 



02958800 T 
2 958900 T 
0?959000 T 



0581 » 3 

0.586»0 
59QI1 



Fa* IF WH1»0 AND wH2«Q THEN EXP*0 EUSE 

BEGIN 
Tl » -(OT + U; RWDQFFJ 



02959100 T 0595*2 
02959200 T 0598*2 
Q.2 9 591 Q Q T 059910 



fjnde; 

if exp<0 then exp*q; 

if (t1«dt+ex,p + 1?> 12 



THEN nT»DT"(ZFRQS»Tl-l,P,)i, 



02959400 T 0602*0 
029.59500 T 060 3.10 
Q29596Q0 T 0605*0 



13 
14 
IS 



ti * oi; scale; 

IF ABSCWHl) > MAX 



THEN 



BEGIN 



02959700 T 
02959800 T 
03959900 T 



0610*0 
0612*0 
6 13*0 



16 
17 
18 



QT «■ 
..Tl....*. 
ENPi 



01 ^ i; ZEROS 

-1; scale; 



«• ZEROS + i; 



02960000 T 0613*2 
2960100 T 0616*0 
03960200 T 6 l 8' -0- 



19 
20 
21 



end; 



ot*ot ♦ exp +i; setd; 

IF H<(Tl*0+2+ SGN ♦ EXP) 



THEN GO TO ASTi 



02960300 T 0618*0 
02960^00 T 0618*0 
n3<?60500 T 06 2 1*0 



22 

23 
24 
25 
26 
27 
26 
29 
30 



skp«-w-ii; 
numconvert; 

STREAMCP1 * Q*P2. » SKP»P3 *■ Sgn»P« «• 01»P5 » 0H1, 



Og960600 T 0624*1 
2 960700 T 0625*2 
0g960Q00 T 62 7*0 



P6 *■ 02*P7 ♦ 0H2#P8 *• 03»P9 
Pll «• EXP'P12 ♦ BUFF); 
BEGTN 01 * P12; 01 * 01 ♦ Pg 



* DH3»PiO ♦ ZEROS' 
P3fDS » LIT "-" 



02960900 T 0628*3. 

02961000 T 0630*0 

g961l T 06 3 * 3 



P2 * Oi; 

SI «- LO.C 
Si * I..OC 



DS 

pa; 



♦ LIT 
DS «■ 

ns * 






P4 



oec; 

DEC? 



02961200 T 0632*3 
02961300 T 0633*2 
0a9 $ UQ0 r 6 3 4 *1 



31 
32 
33 



SI > LOC 
Pl0(DS «• 

pi *■ m; 



p9i 

LIT 



OS 

«0"); 



pa dec; 



02961500 T 0635*0 
02961600 T 0635*3 
Q29rtl700 T Q637I0 



34 

35 
36 

37 " 

38 

39 



P 11(0 I 
OS 



P2; 

LIT 



Si 
» . «1 



P2; si «- si + 

JUMP GUT TG X); 



1> ds «■ P11 c h h; 



x: 



end; 



02961800 T 0637*1 
02961900 T 0639*0 
02962QQO T 0640*1 



BUFF «• p; 



if gtgg then 
go to comm; 



GO TO ga; 



02962100 T 
02962200 T 

0?962300 T 



0640*2 
0641*0 
0642*0 



40 
41 
42 



comment g. conversion; 
gtog <■ true; 

IF ^HlsO AND ^H2 = Q 



THEN ExP»0 ELSE FiNDE; 



029624QO T 0644S0 
02962500 T 0644*0 
02962600 T 0644 13 



IF CGTPGA«-W-D-SGN>4) THEN 

IF EXP< (-1) THEN GO TO E; 

IF (Tl»0-EXP-l)<Q AND GTOGA THEN GO TO Pi 



02962610 T 
02962700 f 
Qp962fl00 T 



0649*0 
0651*1 
0653 *1 



(6 
47 
48 



w T *■ p; rt «■ a-4; 

D <■ D 1 *• T 1 ; 

go TO Fa; 



02962900 T 
02963000 T 
29631 00 T 



0656*3 
0658*3 
06 60*0 



49 

50 
51 
52 
53 
54 
55 
56 



ga* 

STREAMCPl «• 0*P2 * 8UFF)* 

begin pi » p2; 01 «• pi + 4; 



buff * p; 
w ♦ w + 4; 
go to comm; 



pi «• pi; end; 



WT. 



02963200 T 
2 963300 T 
2 9634 OQ T 



0660*2 
0660*2 
0661*3 



02963500 T 
02963600 T 
0?963700 T 



0662* 3 
0663*1 
0665*1 



AST! 

STREAMtPl ♦ 0*P2 * 
BEGIN 01 * P2; 



>P3 ♦ w); 

P3(QS » LIT "*»); 



Pi » on End; 



02963800 T 
029*3900 T 
02960000 T 



0665*3 
0665*3 
0667*1 



• • 



>r 



10 

11 

12 
13 
14 
IB 
16 
17 
18 
19 
20 
21, 



23 
24 
2G 
26 
27 



buff «• p; 
if gtcg then 
comm; 



GQ TO OA. 



02964100 
02964150 



0669*1 
0669 :3 
067013 



end convert; 
comment * * * 
IF FnTTCf>nr»0 



******* 
PR FQiTcnnE»2 



END of declarations 

PR FQITcnnFaft THEN 



'.'*■'■:-■'* . ■# 



* ; 



02964300 
029 64400 
Qg9ft4tt05 



O670» 3 
067110 



BEGIN 

P(MKS*FILX*DKADH> ; 

IF EDTTCOnE*q THEN P ( F I . FMT A* I N TC ALL ( +P ( . LI SX ) , Pi *h )) 



ELSE PCen*FMTA>*p< f LlSX)*£DITCQDE>0#iNTCALU0,ei6Q)) } 
P(XIT) ; 

END 1 



02964410 
02964/415 
029 6 42 



0686*0 
0686 1 2 
0687M 



IF EDITC0QE*6 THEN GO ZAP; 

FIB * FILXCNOT 23' * OPEN FILE IF NOT OPEN 

IF DKADR < 9 THEN BEGIN FI..G * l; OKAOR ±Q FNOJ 



02964425 
02964430 
0g9 64 435 



T 

T 



29 6 4450 
02964500 
0?964S10 



0691 J i 
0695*2 
6 95*3 



0695*3 
0697*0 
698*3 



IF FIBC53.C43U3 THEN P (MKS*0# 0»F itx,i, SELECT ); 

PRNTR«.2x(Fl8C5] t C4H2j*0) '» %%% IFF FILE IS CLOSED* SETS PRnTR, £46* U»l t 
CKPB* ARRAYSTUFF <• fli 



IF Fiat 0.1 
FIBI03 . «■ 

ELSE 



1 



THEN 
(EDITCODE 



sO OR EDITCODE *2) 



if fib c03 xx ♦ (editcude «0 or editcode ■ 
Then pcmks*fibC63*filx,c33*i53*4»forteRR); 

IF BRNTR THEN .STREAM(TPAR)? DStftLTT" 



2) 



GO TO PCEDITCOUE'DUP'AQD)* 

GO TO NOFL; * NO FORMAT* NU LIST 

GO TO PiflU » FORMAT* NO LIST 



GO 
GO 



10 
TO 

—h 



binary; 
fmtlst; 

0£LJ _ 



* NO FORMAT* LIST 

* FORMAT* LIST 



02964600 
02964610 

0g964700 



070i«2 
0704*2 

0707*0 



029 64710 
02964720 

0g9 64 7 3 



02964^40 
02964750 
029647*5 



0708*3 
70913 
0712; 1 



02964800 
02964900 

02965000 



0713*2 
0716*0 
0719r2 



02965100 
02965200 
029 6 5 40 



0722 : 3 
0723*3 
724 * 1 



0724*3 
0725M 
0725*3 



26 
29 



pcxit) ; 

FNOLS 



L5TRM--1I 



02965500 T 0725*3 
02965700 T 0726*0 
029 6 56 00 T 0726 * 



31 
32 
33 
34 
35 
36 



GQ to frmtcd; 

NMLST* 

pcxit); 



BINARY* 
P(XIT) ; 

FMTLST* 



02965900 T 
02966000 T 
Q296610Q T 



0727*0 
0727*2 

0727*2 



02971000 
02971100 
Q2973 1QQ 



0727*3 
0727*3 
0728*0 



37 
38 



40 

41 



43 



45 



FRMTCD* 



LSTRN * \i 

CTQG * D0NET0G * FALSE; 
GETLIST; 



PS «■ 
NFCI 



o; 

* CFIX8) 



+ 2* 



% FIRST FORMAT CHARACTER 



NFPH* 



IF NOTCNFC« M C M OR CHR*"X«) 
NFCI ♦ <FI*8) + 2; 

fqrmatcqntRql; % anaylsis of 



THEN GO TO FMERR I 
FORMAT STATEMENT 



02973200 T 072810 
02973300 T 0728*3 
0?973fl00 T Q73Q*0 



02973500 T 
02973600 T 
02973700 T 



0731*0 
0731*0 
0731*3 



02973800 t 0733*2 
02973900 T 073710 
Q2974Q0Q T 0738*3 



46 
47 
48 



IF FMERRTOG THEN GO TO FMF.RRJ 
FMCYC* IFCDONETOG «■ ENDLlST) THEN 
IF EQITC00E*6 THEN GO ZIFIT ELSE PRNT; 



02974100 
02974200 
0?974?50 



0740*0 
0741*0 
074?*? 



49 
50 
51 
52 
53 
54 



IF W ♦ NCR > LCR 
NCf ♦ W + NCR; 

convert; 



then go to fmerr; 



getlist; 

if (rht*rpt-1) > 

I F EPnCQO S«< ! TH E.M. 



THEN GO TO FMCYC; 
GU ZIPIT ELSE 



02974300 
02974500 
Q297 46 Q Q 



0745*0 

0746*3 
074fl*n 



02974700 
02974800 
0.29, 7. f > 6 SO 



07^9*0 
0750*0 
075? U 



55 

56 



*L 



Go tOa nfph; 

ZAPlRPT«"27)C00E*ATYPEili»*WT*'6;D»0;8UFF*TPAR.C33lt5);GETLlST; 

Lca+166; ao fmcycj s 



02974900 
02974950 

02974953 



075310 
0754*0 
76 010 



65 
56* 

3 



• t 



h 






1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 



o 

Q 






22 
23 
24 
26 
26 
27 
28 
29 
10 
31 ~ 



32 

33 



34 

35 



36 

37 ~ 
38 



«0 
41 
42 
« 
44 
45 
46 
»7 
18 



49 
50 
51 
52 
53 
54 
55 



ZIPIT* 5THEAM(P1.>BUFF>J BEGIN 
P(.TPAR#L0U*4»C0M,UEL); 
BljFF t TPAR,n3;i c iJi 



DI*P1* DS* 5 tIT ";END f "; END; 



FMEBRt 



STl£AM(Pl*BUFF);8EGIN 
P(XIT); 



D»P1J 17C0S ♦ 8 LIT " M );EN0; 



02974954 
02974956 
02974956 



P(MKS'FlBX6JjFILX.[33nbJ,0»F0RTERR); 
TYPERRJ 

P(MKS»FTRf6J»FTLX.Mat l5l*g«F"PTF pH " 



02974960 
0^974962 

0g975000 



END FTOUTJ 

PRQCEnURE FaRTRANFR£EHRITE(FH X^OKAnn R ^R^W^LISX.MT.MAMS.SliBS) ItTuI B1«n 



029 75100 
02975200 
029752 1 



0761 »1 
0763*2 
076413 



076611 
0769*1 
0760*3 



0769*2 
77210 
0772*0 



02975300 T 0774*0 

SIZE* 0775 WORDS 
0?976q2q T 0000 10 



VALUE DKADDR*R*LlSX*W*Ni; INTEGER .' r/kJ 
ARRAY SIlBSCol * NAMfi[*U N^r p|Lx ; 



REAL OKADDR*LlSX*NI 



BEGIN 



start of rel segment; disk address s 00401 

; 02976035 t 0000 tO 
_ 02976050 T OOOOIO 



ImTEGFR t S TRN*19» r. EHR. MAXrHa. ppmtp. Tvpr r f^nx,. si z r 



WOTH* MAXWQTH* SGN* CC 
RFAL I I STYPF*?0/ ARRAY.STUFFsifl/"ALGOLWRITEa 1? . \El ECT»lii* T^ MTn 



T2* FQRTERR»24* BUFF* BSIZe* FLG* WHl»R* D* WH2* ARY, T3, HHlS* 
RNQUP»9* MNTSSA«17, FNR* FNL* ENR, MS3, OECPT* LSS1* SVMAXKDtH, 
STftMl* WH^i HAI F« TR7» N Nt. TwnT» v/n »»t. w i i»;. yiPimm^ } 



name listaddR ; 



ARRAY TEN*22£*3/ AR \*l ISTAOD* C* 3* TPAR«23C*3# FPB»3£*3* FlB^*] i 
LABEL BACK* START * I T YPE* ALlST. TRLi, FALS, THOPTs* MAXI* SET.iP, 



LQG8* FTYPE* ETYp£, FUNnYe* CHQOSeI* QVRFlW* FlVEpT* QET3* 
HUNT* ZERO* HtF* nOFIT* GOTOQ* ZEROES* FlTYPE, ETYPE2* 0* 
ETYPfc l* DFTYPL* OTYPE^ BUMPWH3* THHEI.j THHFH* MAXWDThnFf* 0|> 



maxii ; 

DFFlNr nflNE » (tS TRM»f«.l M flf 



REEL » 3 »> 
LOGICAL * 4 #* 
TNTEflB * 1 tt. 



DBLPREC « 5 #* 
COMPLEXR * 6 #* 
COMPLEX I » 7 *. 



MAYBE£MAYBEi»MAYBE2*MAYBE3) 
Ti^OU * LlS'f YPE.C38il'J ** 



CI«-CI + MAYBEi; GO TU MAYBE2 
0S4-LIT MAYBE3; MAYBE2« *, 



INDXF 
TYPEF 
SIZEF 



£18*153 9> 
C4«U3 *, 
C33»153 » ; 



SUBROUTINE GETWqTh i 
WDTH»C(FN B»E + RN0UPXFNl + 0) + 1+GTRMI»1 + CABS(FNR)>9 1 



REAL SUBROUTINE FTEST ; 
FTEST»P(XCH)+< FNR* T2-FNL»FNL«LSSl )<<-£) OR FNH<0 ; 



REAL SUBROUTINE NXTELM 
BEGIN 



PUF TWOT THEN P(*t ARU iNOXt C33 173 33* INDX« [40 *8 3*CQC ) 

ELSE ARUJNDX3) ; 
INOX»lNOX»i; NXTELMoP 1 . 



02976065 
02976080 
Q2976Q95 



0000*0 
0000*0 
000010 



02976U0 
02976125 

0a976iau 



000050 

ooooio 

OOUQJ-0- 



02976155 T 
0297600 T 
0397 6 185 T 



0000*0 
0000*0 
000010 



02976200 
02976215 



02976245 
02976260 
02976275 



T 
T 



0000*0 
0000*0 
000 * 



02976290 

02976305 
0?976igQ 



0000*0 

ooooio 
on oo to 



0000*0 
0000*0 
000 0*0 



02976321 
02976335 
0P976350 



02976365 
02976380 
0297639*) 



0000*0 
0000*0 
P Q Q Q10 



02976410 
02*76425 
P2976 44Q 



0000*0 
0000*0 
0000*0 



T 

T 

JL 



0000*0 
0000*0 

oooo»o 



02976455 
02976470 
02976485 



0000*0 
0000*0 
0000*0 



02976500 
02976515 
0?976530 



02976545 
02976560 
03976575 



0000*0 
0000*0 
0000*0 



02976590 
02976605 
02976620 



0000*0 
0000*0 
0001*0 



0006*3 
000613 
0007*0 



02976635 
02976650 
02976 665 



02976680 
02976695 
02976 71Q 



0012*0 
0012*0 
001 2* 



T 

♦ 



0012*0 
0015*0 
0016*0 



~W~^ 



2< 

3 

4 

s( 

E 

7 

8< 

9 

10 



12 

13 

14 i 

15 

16 

,7 I 

18 

19 

20 I 

21 

22 

23 4 

24 

25 

26 \ 

27 

28 

29 4 

30 

31 



32 1 

33 

34 

35 I 

36 

37 

38 { 

39 

40 

4,« 

42 

43 

44 1 

45 

46 



47 
48 
49 

50 
51 
52 
53 I 
54 
55 
56 ' 
57 



m 



• • 



rT 

2 
3 
4 

5 



14 

15 



17 
18 



19 
20 



22 



2S 
26 
27 
28 
29 
30 



33 



34 

35 
36 

37 ~ 



38 



42 
43 



47 
48 
49 
50 

51 

a 



55 



*Z_ 



END OF NXTELM ; 
SUBROUTINE CflUMU i 



HUNT! 



BEGIN 

T3*0 * 

IF LISTYPE 



Mnn TFNfT3*T3+33aQ THEN fiO HUNT I 



IF LISTYPE MOO TEN [T 1*T 3- 1 3X0 

THEN T1*T1-1-(LISTYPE MUD TENCT 1-1 3*0 ) 

ENO Q£ C0UNT7 / 



REAL SUBROUTINE 
BEGIN 



USEXPNOTATION 



FNL'IF LSS1 THEN PC(-E)M) ELSE PCG*E+1) i 
IF CFNR*P+£.Nr-fNI..-T1}S0 THEN FNR*l ) 
liSFXPNnTATlON»(FNR»FNL>U(FNR»ENR"Tll + ((nEftPT»l) + T3»("l>r) + 



<ABS<£-U >>9)) + <TRZ OR LSSl) AND CABS<E)>4 OR 
FN|.+FNR>MS3+2J) OR <ENR*T3SMS3 AND ABS<E)*5J 
END OF USFXPNnTATION i 



SUBROUTINE 
BE GIN 



RQUNQANDSPLIT * 



Tl*T2«-LlSTYPE*0i 
IF CMN'TSS A»fiTRMl« 

B£G IN ' 



T3>RNDUP+7 ; 
7-RNO^P) L ss fREN 



BUMPWH3 * 



P(WH3/TENC-MNTSSA]"1' ,WH3# iSDJi T3*6TRMI ; 
IF (Wh3*wH3*i)»TEN(T3j THEN E*< LI STYPE*1 J+E i 

jLm 



ELSE IF MNTSSA LSS 8 THEN 
BEGIN 
IF P(HH2/TENra»T2»HNTSS A3 ».WH2*lSN)«TrN[ MNTSSA] 



THEN 
ENB 



GO BUMPWH3 / 



ELSE IF PC^Hi/TENC i6-MKTSSA3*.wHi^ISN)sTENtTl«-HNTSSA-T?«.flJ 



ENO 



THEN If CWH2«-*H2 + U' 
OF ROUNOANOSPLIT i 



TENC83 THEN GO BUMPWH3 ; 



SUBROUTINE OUTPUT ; 
BEGIN 
IF PRNTR THEN 



BEGIN 

FlBC173*FIBCin + BSI2E i 

P(BKS,2,0»CC>BS12E»FILX*ALG0LWRITE) 



IF N0H*FlLX),tl»l9] 

t set omit « timesharing 

then p(filx»P20oooooooo»2» com* deluded 



pop 

SET 



OMIT 
OMjT 



NOKTIMESHARING 
-EAtfl 



) 



02976725 
02976740 
02976755 



02976770 
02976785 
02976800 



02976815 
02976830 
02976845 



02976860 

02?76875 
0g976 8 90 



02976905 
02976920 
2976 935 



02976950 
0g976965 
0897 6 980 



02976995 
02977010 
029770 2 5 



02977040 
02977055 
02977070 



02977085 
02977100 

02977U5 



02977130 
02977145 
029771 60 



02977x75 
02977190 
Q 2 977 2Q5 



02977220 
02977235 
?977 2 5Q 



02977265 
02977280 
0?977?95 



02977310 
02977325 
09977340 



02977355 
02977370 
02977 385 



ELSE IF NOT CC THEN P (MKS* fLG> D* ADOR'O, BS IZE> FILX* aLgOUWR I TE) 

P(MKS>FLG>QKADDR*CHR«-0*(-l)*FlLX>ALGQLWRITE#DEl) ) 

T F PRNTR ThEN FIB [ |73»FIB[ 173-BSlZE * 



02977386 
02977400 
Q2977fl45 



02977460 
02977475 
9297749Q 



STREAM(BS*8SIZE 

BEGIN 
0S»8LITh wj 



l#B*P(DUP).t36l6],BUF*BUFF*<*FluX),£33«l5J) i 
Sl-BUFJ OS»BS WDSi BC0S»3gWQSi D5»3gWDS) i 



02977505 
02977520 
02977 5 3 5 



ENO 



END ; 
OF OUTPUT 



; 



02977550 
02977565 
02 9775 80 



SUBROUTINE CHECKSUM? ANDSKlP ; 

l£ PfW*MAXWfllM»NOTM»nUP)<0 



P(OFL*0) i 



02977595 
02977610 
0297762^ 



0017*2 

0017*3 
00 1 783 



0018*0 
0018*0 
001613 



002 1* 3 
002313 
00 26 *1 



0028*2 
0028*2 
0029*0 



002910 
0032*2 
0Q36M 



004012 
0045*2 
0050*3 



0051*0 
0051*0 
051*0 



0051*0 
0054*0 
005 6 *1 



0056*3 
0059 13 
0064*0 



0064*0 
0065*1 
0065*1 



0068*2 
0069*2 

0069*2 



0073*3 

0077*1 
0077*9 



0077*2 
0078*0 
0Q7B »0 



0078*1 
0078*3 
0080 H 



0082*2 
0083*2 
QQ93'2 



0085*3 
0085*3 
0085*3 



0085*3 
0090*3 
,0093*2 



0096*1 
0099*3 
0099*1 



0103*0 
0103*1 
0103*2 



0103*2 
0104*0 
0104*0 



• • 






# 






9 
)0 
11 

12 

13 

14 

15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

28 

27 

28 

29 

30 

31 "" 

12 

33 

34 

35 

36 

37 "~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

w 

54 

55 

58 



-i_ 



if pchcdup> + wdth+2+svmxwdth-maxw0th*dup)+chr>maxchh 
then output ; 



STREAM(SKP*LSSl«-Pa*LSSl t C36»6J#BUFF) ; 

BEGIN OI*OUSKP; l«Dl*DI*32; 01*01*32)1 SKP*Dt END ; 
BUFF*P i 



IF NIOXNI THEN 
BEGIN 
STR E AH(N»( L SSl>MAMS[NT D1) . f.9t 3 H iSS l .T»(NM^0WRUFF ? 



BEGIN 

SI*l»OC LSSli Sl»Si4>2| DS*N CHRJ MAVBE<T> f »< W >J N*Dll 

ENO i 



..e.uFF*p ; 

FOR MS3«-0 STEP 
"BEGIN 



1 UNTIL NNl DO 



5T:REAM<N*SU8SlMS3J.Ci5l3JlQ*SUBSCMS3j,£33il5]#SUFF> ; 

BEGIN SI*10C G; D5*N DEC/ DS*LIT% M i N*0I END i 
BUFF»P i 



end...; 

STREAmCT«-(NN1>0)«R*TYpE*CDMPLEXR,I*TYpE»C0MPUXI,BUfF) 
BM1N_ 



; 



CUCX+TJ 
CI*CI*RJ 
Cl»ct+r: 



ENO 
BUFF«-P ; 

XND- 



GO 

GO 

.GO- 



TO 

TO 

XD_ 



L; DI*DI*i; OS*LlT n )"J L* 

LU 0S*2LIT"-R»; Ll I 

L2; nS»Pt IT"-I"i 1 21 nS»HT"»«p 



-1*04 



END OF CHECKBUMPANOSKIP 
StlBROUTTNF RifiTCQ ^VERT : 



BEGIN 

IF type'dblprec 

HEGIN T3*fl 



THEN 



IF E>8 THEN BEGIN WH2*WH1 OlV 
ELSE BEGIN T2*0; T1*E £Nq I 



TEN[8Ji T2*E*Tl*8 END 



WDTH«-WdTh+T1+T2 + T3 + SgN + DECPT ; " 

CHE.CKHUMPANOSKIP ; 

STREAM tWH 3 I WH2»Wh 1> T3*T2»Tl»>NL*nFCPT»ENR*SGN»TRZ* BUFF) I 



BEGIN 

MAY8EC$GN#Li,"-*)J SGN*DJ ; 

UI*0I*DFC PT; FHB(DS»LIT»0»11 



SI»LQC WH3J DS»T3 nEfi i 



SI*LOC WH2; QS*T2 dec; SULOC WHj; os«.ti DEC i 
TRZ(DS«-LIT w O"); WH3*0i; CI*CI + DECPT; GO Tq L i 
5I*SGN* ST*Sl4l{ OUSGM ns»F NL chr; ns»Llf«."l 



ENO ; 

p(xch) ; 

FNfi OF g ASlCDNVFRT 



XX 



SUBROUTINE FlNQfc "> 
F»< * T 1 £42*3 ;6UTiri ;2» 11 + 12 + P c HLF)) xPM nfifil 



subroutine getw i 

IF (T l»P(XCH))^W»MAXCHR/R>PtTWQPTH) THEN W»T1 

Et- S E IF . CT.i»JF NAM.S>0 THEN 30 ELSE PC NAMS [ nI)» QUP )x6+( p( XCH )>0 ) 
♦ 37)<W THEN MAXCHR*((K«-Tn + 2)XR i 



%**************o***t**«*ti CODE STARTS HERE 
■ HALF»PCHLFi 1 



!)************************% 



02977640 
02977655 
02977670 



02977685 
02977690 
03977 6 05 



0107*0 
0110»0 
011210 



02977700 
02977715 
O2977730 



ouato 

0U5I1 
0117*2 



02977745 
02977760 
0?97777 t > 



011810 
011813 

QU9*1 



02977790 
02977805 
0?977fl2Q 



02977835 
02977850 
Q2977R65 



012213 
012213 
012511 



0l25»2 
0126*0 
0|27to 



029 7 .7.88.0 
02977895 
02977910 



012710 
012913 
0131M 



02977925 

02977940 
? 97 7 95 5 



0132*1 
0.1.3412 

0137<3 



02977970 
02977985 
Q S97 8 0Q 



013713 

0139*1 
Ql40»2 



02978030 

02978045 

02978060 



0142»2 
0i«2»3 
01 4 3 » 1 -- 



025 78075 
02978090 
0297810^ 



0143*1 

0143*2 
014312 



02978120 

02976135 
02978 l 50 



02978165 
02978180 
0?978i»5 



0144*0 
0144*0 
01441 3 



014 6 *o 
0150*2 
1 52*2 



02978210 
02978215 

02978225 



0152*2 
0155*3 
01 57*0 



0160*3 
0160*3 

0182*1 



02978240 
02978255 
02978270 



02978285 
02978300 

omans 



0i64»3 
0166*1 
0168'? 



02978330 
02978345 
0?978360 



0170*1 
017012 
0170*3 



T 

T 



1 1 1 « 

017110 
01? 1*0 



02978373 
02978390 
02976405 



02978420 
02978435 
02978450 



0175*2 
017512 
0176*0 



0179*1 
01 84; 2 
0169*2 



02978463 T 0i89<2 
0297848^ T 018912 
* OlflO to 



15 

16 

17 ( 

18 

19 
" 20 ' 

21 

22 

23 I 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 1 

33 

34 

35 \ 

36 

37 

38 i 

39 

40 

4,1 

42 

«3 

44 I 

45 

46 

•I 

48 

49 

50 f 

51 

52 

53 1 

54 

55 

56 % 

57 



n 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

IB 

17 

IS 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

36 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

i. 



IF NI<0 THEN 

BEGIN it SPECIAL SINGLE EDIT. 
B UFF+HJ N I U + N i; H H 1 *VH; W H 2+ V L i 



0297848/ T 020050 
02978489 T 0200*3 
Q2978491 T Q 2 Q 1, « 1 



< 



IF <TYPg>IF TIPE*2 THEN IF VL»0 THEN IF ABS 
IF P(VH>.TYFE#I»N)»VH then 1 ELSE 3 ELSE 3 
HR TYPr>5 THFM DO 1 . INTTL FAlSF t : 



CVH)SP(MAXIl) THEN 
ELSE 5 ELSE TjPeXO 



02978493 T 
02978495 T 
Q297S497 T 



020411 
02t7*3 
Q?M*3 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2B 
29 
30 
31 
32 
33 
34 
36 
36 
37 
38 
39 
40 
41 
42 
43 



W*CW4.ABS(W))-SVMAXHQTH«»MAXWDTH«.IF 
MAXCHFU64; GQ Ql ; 

FN D / 



W*Q THEN W ELSE 62 t 



FIB*FILXCN0T 23* IF OKADOR<0 THEN BEGIN FL6MJ OKADDR*0 £N0 * 

0»IF R.tltU THEN *#» ELSE " "J RVABSCR) J 

IT FIRC53.C43IJ3 THEN P(MKS>0»0,FI. X» 1> SFLFCT 1 * 



02978499 T 
02978501 T 
02978503 T 



02978510 T 
02978385 T 
029785 4 T 



0216*2 
0221*2 
22 2U 



022213 
022711 
02 3 1 1 



CC*CFIBC5] AND ...9.6.) *Q 
P(MKS#FLG^OKADDR'0#(* 
IF P(*CF I B(H33*tpP) 



\\> FILX' At GO L WRITE) 
THEN P^t L? 



02978555 T 
02978560 T 
0?978565 T 



0234 TO 
0236*0 
023B 10 



ELSE P(<Tl*<*(4 INX P(XCH))),t36l63)^0 AND Tl^8 

MAXCHR*P(BSlZE*P)x8 J 

IF PRNTa»((Tl»FlBc43«tBt43)»l OR Tl»7 OR Tl»12) 



ANQ Ti^9»SUB) * 
AND FPH[FjBc43 



02978&70 T 
02978375 T 
09978385 T 



023913 
024510 
0246*9 



ELSE 



, [13*113+33. [43*5j<20 
BEGIN IF BSlZE>16 THEN BEGI 

COl ; 



THEN 

N MAXCHR+132J BSl2E*17 END; END 



02978590 T 
02978600 T 
02978 61 5 T 



0250*3 
0254*0 

25 7*1 



OUTPUT i 

IF CCC*0)*FIBC03 THEN FIB[03*1 

IF (LSTRN»1)*FI8[Q3 AND Tl*2 



02978630 T 
02978645 T 
02978660 T 



0258*2 
0260*0 
0263*1 



THEN P(MKS»FIB.C7J'FILX.C33U53#4*F0RTERR) ; 

MAXWDTH*MAXCHR-2 } 

IF (W»ABS(W))^q TH £N 



02978661 T 
02978675 j 
0^976690 T 



0265*0 
0268*1 
0269*2 



BEGIN 

IF W>MAXWDTH THEN W*MAXWDTh 

TF RjTO THEN BEGIN PCMAXWQTh 



ELSE MAXWDTH*W 
U GETH ENiD ; 



02978705 T 
02*78720 T 
Q ? 97B 73 5 T 



0271*0 
0271*2 
0274*1 



END 

else if rxo then begin pcdi getw; maxwdth*-w end '» 

WtWSVHAXWQTH»MAXwPTH ? 



02978750 T 0277*0 
02978765 T 9277*0 

0297^760 T 0280*3 



GO START t 
HLFIM 0.5 ; 
UOfifl*** 0.9 Q 3 QB998709 J 



02978795 T 
02978810 T 
0g97Rft?S T 



0282*2 
0283*0 



TW0PT5'** 
MAXIl** * 

back** 



2,4999999999 ; 
90007777777777777 i 



02978840 T 
02978842 T 
0?978 fl 55 T 



0285*0 
286*0 
02 87*0 



BUFF*PJ IF NI<0 THEN 
STREAM(D*BUFF)# BEGIN 
BUFF»P j 



P(BUFF*RTN 
SI+LOC u; 



)/ TYPE*ABS(TYP 
SI*SI + 7; DS4-CHR; 



E) ; 

DI*Din# D*DI END i 



02978870 T 
02978885 f 
Q29769 PQ T 



0287*0 
0290*1 

Q29?*3 



START* 
IF 



AR 



Y THEN 
BEGIN 



02978915 T 
02978930 T 
02976945 T 



0293*2 
0293*2 
029 3 *3 



ALISTl WH1+NXTELH i 

IF NID*NI THEN 
: BEGIN 



02978960 T 029411 
02978975 T 0295*2 
02978090 t 0296*1 



PCINDX" ARRAYS TUFF. INDX 
IF TYPE>DBLPREC THEN P 
I F TYP E^CQMPLEXR THEN 



f) t 

CCP+1) .D.IV. 2)1 

type»cqmplexr+ct 



T2*P J 
YP E«C PMPL £X R ? 1 



02979005 T 0296*3 
02979020 T 0298*0 
02.9790 35 T — 030013 



FOi T1*NN1 STEP -1 UNTIL 00 

BEGIN 
SUBSCTl3.C33I153»U(T?-l ) OIV (HS3»SUBS ET 1 3 . C 18* 15 3 )J 



02979050 T 0303*3 
02979Q65 T 0305*0 
029 79080 T 3051 



IF (T2«-T2 MQO MS3)*0 THEN T2*MS3 '* 
END i 



E NQ ' 



02979095 T 
02979U0 T 



0308*3 
313*0 



0297912 5 T 3151 1 



ELSE 



IF TYPE*(5tLPREC THEN WhfcfrNX 

END 

TF TYPFKfiQMPLCXR THFN BEGIN 



TELMl ARY*INOX< 
WH 1»L IS TA0PRC13 



SIZE y 

1 TYProcOMPLFyl FNn 



02979*40 T 
02979155 T 
02 979 17Q T 



0315*1 
031913 
Q31 9M 



JP 



• • 



h 



5 
6 
7 

e 

9 
10 
11 



12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



i 
1 

> 
i 



25 
26 
27 
28 
29 
30 
31 
32 
33 



34 
35 



37 
38 



39 
40 



42 
43 



45 
46 
i 47 
(8 
49 
SO 
51 
52 
53 
54 
55 
56 



ELSE BEGIN 

PC ARRAY STUFF*0>; LIST A0DR + [ USX 3 ; 
IF tNIP«-ARRAV.STlifF.r3tl51 + NM/M1 



TYPE«-LlSTYPE,TYpEF ; 



then NNi*NAMScNio],tiie3-i ; 

If AfiY*ARRAYSTUFF,U8l3O3><0 THEN 
'. BFGIN 



IK NID/NI THEN 
BEGIN 
SUBSTQItt 1flt .51»Tt»l. 



FOR T2*l STEP 
END I 



UNTIL NN1 00 SUBS[T2J f tl8li5UTl 
*TixSUBS[T2-i],C33»l53; 



IF TYPE-COMPLEXR THEN TYPE+COMPLEX I } 

3UE* C INDX* AR«A Y STUFF ilNDXF)* ARRAY STUFF. 3 1 ZEF ; 

Pai§TAnnR»Mf;M[Ll$TAnOR t EiaM5]J) i 



TKDT^NOT PCLOCTOP); 
GO ALIST ; 
END I 



PCOED t 



WHULlSTADDRtOJ; P<DEU > 

IF TYPE.OBLPREC THEN ^H2*l.IST ADDRC 1 3 

END ; 



IF DONE THEN 
BEGIN 
STR£AMtTPAR)i 

PRNfR 

i 



IF NOT 
PCX IT 3 

-Em 



18(DS»8L1T" «) ; ; 

THEN P(MKS#FLG#PKAppR#0»BSlZE#FILX#ALGQL*RlTE) * 



MaXWDTH*SVMa>WOTH 
IF NIO/NI THEN 
BEGIN 



; 



mum , . , 

T3*CNNli0) + CNAMStNlD3.C9»3]} + 2 + NNl + PCA8ScT Y PE)iC0MPLEXR,D lJ P^); 
FOR TUNN1 STEP -1 UNTIL DO 

B E G I N — IZ±QJ MS.3tSUB8[Tl l.M^I 1 )] i 



WHILE TENCT23SMS3 00 T2*T2+i i 
T3*T3*T2; SUB$[Tl 1 t tl5l33»T2 ; 
END i 



if <maxnd.t.h*maxwdth-t3)s0 then go ovrflw ; 
end ; 
q1 > if type»lqgical thfk 



BEGIN 

if (wdth*7-wh1*w h 1 
checkbumpanoskip ; 



AND i)>MAXK0TH THEN WDTh'MAXWDTh i 



STREAM(S«.IF WHJ THEN PcTRU) ELSE P CFALS) I Z + T 1*WDTH> \, 

a«-T2+WDTH>2#WDTH*WDTH-Tl»T2'F«-3*WHl#BUFF) i 
BEGIN 



Sl*L0C S; si*si+f> MAYBECZ,Ll* w ." ) ; 
ds*woth chr; maybecq#L2# w »*); s*di ; 

EN1 I : 



Qt 



GO BACK ; 
END OF LOGICAL 
SQN»HHl,riM3 i 



i 



IF Y3*N8T CGTRHI*A§S<WH1)>PCMAXJ>) AND TYPE»INTEGR 

T*HEN FtW'Ht#,«Hl#ISOJ I 

Ta»CMS3»MAXWDTH«»3» SGNl + gf WHl»ABS£wH11 i 



IF 



THEN 



TYPE«DBLP8EC 
BEGIN 
WHl»Tl4.P(HH2*WHl»0»TENC03>QLM)i 



wH2»p ; 



IF HH1»0 THEN BE0IN TYFE«.*OBLPRECi 60 ZERO END! FINDE i 

IF H«XtftyH«7 

IMm FCWKB*»tHi«HAL#*CNOT P(MAXH) AND HHUOLA* .HHlS* »> DEL ) i 



02979185 
02979200 
0297923.5 



02979230 
02979245 
02979g 6 Q 



0323 » 3 
0324»1 
0^?7»0 



02979275 
02979290 
Q2979305 



032813 
033113 

0333*3 



02979320 
02979335 
02979350 



0334*0 
033413 
3351 1 



02979365 
02979380 
2979^9 5 



033713 

0340*0 
034JIQ 



02979410 
02979425 
?979fl40 



P345*2 
0347*2 
0350*1 



02979455 
02979470 
2979^8 5 



035211 
0353*3 
0354*1 



T 
T 



02979500 
02979515 
0?979530 



0354*1 
0355*1 
035fl«-P_ 



029795*5 
02979560 
02979575 



0358*0 
0359*0 
03 59*? 



02979590 
02979605 
03979680 



02979635 
02979650 
02979665 



0362 12 
0365*1 
3 6 5* 2 



0365*2 
0366*1 
0367*0 



02979680 
02979695 
02979710 



0367*2 

0372*0 
0374*0 



02979725 
02979740 
02 97975 5 



0376*1 
0379*2 
036311 



02979770 
02979785 
0?979fl00 



0385*2 
038713 
0387*3 



02979815 
02979830 
02979845 



0388*2 
0389*0 
0393'Q 



02979860 
02979875 
Q?979fl90 



0394*0 
0397*2 
040 1*1 



02979905 
02979920 
02979935 



0401*1 
040311 
Q4Q5H 



02979950 
0297*965 
029 79980 



0405*2 
0406*0 
0406*0 



02979995 
02980010 
O29fl0025 



0407*1 
040912 
Q4U*3 



02980040 
02980055 
03980070 



T 
T 



0415*2 
0416*1 
0416*3 



1913 
0424*0 
0434*1 



< 



58 ! 

57 



IF LStil«-E lSS THEN P (0, TEN [0 1> TEN [ 69-E3 p TEN [-E ] , OLD ) 
ELSE P(TENC69+EJ,TENCE]) ; 

xu£ji T3»p ; 



029B008b T 
02980100 T 
0298,041,5 T 



0428*0 
0432*2 
043,4*2 



IF Tl GEO WH1 THEN IF Ti>WHl OR T3>WH2 THEN E*E"l i 

ENR*24 ; 

P(WH2>WHl*T£Nr69*ARS(E)J#TFNCAHS(F)}»IF LSS1»F LSS THFM 



02980130 T 
02980*43 T 
039fi0l&0 T 



043512 
04*0*1 
ft4U 



P(OUM) ELSE P(DLD)) i 

ti*-p; T3*p ; 

IF T1*PCTHREH? THEN IF T1>P(THREH) QR T3>PCTHREL) THEN EnR+23 / 



02980175 T 0444 
02980190 T 0446 
0P9B02Q5 T QMI 



7 
8 
9 
10 
11 
12 
13 
14 
16 
16 
17 
18 
19 
20 



21 
22 



P(WH2#WHl»TENC{Tl*ABS(ENR' 

P(OLO) ELSE P(OLM>) i 
vtHj+Pt RN0UP»FNR« ?4 t 



P(OLO) EL«E P(OLM>) i 
wHjoffi MMBjkE mmz A I 

P(T3«-P#WHlfTENC85J,TENCi63,0LD#! 
#TENt653>TENCl6 3#DLM*QLS) ; 

WH1»P i , 

P(t3*P,WHt#0#TE*H:83*DLD#HAl.F#» < i 



E'1))*693»TENCT13*IF ENRSE THEN 



HALF^*.WH3,lSD,DEL*T3,WHt#0*WH3 



02980220 T 045l 
029S0239 T 0456 
02980350 T — 04SJ. 



P(t3*P,WHt#O#TENC83*DLD#HALF#» < i.WH2»lS0»0EL*T3#WHl*0#WH2,0^TENC 

83»DLM#D«-S, f WHlM80*0EL> * 
tF P(Q.01»LlSTYPg»HHl THEN 



02980265 T 0459 
02980280 T 0463 
0a9 8 0a95 T 04-65- 



BEGIN ..H(QEL*8)..| 
IF (LlSTYPE*WH2)' 

E N D i , 



02980310 T 0465 
02980325 T 0469 
029B0HQ T OiLLl 



'0 THEN BEGIN PCQEL, 16); LlSTYPE*wH3 END ; 



countz; T1*P+T1 ; 
if usexpnotation then 

BEGIN 



02980355 J. 0473 
02980370 T 0474 

Q2930385 T Q-4XZ 



02980400 T 0477 
02980415 T 0479 
02980430 T 0480 



10 

11 < 

12 

13 

"I 

15 

16 

17 ( 

18 

19 

20 ( 

21 

22 

23 { 

24 

25 

26 { 

27 

26 

29 ( 

30 

31 

32 ( 

33 

34 

36 ( 

36 

37 

38 | 

39 

40 

41 ( 

42 

43 

44 4 

45 

46 

47 I 

48 

49 

50 \ 

51 

52 

53' 

54 

55 

56< 

5? 



23 
24 
25 



DTYPEl 



IF ENH«-T3>MS3 THEN 

IF £»T2 THEN BEGIN D£CPT*FNR*0; 
ELSE IF CENR»Mg3»T33 S TH EN 



GO DFTYPE END 



02980445 T 0480 
02980460 T 0481 

Q?9flQq75 T 0485 



26 
27 
28 
29 



GOTOQI 



gtRmi*enr; 

IF NOT C9*E 



BEGIN WHi*WHtSj TYpE*«"DBlPREC> GO Q E N Q I 
ROUNOANDSPLIT ; 
OH T3*U THEN GO GOTOQ I 



02980490 T 0487 
02980505 T 049o 
0?9fl0»>20 T 0tt99 



30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



IF LISTYPE THEN PC TENC ( T3*T3+ C IF LSSl 

E>>)*1]>.WH3'1S0) I 
RNPUP + U GQ ETYFU f 



THEN -10«E ELSE "C 9 * 



02980535 j 0494 

02980550 T 0497 
2 98 ^6 5 T Q50Q 



MAXIUI 90007777777777777 i 
THRCMIt* §1143013331500045 j 
THRELitt »0fl03H2121167360 1 



02980580 T 0501 
02980595 T O5O3 
02980610 T 0504 



TRU.IU 
FALSUI 



"TRUE" i 
"FALSE" ; 

E ND 



02980625 T 0505 
029806^0 T 0506 
029806')') T 0507 



OFTYPgt 



IF FNL+FNRST2 THEN 
BEGIN 



T1»FNL ; 



02980670 T 
02980685 T 
Qg9ft070Q t 



0507 
0508 



Q5Q8 M 



IF LSol THEN ENR*FNL-E"l 
ELSE IF 23+RNQUPSFNL THEN 
ijtSI N TP Z »FN L + FNR-TH- 2 3+R ND UP; 



F NR»Q EN P i 



02980715 T 
02980730 T 
02980745 T 



05 10 I 3 
0512*1 
05 1 5*0 



45 

46 
47 
18 
49 
50 
51 
52 
53 
54 



gt«mi*ti+fnr-enr; 

IF LISTYPETHEN 
BEGIN 



ROUNOANDSPLIT J 



02980760 T 
02980775 T 
02960790 T 



051910 
0522*0 
0522*1 



JF DECPT THEN 
ELSE BEGIN 

n + T2»o; 



DECPT*FNR+TR4ai 
UECPT»HH3*T3>RNO UP«- i; G ETW D TH i 



02980805 T 
02980820 T 



052213 
0524*1 



IF ctrz^^wdth^dth^ms^dso 

GO ETYPE2 J 

enp ; : : , 



THEN GO GOTOQ i 



029808S0 T 
Q 29 80 8*5 T 
29flQ88Q T 



05 3.010 
0533*2 

0534*0 



FNL*FNL+CE20) ; 

IF LSSl THEN IF NOT 

I F T3 <QE CPT THE N GQ, 



(TRZ«-<ENR«.ENR-1)20) 

got no. ; . 



THEN ENR*0 ; 



02980895 T 
02980910 T 
0298Q925 T 



0534*0 
0535*3 
0540*1 



55 

56 



FTTYPF* 



P( TUNC (T3*T3*l*DECrtT)*U#.WH3» ISO) i 
END J 
W TH» E frR+Tft 2i BASICDNVERTJ GQ BACK J 



02980940 T 
02980955 T 
02960970 T 



0541*2 
0544*2 
0544 1? 



10 



13 



16 
17 
IS 



19 
20 



21 



25 



27 
28 



o 



29 



32 
33 



34 
JS 



36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 



47 
(8 



49 

50 



52 



55 
56 



END i 
PCWH3/UNCRNDUP + 6]>5); 
GO r)TYPF i 



IF NOT FTEST THEN GO DFTYPE 



END OF DBLPREC '> 
IF MAXWDTH»1 THEN GO TO 
Tt»TEN£Q3xWHl i 



MAXWDThOFl i 



IF t«-WHUO THEN 

BEGIN FINDL; E*E-CCIF 
IF T3 AND EST2 THEN 



E>0 THEN TENtE] EUSE 1 /TEN t-EJ )>Tl ) END > 



ITYPEl 



8E8IN E«-E + l i 
DECPT*0; GO SETUP 

END 1 



; 



IF WHl*0 THEN 

zero* begin fnr*o; fnl*u gc'ft'ype end ; 

RNDUP»(MNTSSA»P'CWHl»TliTENCABS(F)]»lF LSS1»0>E 
PCx) ELSE PC/))) GEfl S ; 



THEN 



LISTYPE»PCWHl#TENCABS(CENR*U»CMNTSSA>PCFIVEPT)))-E-l)3» 
IF fiTRHT THFN P(/) ELSE PCX)) i — 



COUNTZ i 
IF GTRMI. OR 
BEGIN 



USE.XPN.QTA.TION THEN 



IF ENR+T3 LEO 
ETYPEl BEGIN 



MS3 THEN 



IF NOT RNDUPMYPE/lNTEGR OR OECPT = THEN 
BEGIN 
FNR<- P CF > 1 ANO f E»F-FNn?<iO<DHp).i.t*FNR 



ElSE 



decpt*o; 

END 
PCTEMlAB«;tFtl 



p(.wHiMSD) ; 

IF HHl«TENCE.NR] 
BEGTN 



PCTEN£E**P+E3#/) I 

ENH)1.IF F<FNR THFm Ptx'i El , SF Pf, )) t 



ThEN 



IF CENR*ENR4PCE+RNDUP,IF LSSj. THEN P»C-10) ELSe*CP«9) 

))<0 THEN ENR*DECPT«>0 J 

£»E+ U PCTENCABSCENR«1)3j.WH1»IS0) ; 



ETYPEl* 



END ; 
IF PCRNQUp 
GFTWOTH ; 



AND DECPT = 0#DUP) THEN RNDUp«-0 



NOFITJ 
E TYp F2 ( 



IF P THEN IF E«C"10) A N0 MNTSSa<1*HALF THEN ENR«-0 

ELSE DECPT*FNL*E»9 t 
IF HAXWnT H<SGN+nrcPT+£E*FNR)+HDTH THFN 



BEGIN IF NOT LSSl THEN GO OVRFLW; GO ZEROES END 
ENR*TR<£<.0 / 
BASICONVFRT? B UFF-P 



StBEAWC GTRMI tFNR«.ABS(FNR)*S*FNR<0#C*lF 
THEN "D" ELSE "E'SBUFF) i 
BEGIN 



ABSCTYPE)»DBuPREC 



SULOC 
bUtOC 
fcN p ) 



a si*si+7; ds*chr; maybecs>l#"-' 
fnr; us«-gtrmi dec; gtrmi*di '* 



GO BACK ; 
FlVgPTI*! 5.49755813865 i 
Mil* PCUSEXPNOTATION»OEL) 



ENO > 

FUNNYE* IF N0TCEXT2 OR GTRMI) THEN GO CHQOSEI I 
IF CENR»MS3-T3)£l THEN GO ETYPEJ D£CPT*0 



; 



ZEROES! 



IF NOT (CE.NR«-MS3*T3 5 OR RNDUP- QR MNT5Sa<1*HAlF) THEN GO NOFIT 

60 ETYPJU J 

WHl^fHil^J <F S6N ANQ *4XHQTK»2 THEN QO ; MAXWOThOfU FNR»t2 J 



02980985 
02981000 
02981015 



02981030 
02981045 
0P981060 



054712 
0547»2 
Q55l*2 



0552*0 
055210 
055311 



02981075 
02981Q9Q 
0?9fl H05 



02981120 
0298U35 
0298115Q 



0554*3 
055610 
056310 



0564H 
0566*0 
0S67M 



02981165 
02981180 

Q29R U95 



0567*1 
0568*0 
057 012 



02981210 
02981225 
02981240 



02981255 
02981270 

02981285 



0573*1 
0576U 
0579*3 



02981300 
02981315 
029613 3 



058210 
0583*0 
0584*1 



02981345 
02981360 
02961375 



0584*3 
058610 
0586*3 



02981390 
02981405 
0?9B142Q 



0586»3 
0589*1 
0569 t3- 



0594 11 

0596*3 
05 96*3 



02961435 
02981450 
Q29ftU6'a 



02981480 
02981495 
298 151 



O6O1I1 
0601*3 
0602*3 



0603*1 
0606*2 
610* 



02981525 
02981540 

02981^55 



02981570 
02981585 
099fllft0Q 



0613*0 
0613*0 
0615*3 



02981615 
02981630 
02981645 



0617*0 
0620*2 

0623*3 



02981660 
02981675 
Qg9ftlft90 



0626*1 
0628*0 
0629*1 



02981705 
02981720 
2 98 1 73 5 



0630*2 
0633*1 
6 3 5*2 



02981750 
02981765 
02981780 



0635*2 
0637 12 
638*2 



0298179b 
02981810 
02981825 



0638*3 
0639*1 
0641*0 



02981840 
02981855 
02981870 



0642*1 
0642*1 
0644*0 
064710 
0650*2 
065 * * 1 



56 ' 
57. 



N 

2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 

16 
17 
18 



FTYPE: 



P(WHixtEN[FNRJ#,WHi,ISD); DECPT*1 ; 
IF -2<E ANU WH1»TENCE«-FNL + FNFU THEN 
RFQIN FM^Mtli P( TENK E»Et 1-0ECPT»FNR>Q )- \ 1 1 t wh \, ISp J ENfli 



02981885 
02981900 
029 6 194 5 T 6 6013 



T 0655*1 
T 0657*2 
0660*. 



SETUPI ENR*TRZ*0J 60 FITYPE > 

■' : ' i tW»'- :; i"v::"--:.'-. ; 
Tp FNR+FN. I EQ T2 THEN flfl CTYPF I 



0296J930 
02981945 
02981960 



T 0666 1 2 
T 066811 
f 0668*1 



IF tSSl AND SGN THEN IK 
P(RNDUP); IF NOT FTEST 
GO KUNNTF * 



MAXrtl)THs2 THEN 
THEiN GO FTYPE j 



GO MAXWDTHQF1 ; 



02981975 
02961990 
02982005 



T 0670 JO 
T 0672*2 
4 0674*2 



MAXHOTHO 

E*0 
CHQ Q S El* 



Fl* 



02982020 
02982035 
02982050 



T 067510 
T 0675 »0 
J. Q675I 3 



IF NOT GTRMI THEN P(WH1# ,WH1» ISQ ) ; 

IF TEN[E*E+l]sWHJ THEN GO GET3 ; 

IF PtMAXHDTHM'DUP) THEN SGN»SGf^ AND WHlXQ 



02982065 
02982080 
Q ?9 fi 2Q95 



0675*3 
0677 » 2 
066 0*0 



IF NOT <P AND (SGN OR WH1>9)1 THEN GO ITYPE * 
OVRrLWt 

HDTH+MAXWDTHJ P(NI0)J nip»nij ch_ckbumpan_sk.fi NI P»P i 



02982110 
02982125 
0P9»2^a0 



T 068311 
T 0685*1 
j. 068511 



STREAMCSVMAXWdTh*S«.SVMaXI*dTH,[36«6]#BUFF> > 

BEGIN SvMAX*DTHCDS*liT«x«); S ( 32( dS«_LIT «x»t ) ) ;S VMAxWDTH*D I 

GO BACK i ,,„ ; ; , , „, ,. 



End; 



02982155 
02982160 
"_fra_l70 



0689«2 
0691 »2 
0694*3 



'9 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 "* 

32 

33 

34 

36 

36 

37 ~ 

38 



END OF fortranfreewrite ; 

PRdCFDURF FINNAMF* , _____ 



02982185 T 0695*2 

SIZE« 0696 WORDS 
02982500 t — 0000*0 



START OF REL 



BEGIN 
COMMENT FILX 



FI LE TOP i n DESCRIP TOR 



SEGMENT! DISK 
02982520 
98254 



-02J 



«_!■ 



ADDRESS 
T 0000* 
000 0*0 



s 00«2_ 





FMTA 
USX 



FORMAT OR NAMELIST OR 
ACCIDENTAL ENTRY OESC. OR 



02982560 T 0000*0 
02982580 t 0000*0 
Og982600 T — 0000*0 



REAL 



PARL 

EOFL 
FQRTFRH 



-1/ 
-2' 

_____ 



02982740 T 0000*0 
02982760 T 0000*0 
029 82 7 8 T 00 * 



USX 
FI 

OKAPR 



« *3» 

« -5# 
_1 -6» 



02982820 T 0000 10 
02982840 T 0000*0 
02982860 T 0000*0 



ARRAY 



READINT 

SELECT 

FMTA 



13* 

14; 
-4t>.; 



02982880 
02982900 
0298292Q 



0000* 

0000* 

ooo Q' 



NAME 
INTEGER 



FIUX 
MEM 



-7* 
2* 



_____ 



02982940 
02982960 
_ ___ _____ 



T 00001 
T 00001 
J 



40 

41 

42 

43 _ 

14 

•5 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

__ 



REAL 
ARRAY 



LIST 
PRTB 
TEN 



YPE 
ASE 



« _o; 

« 1CC*J> 
* 22 C+3* 



02983000 
02983020 
Q29fl304Q 



T 0000* 
T 0000* 
J. 0000* 



NAME 
REAL 



FIBC 
LIST 
BUFF 



*3; 
adr; 



> % FIRST BUFFER POSITION 



02983060 
02983080 
09983^00 



T 0000* 
T 0000* 
J 



46 

46 

47 < 

48 

49 

50 . 

51 

52 

53 ( 

54 

55 

56 < 

57, 



BSIZE 
NBC, 

N U,»NLE'SB$; 



p % ARGUMENTS 



02983120 
02983140 
02983160 



T 0000* 
T 0000* 
4 0000* 



NFCI, 
DH1* 

WH1 



_____ 



02963180 
02983200 
02983220 



T 00001 
T 0000* 
J _Q__i 



REAL 

N A M E 



WH2; 
NAME 
W W 



v; 



02983240 T 0000*0 
02983260 T OOOOJO 
02963280 T 0000 * 



INTEGER 



RPT* 

W 

WT 



* % 
______ 



FIELO 



WTDTM 



02983300 
02983320 
02983340 



T 0000* 
T 0000* 
X _Q__I 



• • 



n 

2 
3 

4 
5 
6 
7 



Tl 

Dl 

J1Z. 



p % 
, % 
i % 






CNT* 

EXP 

EXPSGN, 



EXPONENT 



02983360 T 
02983380 T 
02983400 T 



0000*0 
0000*0 
0000 10 



02983420 T 
02983440 T 
29 8 34 60 T 



OOOOIO 
OOOOtO 
0000*0 



NCH 
LCR 



C hH 



> % CURRENT BUFFER POSlTj.ON 
».% BUFFER SUE IN CHARACTERS 



02983480 T 
02983500 T 
02983520 T 



000010 
.0.000.1.0. 
OOOOtO 



BOOLEAN 



OONETOG 

SGN 

LQTBf 



9 % RETURN AFTER WRITE 
> % SIGN 



02983540 "f 
02983560 T 
02981580 T 



OOOOIO 
0000*0 
OOOOIO 



9 

10 

111 

12 

13 

,4 I 

15 

16 

17 I 

18 

19 

20 ( 

21 

22 

23 ' 

24 

25 

26 4 

27 

28 

29 ' 

30 

31 

32 I 

33 

34 

35 I 

36 

37 

38 I 

39 

40 

4 J 

42 

43 

44 I 

45 

46 

47 

46 

49 

50* 

51 

52 

53 I 

54 

55 

a I 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 ' 

20 

2V 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

«0 

41 

42 

43 



DTAERR' 
NLT# 
NFI.i 



02983600 T 
02983620 T 
029 83 62 5 T 



0000 5 
0000*0 
OOO O t O 



DEFINE UOGV 



ctog; 



INTEGV 



« 4«, 
a It « 



02983640 T 
02983660 T 
0^983680 T 



OOOOtO 
0000*0 
OOOOtQ 



UBLV 
CMPLXV 
SE 



5.#.j 



C r 31 



029 83700 T 
0298 3720 T 
029 83 740 T 



OOOOIO 
0000' 
Q O OO -O- 



NUM 

10 • 
KTMD 



l 



2*> 



* CFl BU 3.[fl* 4 3)*i 



02983760 T 
02983780 T 
02981600 T 



0000»0 
OOOO'O 

oooo'n 



MAX 

tLMTVP 
JL N 



= *77 

* LI 
3 fL 



77.777 
STYPE 

i STYP 



777 



777 1) p 
t«4»43#> 
44*41 B QBLV 



X& 



02983820 T 
02983840 T 
02983660 T 



0000*0 
OOOO'O 
QQQOLO- 



CMPLX 

TWOD 

SIZEF 



-S-t 



U 
LI 

a 



ISTYP 
STYPE 



E.t 
.[3 



44»43 « CMPLXV)*# 
8* l3## 



02983880 j 
02983900 T 
0g9839 2 Q T 



0000 (0 
OOOO'O 
OOOOIO 



LABEL 
CriMME 



KX 



BASEF 

..NMlSTji 
* * * 



..*. CI 
NLERR»NL 
* * STAR 



8 1 15 J 
P'NLP 
T OF 



A,N 



RP,NLlSHT,NLL»NLPB,NRPL' 

RUUTINE DEClARATinNS * * * », » * * »_i- 



02983940 T 
02983960 T 

0298 3 9 8 T 



OOOO'O 
OOOO'O 

0000*0 



SUB80UTINE CKPB; 

BEGIN COMMENT INITIALIZE F 

LTR » fi*(B$TZF » PCMKSynKAOR 



ILE AND ACQUIRE RECORD SIZE! 



02964000 T 
02984020 T 
Q29840 4Q T 



OOOOtO 
OOOl'O 
QOQl tO 



BUFF * (*FlLX) f [3381531 NCR * 0> 

END ckpb; 

SUBROUTINE RFAfl! 



LS-L 



0298*060 T 
02984080 T 
Q2984100 T 



000313 
0006*0 
0006'! 



BEGIN 
P(MKS,OKADR>0*F 

I F D Q NE TOG THEN 



ILX'HEAD 

PcxiT); 



INT), 



02984120 T 
02984140 T 
0?9fi4?60 T 



0007*0 
0007*0 

QOQfltl 



IF (C*FILX).C27J13) ^HEN P(XlT); 

ckpb; 

END REAPS j 



02984280 T 
02984300 T 
09984320 T 



0C09«1 
OOM'O 
001 2*0 



45 
46 
47 
18 
49 
50 
51 
52 
53 
54 
55 
56 
f 



% PARA 
BOOLEAN ATOG'TW 
ARRAY AR1 » LIS 



meters for ust control 
ot; 

TA0RC«3J 



02984340 T 
02984360 T 

0298 *3 80 T 



0012*1 

0012*1 

001211 



INTEGER INO 
DEFINE NXTELM » 



x* sue; 

IF TWDT 



THEN PC*tARiClNDX»C33|7] J],INDX.U0|8),CDC> 
ELSF. CAR1LINDX33*; 



02984^00 T 
02984420 j 
0?98444Q T 



001211 
0012 11 

0012*1 



subroutine 
begin; 



skpc, 



IPS c 
NBC 
$TREAMCfl»BUFF>P2»0 



SKI 
IN 



URRENT CHARACTERS* PUTS NEXT CHARACTERS 
»P3*0); 



02984460 T 
02904480 T 
02984500 T 



0012*1 
001310 

0013*0 



BEGIN 



si ♦• pi; si ♦■ Si +i; pi ♦• Si; 

oi «■ loc P2; oi «• di + 7; ds ♦ chr; 



02984520 T 
0?984540 T 
02984560 T 



0014*2 
0014*2 
0015*1 



end; 

N8C ♦ P> BUFF 
WT ■■».- WT "M 



* PJ 



02984SH0 T 
0sr»8460t/ t 
2 9B»620 7r, 



0016*0 
0016*1 

mill 



m m 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



eno skpc; 
subroutine scale; 

BEG IN 



IF (01 * 01 ♦ CNT) > 11 
THEN QQUBLECWMl,WH2#TENCCNTJ»TENC69+CNTJ#x, 



02984640 T 
02984660 T 
Q«j9fi46flQ T 



0018*2 
0Q18»3 
QQ19*0 



02984700 T 
02984720 T 

? 9fl47a0 T 



0019*0 
0020U 
002 3 H 



22 
23 
24 
25 
26 
27 
28 
29 
30 
31 ~ 



JLK 



ELSE Whl* WHlxTENCCNTJ+DHi; 
DH1 «■ 0' 

n scale; 



subroutine getnum; 
begin; 

STREAMrPl«-BUFF,Pg»!F WT i ft THEN WT ELSE fi. P 3»0,P4«.0,-PS«.n) i 



BEGIN 



31 4-..P1; 
P?(IF Sq 



then tally » tally + i 



ELSE 
BEGIN If SC fc "0" THEN T£LLY ♦ TALLY U 
ELSE .JUMP QI.IT/ ■ 



-£2- 



end; 

.SI «■ Si + d; 
TALLYJ 



Si «• Pl; 01 «• LOC P3; OS ♦ P2 OCT; 

Pi «• si; 

pi » lux pa; qi * m + 7; ns » chr^ 



end; 

NBC * Pi Oril <- P; CM ♦ P; BUFF * Pi 



0298^760 T 
02984780 T 

Oa9a4aon T 



0025 8 1 
00.28*0 
002,8? 3 



02984820 T 
02984840 T 

02984860 T 



002910 
0029*0 
,0029*0 



029848.8O T 
02984900 T 
02984920 T 



00 3 3 «.0. 
003310 
00 33*1 



02984940 T 0034»1 
02984960 T 0034*3 
0g98 4 9 8 T 00 3 511 



02985000 T 
02983020 j 
0a985040 T 



0298S060 T 
02985080 T 
029 85100 T 



0036' 1 
0036? 1 
3 . 6 .* 3 



00 37*0 
00 38*0 
0038*1 



0?985120 T 
02985140 T 
029853,60 T 



00 39*0 
0039*1 
0Q41U 



32 
33 
34 
35 
36 



subroutine getsign; 
begin; 

STRFA*(Pl»HUrr>P24-f TF *T > 63 THFN 63 fLSf tNT)*P3»Q»P4«.f-l)* 



P5*o>; 

BEGIN 

St<-pi; Ln»P2 ; 



P2(0UD1*8; IF SC* M " THEN JUMP OUT TO Ll* 
SI * SI + i; TALLY «• TALLY ♦ 1); 
Pl <• si; 



02985180 T 
02985200 T 
0?98 5? 2Q T 



0041*2 
004210 
00 42* 



02985240 T 
02985260 T 
Q29fl5art0 T 



02985300 T 
02985320 T 
0?9fl5^40 T 



00 45*2 
0046' 1 
0046*1 



0046*3 
0048*2 
0049*1 



GQ TQ KTNSGN; 

Li: if sc « "0" Then 

PEGIN , 



02985360 T 
02985380 T 
Q29fl5aOQ T 



0049*2 

0049*3 
0050*1 



37 
38 



39 

40 

41 

42 

43 _ 

44 

45 

46 

47 

48 

49 

50 

51 

52 



L3i pj-* tally; 

L2* P5(Pl*Di; TALLY*P2> PlCIF SCX" V THEN 

jump out; tally»tally+i; si+si + n; P2»tally); pi»si ; 



02985-U20 T 
02985440 T 
0?985460 T 



005011 
0050*2 
OQ5 3«0 



l nq; 



01 *- LUC P4i us «■ 7 lit "o"; DS «■ chr; 
go to htnsgn; 



02985480 T 
02985500 T 
02985520 T 



0055*0 
0056*3 
0057*0 



IF SC « W . M THEN GO TO L3; 
TALLY * TALLY+i; 

pg «• tally; 



02985540, T 
02985560 T 

02985580 T 



0057*0 
0057*3 
0058*0 



TALLY*l; P5+TALLY ; 

IF SC = "-" THEN TALLY*-! ELSE IF Sc = M + " THEN TALLY*0 E L SE 

IF SC="&" THEN TALLY»0 ELSE 



02985600 T 
02985620 T 
02985640 J 



0058*1 
0058*3 
0060 13 



0061*3 
0062*2 
00 6 2* 3 



BEGIN TALLY'O; PUTALLY; GO TO RTNSGN £Nq; 

P3 * tally; 

si ♦ si + 1; ; 



02985660 T 
02985680 T 
298 5700 T 



S3 
54 



GO TO L2; 
RTNSGN I 

end; 



02985720 T 
02985740 T 
0P9B576Q T 



0063*0 
0063*1 
00 63*1 



55 

56 

P7 



>p; son*-?; cnt*pj dtaerr*ccbuff*p)»o) ; 
im getsign; 

LABEL , , N C B T N il 



02985780 T 
02985800 T 
02985820 T 



0063*2 
0066*2 
006613 



• • 



>r 



9 

10 

11 

12 

13 

14 

15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

28 

27 

28 

29 

JO 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



43 
44 
« 
46 
47 
48 
•9 
50 
51 
52 
53 
54 



55 
56 



SUBROUTINE NUMCQNVERT; 
BEGIN 

nm » s pi ,» s 02 



t = fxp L= EXPSfiN * s o; 



WHl <■ WH2 

wt * w; 

BlSGNl 



* -o; 



GETSIQNJ 

IF DTAERR THEN GO TO NCHTN 
WT «• *T ■ CNTi IF \pr <0 



BEGIN 



THEN IF WT S 

if nbc i 9 Then 



% RLAlNtS FIELD 



THEN GO TQ NCRTN ELSE GO TO Bfc,SQN> 



getnum; wn 
IF (WT «■ wr 
WH ILE N9 C $ 



,.. * dhi; 

- (01 «■ cnt)) < then go tq ncrtn; 

"9" or nrc = " " nn 



BEGIN 



getnum; scale; 
tf (wt » wtt.nt3 



< THEN ftp TO NrRTNt 



end; 
end; 



BEGIN 



IF NRC 



THEN 



sk*c; 

IF WTS Q 



THEN GO TQ NCRTN I 



BEGIN 



WHILE (NBC S "9") OR ([\jdC ■ " ") DO 

J 

getnum; scale; 



FKOi 



02 
IF 



02 

WT 



cnt; 

WT • 



CNT) S THEN GO TO NCRTN; 



end; 



IF NBC = "0" OR NBC s "E" THEN SkPC; 

IF WT&Q ThEN BEGin DTAENR+tRUE; GO TO NCRTN ENO ; 



IF CnBC*"*") OR CNBC*"**') OR <NBC*« "> OR (EXPSGNHNBCb"-") ) 

THEN SKPC; 
IF WTSQ THEN BEGIN PTAEHR+TRUE; GO TQ NCRTN END ; 



BEGIN 



IF NBC 
ELSE 



> "9" THEN DTAERR ♦ TRUE 



IF 

end; 
ncrtn: 



GETNUM; 

EXP * IF EXPSGN THEN C-DH1) ELSE DHi; 

1,F (HUH.T-CNT) S THEN GO TO NCRTNJ 



NOT NLT THEN WHILE WT > 00 SkPC; 



IF WHl ■ 

end numconvert; 

LABEL NMBl NK; 



THEN IF SGN THEN WHl * *0; 



real subroutine 

Begin; 
n^blnk: 



nmscn; 



IF NCR 2: LCR THtN READS; 

STREA' v t(Pi*BUFF*P2«-(IF(TULcR-NcR)>63 The^ 63 ELSe Tl)» 
P3 *-0lPti4-a->l . 



BEGIN 

SI «-Pi> 
PgCIF bC 



THEfr JUMP OUT TU Li; 



si * si + i; tall* ♦ tally 
P2 •+ tally; tally * 1; 

so to L2; ; 



♦ m; 



02985840 
02985860 
Q298b8flQ 



0066^3 
0067*0 
0.06,7 »n, 



02985900 
02985920 
02-S4S-9AQ 



02985960 

02985980 
02966000, 



QQ69*3 
007111 
0Q721Q 



00f2»0 
0073*0 
0074*0 



02986020 
02*86040 
2 9 86060 



0075»3 

0078*1 

J)Q7 9ln 



02986080 
02986100 

0298(^120 



02966140 
02986160 
029ft6lfl0 



00 7 9 

0081 

0084 



0086 
0086 
0089 



02986200 
02986220 

0?9H6?aO 



0091 
0091 
0091 



02986260 
02986280 
Q29863Q0 



02986320 
02986340 
029863 6 



0092 
0093 

009a 



02986380 
02986400 
02986420 



0095 
0097 
0097 



02986440 
02986460 
03986480 



0100 
0101 
0103 



02986500 
02986520 
02986540 



0104 
0104 
01 07 



02986560 
02986580 
Q29fl 66QQ 



0109 
0113 

o n ? 



02986620 
02986640 
02986660 



0117 
0119 
0119 



02986680 
02986700 
02986720 



0120 
0121 
0123 



0125 
0129 



0129»2 



02986740 
02986760 
;>9fl67fl0 



0l29»2 
0132*2 
0132*3 



02986800 
0298682C 
Q?9fi 6ft4 Q 



02986860 
02986880 
029 86900 



0132*3 

0133:q 

, 1 3 3*0 



Ol33*0 
0135*0 
138* 3 



029869.20 
02986940 
QP9A696U 



0139*3 
0139*3 
0140*0 



02986980 T 

02987000 T 
02987020 T 



0141*2 
0142*1 
9 1 1 213 



# • 



2 

3 
4 
5 



7 

8 

9 

10 

11 

12 

13 

14 

f 5_ 

16 

17 

18 



19 
20 



21 
22 



23 
24 
25 
28 
27 
28 
29 
30 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

S3 

54 

55 

56 



LI! 

L2» 

END* . 



P2 

PI 



tally; 
tally; 



Tally «■ 
H3 <- si; 



u; 



02967Q40 
02967060 
0g987Q6 J 



0H3'0 

0H3*2 

1 q /i 8 



BUFF * f»; NCR * KCR + P; IF P THEN 
STREAM(Pi«-BUFF#P2«-0#P3«-0,P4*' f 

BEGIN — ; _ ^ — : : — : 



GO TO nmblnk; 
m aP5*0*NFL) 



02987100 
2987120 

Da-te7iao 



0144*1 
0146*2 
148 I 3 



61 *■ pi; 

nfkif sc£"0" then 

FF Sf. * ALPHA THEN 



JUMP OUT TO MU) 



02987160 
02987180 
02987200 



0148 » 3 
0149*0 
0150*3 



BEGIN 



DI «• LUC P4; 01 «■ 01 + 2; ' 
6MF SC < "A" ThEN JUMP OUT; 



02987220 
02987240 
Q29872A0 



0151*1 
0151*1 
fl!5l»3 



os «• chr; tally «• tally 
pi «- si; P3 «■ tally; 

TALLY - 1/ GO TO LXJLIi 



n; 



02987280 
02987300 
0a9B732Q 



0153*0 

0153*3 
0154; 1 



end; 



NFL (IF $C* W -' 
JUMP OUT 



THEN IF 

to nuj ; 



Sc* w + M THEN IF SC*"&'' THEN JUMP QUI; 



Tally * i; P3 *■ tally; 
oi * loc P2; pi * oi ♦ ?; 

IF SC «»»« THEN BEGIN QS»lIT«s»; Sl»Sl+l END ELSE 



IF SC S "C" THEN BEGIN DS*LlT 
IF SC ="%" THEN BEGIN DS+LlT 



") M ; 
" ( " ; 



si 



SI + 1 

SIM 



EinO 
END 



else 

ELSE 



os «-chr; 

pi v si; 

TALLY * 3; 



GO TO EXIT! 



NU! 



PI <• SJLi TAU.Y * ?> 



EXITI 

end; 



P5 •• tally; 



ti «■ p; namev * 

IF Tl = ID THEN 
NHSCN «- Ti; 



P/ NCR * NCR 
N8C *■ NAMEv; 



+ p; nbc «• p; buff * p; 



end nmscn; 
subroutine nlconv; 

B EG I N 



NBC 



It « 



THEN 



IF 

begin; 

STREAM(Pl»dUFF*P2«-0); 



8EGIN Dl ♦ Pi; 01 ♦ 01 * 
BUFF * P; NCR «.'* NCR - 1* 



is pi ♦ on end; 



eno; 



IN * LCR-NCrt> 

numconvert; 
tf (ncr «• ncr 



* C rt ' hT?) > I.CR THEN RfcADS; 



Tl «• EXP • D2I 
IF WH1 * NAX 
THE N 



IF Tl I THEN 0QUBLECwnWWH2,TEN[Tn,TENC69*Tn,x, 

♦#WHl»WH2) 
ELSE 00UBLE(WHWWH2iTENC"Tn/TEN[69-T1 W 



ELSE 
IF Tl ? 



THFfT HH1 



*#WH1#MH2) 

> whi k True TIT- 



02987340 
02987360 

02987180 



0154*3 
0154*3 
01561 3 



02987<»00 
0298742Q 
02987440 



0158*0 
0158*0 
0156*0 



02987460 
02987480 
0P98750Q 



158*0 
0*58*2 
0159*0 



02987520 
02987540 

Q29B7560 



0160* 2 
0160 » 2 

,0162*0 



02987580 
02987600 



0163*2 
0163*3 
Q 16410 



02987640 
02987660 
02987680 



0164*2 

0l64'2 

01,64*2 



02987700 
02987720 
02987740 



I 
T 
X- 



0465*0 
0165*0 
Q 165 ll 



02987760 

02987780 

0?9fl7ft00 



0165*2 
0168*2 
0170*2 



02987820 
02987840 
029 8786Q 



017H0 
0173*0 
017310 



02987880 
0?987900 
0^i9B 79 20 



02987940 
02987960 
02987980 



0173*0 
0173*3 
Ol74 t l 



0175*2 
0176*2 
01761 l 



02988000 
02988020 
029fl8Q40 



0178*1 
0179*2 
0181 *Q 



02988060 
02988080 
2 9 8 8 1 



018510 
018611 

J0-186I3 



02988120 
02988140 
02988160 



Ol87'0 
0191* l 
1 92*0 



02988180 
02988200 
02V88220 



0196*3 
0197*2 
1 97*3 



• • 



h 



IF SGN 



ELSE WHI ♦■ ml hi / TENC-T13; 
THEN WH1 <• - WhU 



029882*0 T 0200*0 



LABEL NLR,SU8DJ 
SUBROUTINE 6UBEVUL* 
BrGlN 



02988260 
0298H280 



02988900 
02986320 
Q2988340 



0<>03<1 

0205*0 



020511 
02051 1 
QgQ*»n 



4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



IF NMSCN *NUM THEM GO TO NLERR; 

CH.R. «■ FMTACNLI*NLI*n. [U6i; % # DIM 

N FCI, t U NLC Q NV ; 



02988360 T 
02988380 T 
02988400 T 



02067 
0208 5 
0210*2 



IF (02*0) OR (EXP t 0) THEN GO TO NLERRJ 
SBS * WHl-li 
NlR.I TF NmSCN * $PC THEM GO TO NLERR) 



02988420 T 

02988440 T 
039flBfl60 T 



021210 
0214*2 
021 5*3 



If NBC ■ ")" THEN GO TO SUSP* 
IF NFCI = CHR THEN GO TO NlERR; 
NUriNVf, 



02988480 T 021810 
02988500 T 0219 51 
029 88 520 T — 02 2 0»2 



IF (02X0) OR CEXP>0) THEN GO TQ NLERR; 

whi » whi * 1; 02 «- o; 

WHILF t) 2 <NF CI OP W H1 » WH lxF MT ACNL I* (f .2» n 2 + 1)3 



02988540 T 
02988560 T 
0298 85 8 T 



022210 
022412 
0??ft*2 



SBS ♦ ..SBS..' * whi; 
NFCI «• NFCI + i.; 
G O TQ N LP; 



02988600 x 
02988620 T 
02988640 T 



0231 1 1 
0232 » 2 
Q?3,l* 3 



SuBOi 



INQX * INOX 4 SBS; 
Tl ♦ NMSCN; 



02988660 T 
02988680 T 
296870 T 



023411 
023451 
23 5*? 



end subevul; 
comment ********* * end df declarations ***********; 

NFL»1 I 



02*88720 T 0237*2 
02988740 T 0237*3 
02988745 T 0237*3- 



FILXCN.OT 4] ♦ EOFL; FlLXCNQT 3] ♦ PARU 
FIB ♦ FILXtNOT 23; * OPEN FILE IF NOT OP£N 
I F F lB£ 5i .[43l2] Mil ^ 2 1 THEN 



02988760 T 
02986780 T 
29 8 68 0,-T 



0248*0 
025l*2 
351*1 



29 

30 



p<mks,q,ti*filx>uselect) j 

% set/check for mixed formatted - unformatted i/o 
c kpb ; 



02988820 T 
02988860 y 
02 98 866 T 



0255 «1 
0257*1 

0257* 



t- 



31 
32 
33 
34 
35 
36 
37 " 



IF FI8C03 » THEN FI8C0J 1= 1 ELSE 

IF FlBtOJ NEQ 1 THEN P (*KS,FIB C6J#F ItX , [33* 15 J#4#F0RTERR )> 
MKI STl 



02988900 T 
02986920 T 
02989000 T 



0258*0 
0260*3 
2 6453 



NLE «■ FMTACFID.C2510]; 

NLT «■ TRUE/ 

SKPC; NCR *■ NCR 4 1) 



02989020 T 
02989040 T 
029fl906Q T 



0264*3 
0266*1 
2 67 * 



39 
40 
41 
42 
43 
44 
45 
46 
47 
tt 
49 
50 



WHILE. NMSCN * SPC OR NBC * "S" DO BEGIN READS* SKPc; END; 

NCR * NCR 4 i; 

TF NMSCN t 10 THEN GO TO NLERR; 



02989Q80 T 
02989100 T 
029B9 12 Q T 



0269*1 
0274*2 
0975*3 



IF FMTACFn.ri2»36] * NBC THEN 

begin reads; go to nmlst; end; 

M ,P» IF NM^CN X ID THE N 00 TU N LE RR J 



02989140 y 
02989160 T 
029891 80 T 



0278*0 
0279*2 
281 *2 



NLPA* 



NLI ♦ FI + U Tt * NLE; 
WHILE Tl >0 00 



02989200 T 

02989220 T 
02 98 92 40 T 



0284*0 
0284*0 
0286 50 



BEGIN 



IF NBC * FM TAtNLI 3 . C 12 J 363 THEN GO TO NLPB; 
Tl » Tl - U ____^_ 



02989260 T 
02989280 T 
Q29893QQ T 



0287*1 
0287*1 
02895 



t- 



51 
52 



end; 



NLI * NLI 4 2 ♦ FMTACNLl+l3tCl»63J 
* NOT FOUND 



02989320 T 
0298934Q T 
02989360 T 



0290*2 
02«3l2 
Q 2 9450 



S3 
54 
56 

56 

5i 



WHILE Cl + NMSCN) * SPC QRcNBC * ■«♦#" AND NBC * "S") DO 

IF Tl * NUM THEN NLCQNV; 
IF NBC « "S w THEN BEGIN DONETOG ♦ TRUE; READS END; 



02989380 T 
02989400 T 
02989 420 T 



0294*0 
0298*2 
030 1*2 



go to nlp; 



* 



» ctog » false; 



02989*40 T 
02989460 T 



030510 
0305*2 
030512 



LISTYPE «■ FMrA[NLI],[2H0J; 
IF (Tl*FMTAtNLI*l]tti8l303) XC THEN 
I RfGlN 


02989500 T 
02989520 T 

02989540 T 


0306*3 
0308*1 
031013 


1 SIZE«-(INPX*I1,BAS£F)+TI.SIZEF ; 

2 ATQG «• TRUE! 

3 Fun* 


02989560 T 
02989620 T 
02989640 T 


0311*1 

0314*0 J 

3 141 3 3 


* IF CTl * FMTACNLI + 13,t7IUJ) < 1024 THEN 
5 LiSTAOR «■ [PRT8ASE[Tx3J 

• EI.SF UISTAUR ♦< IK T1.C39U1 THEN t MFMf 1 T SX-7 1 . f 4 1 1 7 111 


02989660 T 
02989680 T 
0298970Q y 


031413 

0317*1 f 

031811 6 


' ELSE [M£MtLISX+Ti t t«Ol8n3l 

» IF ATOQ THEN TV»QT*N0T PC*C LlSTADR*MEMt ( *CUSfADR 3 > 1 1 18 115 J 3 ), 

s TQP#XCM#DEL> 


02989720 T 
08909740 t 
0?9fl97A5 T 


032410 ' 
032613 ' 
0330IJ £ 


,0 ELSE Wl«-LISTADR ; 

» IF LGTG*0 THEN Tl+NMSCN ELSE BEGIN NBC^LGTG* LGTG+O ENO/ 

« IF NBC s"( M THEN 


02989750 T 
02989760 T 
029fl?78,0 T 


0331*0 1 
0333*0 ' 
0337*2 


'»■ BEGIN 

14 IF NOT jkTGG THEN GO TO NLERRJ 

'5 SUflEVUi i 


02909800 T 
02989820 T 
029898*0 T 


0338*1 

0330*3 ' 

03^912 1 


,6 END* 

17 IF NBC * . "■" THEN GO TQ NLERR; 

18 Tl * nmStn; 


02989860 T 
02989880 t 
0j9899f10 T 


0341*0 1 
341*0 ' 
03*2*1 ' 


19 NRPl IF Tl sNuM THEN 

20 BEGIN 

21 Ni.CHNtf * 


02989920 T 
02989940 T 
02989960 T 


0343*2 1 
0344*1 2 

,,034.41-3- z 


22 IF N.MSCN./SPC THEN GO TO NLERR; 

23 IF NBC * "*" THEN GO TU NLlSRT; 
» RPT «■ whi; 


0?989«J80 T 
02990000 T 
029900^0 T 


0346*0 2 

348*0 

0349*1 2 


* IF CD2*0) UR C£XP^0)THEN GO To NLERRJ 
26 IF NMSCN * NUM THEN GO TO NRPl 
" rwni 


02990040 T 
02990060 T 
02990080 T 


0350*0 2 
0352*2 2 

0355*0 - 2 


28 NRPL* 

29 if nbc * %" then 

30 BEGIN 


02990100 T 
02990120 T 
02990140 T 


0355*0 2 
35510 2 
0355*3 3 


J1 IF ECMTXP ' LOGV THEN 

92 BEGIN 

» NLCQNVi Tl ♦ NMSCNi ftfl TO Nt. ISRTS 


02990160 T 
0g990i&0 T 
02990200 T 


0356*1 3 
0357*2 3 
0358*0 3 


M END* 

55 Tl «■ nmscn; 

36 M L t w/H ; * (NHC.Cl,?l61s "T"); 


02990220 T 
02990240 T 
02990260 T 


0361*0 3 
0361*0 3 
0362*2 3 


37 WHILE CT1«-NMSCN) t SPC OR (NBCX"S" ANO NBC * "»"> 

38 DO IF Tl« NUM THEN GO TQ NLERR; 

39 GO to nlisrt; 


02990280 T 
02990300 T 
03990*20 T 


036411 3 
0367*1 3 
037011 3 


40 END* 

41 IF NBC ■"(" THEN 

42 BFGIN 


02990340 T 

029 90 360 T 
Ojgoo^fi t 


0370*3 
0370*3 
0371*2 


43 IF NMSCN * NUM THEN -GO TO NLERRi 

44 NLCONVi JUNKl *whi; 

45 CTflfi * TftUEJ 


02990400 T 
02990420 T 
02990440 T 


0372*0 

0374*0 4 

375*3 " 


46 if nmscn x spc or nbc / "#" then go to nlerr; 

47 if nmscn ''num then go to nlerr; 

48 nlconv; 


02990460 T 
02990480 T 
02990500 T 


0376*2 

0380*1 4 

0,38210 4 


49 WH2 «• whi; *H1 * junki; 

50 IF NMSCN * SPC OR NBC * ")" THEN GO TO NLERR; 

51 GO to nlisrt; 


02990520 T 
029905*0 t 
0a900«j60 t 


030310 

030412 s 

38811 - 


52 END* 

53 IF ELMTYP XLOGV THEN GO TO NLERR; 

54 no to nll; 


02990580 T 
02990600 T 
02990620 T 


0383*3 5 
0388*3 5 

0390*2 5 


NLISRT t 

IF ATQG THEN 

X , BEGIN . 


02990640 T 
02990660 T 
02990600 T 


039110 5 
039110 5 
39.111 5 . 



• • 



r 



h 

2 

3 
4 
5 
6 



12 
13 
14 
15 
16 
17 
18 



19 
| 20 

21 

22 
i 23 

24 

26 

26 

27 

28 

29 

30 

J1~ 

a 

33 

34 

35 



38 
39 



IF INDX £ SIZE 

mi * nxtelm; 

TNOX t INQX + (QLN 



THEN GO TO NLERR; 



end; 



indx ♦ INDX 4 i; 

IF Fl HTYP » TNTEfiv thfm mrnuum m y 1 n ft r 



02990700 

02990720 
02990740 



hi £03 «■ whU 

IF CDLN OR CMPLX) THEN W 1 [ 1 J 

IF NOT (CTGG FQV rMPLX ) THrN 



02990760 
02990780 
02990800 



039113 

0393*0 
0^97*2 



IF ATOG 
NFL*Ol 
IF NBC 



♦W.H2; 
GO TO 



N LRRR 



IF 
IF 



NOT 

ELMTYP 
THEN 60 



THEN IF (RPT * RPT-1) > THEN GO TO NLlsRfj 
WHILE N8C* W >* ANq NBC****" DO P(NMScN# DEL M 

» "S n THEN R FfilN nnMFTnr, «. Tbufi PFinsi. ? H n f 
ATOG THEN GO TO NIP; 

* LOGV THEN IF (NMSCN «ID ) 

^° NLPA ELSE IF NBCX"," THEN Gn TU NRP 



02990820 
02990840 
Q?990fl 6Q 



OftOi»i 
0402*2 

run? 12 



NFL*l i 



02990880 

02990900 
OyQoOogn 



0405*2 
0406 J 3 
0411*2 



T 
T 

-X. 



IF 
-It 



(Tl 

NBC 



BEGIN 



KH1 * NBC' 
IF NBC / " 



EU5E BEGIN *H1*WH2*0; 
♦ NMSCN) » NUM THEN GO 
THFN r.n Tn MRpi | 



»» it 

— * 



GO 
TO 



TO NUISRT 
NRPJ 



end; 



02990940 
02990960 

02990980 



041313 
0416*3 

042212 



ti ..«• nmscn; 

'"THEN 



02991000 

02991020 
QgOOfnan 



042610 
0426 » 3 
04 301,1 



END* 



LGTG «• NfiCi NBC ♦ WH1* GO TO NLPAJ 

WH1 » rWUl.M3l6 1 S w T H)i 



02991060 
02991080 
0299110(1 



GO TO NLISRT; 
MERRl 
PCMKS^FlRfCJfFTlX.raailSl^.c nBTFflB)^ 

end finname; 



T 
T 

02^91120 T 
02991140 T 
02991160 T 



0431*3 

04 34*0 
QA***2 

04 37*3 
0440*2 
4 41* 4. 



0299H80 
02991200 
02991220 



0441*3 
0443*3 
0&fl*»3 



0445*2 
0446*0 
0446*0- 



_P-BJ3£EJHJfl£-£miXfcLAM£i- 



-XJU55. 



02991240 T 0446 '0 

SlZ£» 0449 WORDS 
029912^0 T 0000*0 - 



COMMENT 



BEG IN 
-EXU£ 



FmTA 
US* 



FII F THP TD U£&£jJXP_XQii 



REAL 



FORTERR 
LISX 
_EJ 



FORMAT OR NAMEilST OR 
ACCIDENTAL ENTRY DESC, OR 

* 

— _— 

= "I* 
_5 -3' 



START Of REL SEG«ENTl DISK A DD R ESS « 00440 

02991280 T 0000*0 

02991300 T 0000*0 



02991320 
02«91340 
02991/160 



ARRAY 
NAME 



DKADR 

FMTA. 
FILX 



*4|\ ." 
*2C*3, 



02991500 
02991520 
Q?99l540 



0000*0 
0000*0 
OOOQlQ 



FP8 * 3E*3 i 



MEM 



02991560 
02991580 
0?99l600 



0000*0 

0000*0 
onontn 



Real algolns'ite ■■ 12* 
select * u; 

INTEGER L5TRN « i«j 

REAL LISTYPE • 20* 

L ARRAYS T UFF • Id, 



02991620 
029916*0 
02991660 



0000*0 
0000*0 
0000*0 



0000*0 
0000*0 
0000*0 



ARRAY 



NAMEV 
PRTBASE 

TEN 



NAME 



Real 



TPAR 

FI8E*]* 

USTADRj 



81 211 

* 10[*3/ 

s ??r+3r 



02991680 
029917Q0 
03991720 



« 23C*3> 



029917*0 
02991760 
02991780 



BUFF 
BSIZE 



WH1# 

WH2 

*1 



» x first buffer position 
> % arguments 

* i TRUE FOR SERIAL I/O 



029918Q0 
02991820 
02991840 



0000*0 
0000*0 
0000*0 



0000*0 
0000*0 
0000*0 



IB 

19 

20 I 

21 

22 

23 ( 

24 

25 

26 1 

27 

28 

29 ( 

30 

31 

32 1 

33 

34 

3,4 

36 

37 

36 % 

39 

40 

42 

43 

44 4 

46 

46 

,7 I 

48 



000010 
0000*0 
0000*0 



02991860 
02991880 
02991900 



» 



X 
% 



02991920 
02991940 
02991960 



0000*0 

0000*0 

0000*0 



0000*0 
0000*0 

0000*0 



49 
50 I 
51 
52 
53 I 
54 
55 
56< 

3 



rr 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 

44 

45 

46 

47 

(8 

49 

SO 

51 

52 

53 

54 

55 

56 

V 



INTEGFR 



W2 

NFC I 
P HI 



X NEXT FORMAT ChAR LOCATION 

J CQNV 



02991980 T 0000*0 
02992000 T 0000*0 
02992020 T QflOfltO 



1< 



DH2 

0H3 

Jl 



X 

% 

JL 



ERTED NU- 



MBER 



Firm 



029920*0 T 
0299?060 T 
02992080 T 



000010 
0000*0 

ooonm 



\ 

3 
4 

M 

6 

7 

•i 

9 

10 

»< 
12 
13 
14 { 
15 
16 

"< 
18 
19 
20 { 
21 
22 
23 ( 
24 
25 
26 ( 
27 
28 
29 ( 
30 
31 

32 4 
33 
34 
35 < 
36 
37 
38 ( 
39 
40 
41 ( 
42 
43 
44 { 
45 
46 
47 < 
48 
49 
50 I 
51 
52 
53 ' 
54 
55 
56 ' 
5? 



WT 

Tl 

J3_ 



> % 

> % 



WIDTH 



RFC 



02992100 T 
02992120 T 
029921^0 T 



000010 
000010 
000010 



OT 

01 

-02- 



* X 
> X 



IMAL p« 
LA' 



-C&? 



02992160 T 
02992180 f 



000010 
000010 
03992200 T O O O O 'O 



03 

ZERO 

EXP 



S 



i> X 
> % 
, X 



TRAILING 
E XP O N E NT 



5 
ZEROES 



000.0.1.0 

000010 

29922 6 T 00*0 



02992220 T 
029922^0 T 
-0^9- 



SHFT 
CODE 
SKP 



/ X INTEGER PART OF SHIFT 
> X EDITING FUNCTION 
_*_X RmUNDANT POSITIONS 



NCR 
LCR 

CHR 



* X CURRENT BUFFER PQSlTlUN 

* .X BUFFER SIZE IN CHARACTERS 
J_X CURRENT CHaR FRUM FORMaI— 



02992280 T 
02992300 T 



0000*0 
000010 



029 9 232 T 0000*0 



02992340 T 0000*0 
02992360 j 0000 iO 
0299 2 3 8 T 000 *0 



boolean 



DONE 
SQN 

PRNT 



TOG 
4 



, X 
, X 

.X TRUE IF PR 



RETURN AFTER WRITE 
SIGN 
INTER QI.IT PUT 



02992400 t 0000*0 
02992420 T 0000*0 
02992040 T 0000*0 



DTUu 

CTOG 



D E F I NE L OGV 



9 Hi, 



% DOUBLE PRECISION TOG 
X COMPLEX NUMBER TQG 



02992460 T 
02992480 T 



0000*0 
0000*0 



Q2992500 T 0000 * 



INTEGV 

DBLV 

CMPLXV 



_QJLt_ 



02992520 T 
02992540 T 
0299256 T 



0000*0 
0000*0 
0000*0 



ETYPE 
DTYPE 
ITYPE 



3#, 
4#> 



02992580 T 
02992600 T 
02992620 T 



0000*0 

0000*0 
OQOQ IQ 



LTYPE 
ELMTKfP 



6#» 
' LI 
L_LL 



STYPE . £44*43** 
ISTYPE . [ 44*43 » P BLV) # f 



02992640 T 
02992660 T 

02992680 T 



00Q0*0 
0000*0 
0000*0 



CM 

TW 



PLX 

00 

DUST 



CHSTYPE.144U) = 
LISTYPE, C 36* 13#» 
C LSTRN = ('! ))>' 



CMPLXV)** 



02992700 T 
02992720 T 
Q299274Q T 



0000*0 
0000*0 

Qoon*n 



SI2EF * t 331 15 3 »; 

label ertn#e*oci*L'ast#cqmm,nmi#nm2*fmerr; 
comment ***** start of subroutine declarations 



.*': .*:.'..*. * * * 



02992760 T 
02992780 T 
02992fl O Q T 



0000*0 
0000*0 
0000*0 



SUBROUTIN 
BEGIN COM 
LCR «• 6X( 



E ckpb; 

MENT 



INITIALIZE FILE AND ACQUIRE RECORD SIZE; 
P(MKSjFLG*DKAON'Qj. c*l >>FILX»ALgOLWR if E) )i 



02992820 T 
02992840 j 
299286Q T 



0000*0 
0001 *0 
OOP j*0 



IF PRnTR*PRnTR4( 
.113*11 
IF BSIZE GEO 



C(Tl*FIBC43,C8*^4)«i OR Tl»7 OR 
H33 t t43«53<20)C47*4? r *l3 THEN 
17 THEN BEGIN LCR *» I32i flSUE 



Tl»l2) ANO FPBCFIflUj 

»« i7 end; 



02992880 T 
02992885 T 
03992900 T 



0004*2 
0009*0 
001310 



IF PRNTR ANO BSIZE*l7 THEN lCR+120 ' 
BUFF 1 = C IF Tl !* PRNTR THEN TPAR ELSE 
IF ((NOT Tl) OR PRNTR. [46,1 J) THEN 



*FILX),.C33H5]| 



02992920 T 
02992960 T 
02993Q20 T 



0016*1 
0018*3 
0022*2 



STR£AM(P2 * (8SlZE*U.C36»63# 

P3*Tl.C47U3*BSIZE-UP4*BuFF) 
BEGIN P I «• P4j OS » 6 LIT w "; 



0299 
0299 
0?99 



3040 T 
3060 T 
30 80 T 



0024*0 

002610 

-0-Q2BM 



si f> p 

P8.CDS 
OS «• P 



4; 

«• 32 wds; 

3 WL)Sj 



DS «• 32 WDS); 



0299 
0299 
0299 



29931 



3100 T 
3120 T 
31 40 T 



0029*3 
0030*0 
0031*1 



end; 
ncr * o; 
end ckpb; 



0299 
0299 
0299 



3160 T 
3200 T 

3220 T 



0031*3 
0032*0 
0032*3 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 



subroutine prnt; 
begin comment 
If prntr. thfn 



GENERATE A CALL FOR CAR, CONT, AND FOR OUTPUT; 



BEGIN; 

NCR * 0; 
STREAMfPl<,0,P9»TPAW)J 



029932^0 
02993260 
029932A0 



0O33»0 
0033»0 
0033*0 



02993300 T 0033*1 
02993320 T 0033*3 
02993340 T — 00 3412 



BEGIN S.I 
01 
fcUCfl. 



+P2i DI * 

*■ P2; cs 

«• Pi 



IPC. pi; oi ... ♦ai 
: lit " m ;end; 



+ 7} ps *chr; 



02993360 . T. 
02993380 T 
02-9-94440 T 



003610 
003/10 
00 3 8* 



IF NCR » * " THEN 02 ♦ 16 ELSE 
IT NCR » "Q" THEN 02 «• 32 ELSE 
IF tiC.R 1 "♦" THEN pg «. FjSr 



02993420 T 
02993440 T 
02993460 T 



003812 
0040*2 
004310 



IF (02 «• NCR) > 9 THEN 
IF NOT P.RN.TH.«C 4.6 1.1.1 THEN Fl 
P(HK9»Q 8t[ <l 2»g3' P 2 tr44MifP 



02 * 16; 
B[17)«-FIB£173 + BSUE ; 
RNTRt [46»l 3 fBS l Z EyFRX'ALQQ L HRlTE} ; 



02993480 T 
0299 3520 T 
Q299.3540 T 



004512 
004812 

0052*0 



F!B[*SJ«TIB[63-C02«0> ; 

IF NOT C*FILX).C19»13 THEN 

PRNTSMj CKPfl i 



P(FILX#*2000000000#2#COM*DEL»OfcL); 



02993560 T 0055*1 
029935B0 T 0057*3 
02993600 T npftjtQ 



srREAM(Pl*lPAR#P2<-*FILX'P3«- 

BEGIN 

SI <• PI I OJ t P2? US » 



BSIZE.C36?6],P4*BSUE); 

P4 wos; 



02993620 T 
029936*0 T 
0299366Q t 



0063*0 
0065*2 
0065*2- 



20 
21 



ENfU 



P3(0S *32 wqs; qS 
Ol*Pi; P4(0S*8LIT W 



* 32 



wqs); 



02993680 T 
O2993TO0 T 
02993720 T 



0066*2 
0067*3 
0070*0 



22 

23 

24 

25 

» 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43" 



FIBU7 3>FIBtl.7J-BS 

END ELSE BEGIN P(M 
IF OONETns THEN PC 



ue; if ounet 

KS*FlG/DKADR,q 
X T T ?} 



OG THEN P(XIT) ; 
#BSI2E#F1LX*ALGQLWRITE); 



02993740 T 
02993760 T 
02993780 T 



0070»1 
0073*1 
0076*3- 



ENO 



CKPB END ; 

prnt; 



% PARAMETERS FOR LIST CONTROL 



02993800 T 
02993820 T 
029Q3q4Q t 



0077*3 
0079*0 
007 9* 1 



BOOLEAN ATOG'TWOr; 
ARRAY AR1 * USTADR.£*]J 
RFAL iNQX fS lZE^NLI'NLE; 



02993860 T 
02993880 T 
0299^900 T 



0079« 1 
007911 
Q079«l 



LABEL RTNlST#SRT; 
DEFINE NXTELH ■ IF 



THOT THEN P(*URl 
ELSr ARltINn 



£lNOX f C33*73 3 3M N x .C4Ol83#C0C) 

xi#j 



02993920 T 
02993940 T 
Q 299396 T 



0079*1 
0079*1 
0070* 



t- 



SUBROUTINE GETNMLST' 

BEGIN 
IF 



INLE 



NLE 



\) <Q (HEN LSTRN » - 1 E LSE 



02993980 T 
0?994000 T 
02994Q2Q T 



0079*1 
0080*0 
OOflQlQ 



BEGIN 



NAMEV ♦ FMTACNLI* NLI + 1 4 . C 12 1 363; 
LISTYPF » FWTA [NLT1.C2H03; 



02994040 T 
0299*060 T 
Q?99 * Q8Q T 



0083*1 
006313 
086* 1 



ARRAYSTUFF * 
IF (Tl «• FMTa 
THEN LIS1AD 



FMTACNLI«-NLI + 1 
[NL13,C7*V13 ) 
R» [PRTBAi>E[T 



J. [18130); 
< 1024 

133 else; 



02994i00 t 
02994120 T 
0299414Q T 



0087*3 
0090* 1 
009l»3 



45 

46 
47 
♦8 



IF Tl, [39*13 THEN LlSTAOR ♦ 
ELSE LlSTAOR «■ 
NLI » NLI * FMTACNLI3«CU63 



[MEM[LlSX-(Ti,C4l*73)33 
[MEM£L15X+(T1, [40*83)33; 



02994160 T 
02994180 T 

Q2990 20 Q T 



0093*3 
0099*0 
0102*1 



end; ' 

end getnmlst; 
subro utine getlist; 



02994220 T 

02994240 T 
0g994260 T 



0l04»l 
0104*1 
0l04»g 



49 

50 
51 
52 



BEGIN 

SRT* IF ATOG THEN 

BEGIN 



0899*280 T 
02994300 T 
02994 320 T 



0105*0 
0105*0 

0105*1 



54 



BEGIN 



IF DIN THEN 

I 
WH1 <• NXTELMj 



02994340 T 
02994360 T 
0?9943B0 T 



0105«3 

OlO7»0 
0107«? 



55 

56 



■'-■ ' 



INOX * INOX + 

whb -■* nxtelh; 



1; 



:; - ■''■',(■- 



--■■-■ -^-- ■■■■■ '■ 



02994400 T 
02994420 T 

JL 



0112*0 
0113*1 
3117*3 



2 
3 



P 5 
16 

17 

18 



19 

20 

21 



23 
24 



27 
2B 
29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

♦0 

41 

42 

43 



47 
48 
•9 

50 



S3 
54 



56 



BEGIN 



WH1 
NH2 



nxtelm; 



02994460 
02994^80 
02994500 



ENOJ 



BEfitN 



IF CINDX «-INDX + J) > SHE THEN 



02994520 
02994540 
02994560 



T 

T 

4—0- 



ARRAYSTUFF * Oi 
ATQG .«■ falsl; 



FK01 



ENOi 



GO TO RTNLST; 
TF cTOr. THEN 



02994580 
02994600 
02994620. 



0^994640 
02994660 
029946ft0 



T 
T 
-T a 



BEGIN X. IMAGINARY PART 
WM1 «- LIST.AD.RC13; 

wh 2 * o; 



UF COMPLEX 



02994700 
0299472Q 
Q2994740 



CT8G * false; 
go to rtnlst; 
end; 



02994760 
02994780 
02994800 



BEGIN 



-XE- 



getnmlst; 

if eindlist then gu 

ARRAYSTUFF f THEN 



to rtnlst; 



02994820 
0299*8^0 
02994860 



T 
T 
4 



ATOG «• TRUE* 
SiyE»(INDX»ARRAYSTUFr.C16lt5l^ARBAY5TUrr.Sl7EF 



X 



02994880 
02994900 
029949 10 



end; 



TWDToNGT P (* (L iSTAD.R «-MEM [ (* cL ISTADR 3 ) , [ 18 > 153 3 ) » TOP )/ P(DEL) ; 

go to skt; 



IF NOT Pj*LlSTADR#TOP»XCH*DED THEN LlSTADR*P< *LlST ADR ) ) 

WH1 * LlSTAORCOi; 

HHfl «• IF: DUN THEN LISTADRC13 ELSE Oi 



02994920 
02994970 
02994960 



02994985 
02995000 
0?99bO2Q 



CTOG <- 
RTNLST* 

END gft li st ; 



cmplx; 



02995Q40 
02995060 
Q2995080 



NMSZ, 



SUBROUTINE 
begin; 

STREAMCP1»[NAMEV3IP2»0)J 



02995J00 
02995120 
0?995 t 4Q 



T 
T 
1 o_ 



BEGIN 



bi «-pi; si * si + 2; 

6(IF SC = " " THEN JUMP 



OUT. 



02995160 

02995180 
02995200 



SI *5I ♦ 

pi *tally; 



H TALLY ♦ TALLY ♦ U; 



fnd; 



02995220 
02995240 
Q2995260 



NFCI * P. 
END NMSZ; 
SU BROUT I NE PUT* 



02995280 
02995 300 
02995320 



begin; 

STREAM(Pi*CNAMEV3lP2«.NFCl,P3«-BUFF); 
BFfilN 



02995340 
02995360 
02995380 



T 
T 

-r — a 



si 
pi 



pi; 

ui; 



si * si. + 2; os «-P2 chr; 



en d; 



02995400 
02995420 

■1 W tm * ■ ■■* ■« * ' W wjff 11 W i 1 



T 
T 

J — Q 



buff * p; 
end put; 
sueaouTiNr funnyzebq; 



02995460 

02995480 
0299 55Q Q 



BEGIN 



S.K.P «■ W - (U+6 + SGN); 

STREAM^.* BUFF'P2tSKP»P3»SBN>P<t«>CDt<t)); 



02995520 
02995540 
02995560 



T .0 
T 

-i — a 



BEGIN 



oi ♦ru 

P3(DS * 



01 * 01 ♦ 



P2J 



OUT TO L,)l 



02995580 
02995600 

3995620 



T 
T 

T 



17 

18! 

Z2J 



23! 

23 

25, 



25 

261 

2-7-J 



27 
27! 

2X1 



28' 
28 



30! 

3i 

3^J 



32 i 

33 

3-4- 



351 
16J 



39' 
43 1 
4-3J 



431 
46^ 
Mil 



51 

53- 

5JJ 



531 
54i 
5JL 



55 

55i 

5_£j 



57 

57! 

5flJ 



58 
58 
5l9_ 



59; 

59 

6XJJ 



60 
61 
6X 



62! 
62! 
A2J 



63! 

63! 
65- 



67! 
671 
A4J 



~*n» 



IS 
16 
17 



20 
21 



23 
24 
25 
26 



27 
28 



29 
30 



33 



34 
35 



36 

37 ~ 



39 



42 



47 
«8 



50 



52 
53 



56 



U DS * 2 LIT "0,"; 
P4CDS * LIT " w ); 

P,l t UU 



END 



end; 

BUFF ♦ PI 
FUNNY7ERQ1 



SUBROUTINE 
BEGIN 



finde; 

if dtog then 

uqURLECTFN[Q]»0>WhljHH2»x»»»HHl»HH2l , 

ELSE WH1 * TENC03 x WHU 
EXP * U0&WHit<»2»3«634WHlU»2Hl«H2)*,9039) 

w? + qi 



♦ .5; 



IF dtog then 

IF EXP i THEN 0QUBLE(TENCEXPJ'TENC69 + EXP],«-#Wl*W2) 

ELSE DOUBLE M»0> TEN r-EXPl> TEN r69-EXPW»»>Hl^H?) 

ELSE •*» * IF EXP 2 THEN TENCEXpj ELSE 1/TENC-EXP3; 

IF WHi > hi THEN GO TO ERTNJ 

IF WH1 ■ Wl THEN : 



IF 
EXP 



WH2 I 
* EXP- 



H2 



THEN GO TO ERIN; 



E RTN: 



END FINDEJ 
SUBROUTINE 
BEGI N 



numconvert; 



BEGIN 



IF Dl > THEN 

n QUR LE(H Hl »HH?»TFN[.$ j'TENtSS W»*»Wl/h.2)j 



end; 



DHl * Wl OIV l.O; 
IF 02 > THEN 



BEGIN If D.TPG. THEN 

BEGIN 

D0UBLLCHHl^WH3>nHl>0>TENCl6]#TeNt85 3«x*-> 



TENt 8J^T£Nt?73#/»*>Wl#W2); 
0H2 * *1 DIV \i 



FNO 



end; 



else dhz <■ wh a di v tencs3; 
if dtog then 



BEGIN 



D0UBL£<WHl>WH2#0Hl>0#TENCl6],TEN[85J#x# 

nH2»0»TENf 83jTEN[773>x»+>*>*»W1»H23, 



ENO 



DH3 ♦ Wl DIV i; 

ELSE DH3 » WHI DIV li 



EXP 

end numcqnvert; 

SUBROUTINE SETDi 



♦ EXP*U 



BEGIN 



IF DLN AND DT > 23 THEN 



BEGIN 



2E90S*DT-23| 
ENO ELSE IF DT>12 
REftlN 



OT •> 23; Dt * 7; 
AND NOT DLN THEN 



02 ♦ 03 ♦ 8i 



zeRos*dt-i2; 

ENO ELSE IF DT>16 
BEfilN 



pT «■ 12; 01*0; 02 * 4* 03 * e; 

THEN 



01*01 •14 1 



02*03*8 t 

•*- a 



■■ » '* 



,.-. 



±^. 



'. &H.y;. 



02995640 
02995660 

02995680 



0170*0 
0l70t2 



02995700 
02995720 
02995740 



02995760 
02995780 
029958Q0 



0*72*0 
017211 
0172*3 



Ql 7.3 1.0 
017 310 
0173*1 



02995820 
02995840 
02995860 



02995880 
02995900 

02995920 



0176U 
0i78<2 
0l»2*3 



02995940 
02995960 
03995080 



018 3*2 
018313 

Qiaa*n 



0194*3 
0199*2 
020Q*3 



02996000 

02996020 
0? 9 96Q4Q 



02996060 
02996080 
Q?»9 6lOQ 



0201 12 
0203 »1 
Q2Q412. 



0204*2 
0204*3 
2 5*0 



02996120 
02996140 
02996160 



0205*0 
0205*3 
0206 U_ 



02996i 80 
02996 2 00 
02996220 



0209* 1 
0210*2 
0210*2 



02996240 
02996260 
0?996?B0 



0211*1 
0212*0 
021 2*? 



02996300 
02996320 

Q2996340 



0215*1 
0217*3 
Q?19*0 



02996360 
02996380 

0p996«Q0 



02996420 
02996440 

03996fl6Q 



0219*0 
0222*2 

22 2'? 



0222*3 
0223*1 



02996480 
02996500 
02996520 



0229»1 
0230*2 
0230*2 



02996540 
02996560 
09996S80 



0232*1 
0233*2 
0233*3 



02996600 
02996620 
02996640 



02 996660 
02996680 
02996700 



0234*0 
0234*0 
0236 * 1 



02996720 
02996740 
02996760 



0236*3 

0240*3 
0243*2 



02996780 
02996800 
2 996620 



0244*0 
0248*1 
0249* 2 



0250 10 
025212 
2 ?3* 3 



N 

2 
3 

4 
5 



7 
8 
9 

10 
11 
12 
13 

14 
15 



16 
17 
18 
19 
20 
21 
22 
23 



24 
25 
26 

".-" 
28 
29 
30 

31 " 

32 

33 



34 
35 



36 
37" 



38 

39 

40 

41 

42 

43 ~ 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



di«-o;u2*dt-8; 

END ELSE 

BEGIN 



D3«-e; 



02996840 
02996860 
Q?9<i6flflQ 



0254* 1 
0257*0 
Q?57*0 



oi*oa*o;o3«-oT; 



END SgTP J 



eno; 



02996900 

02996920 
?QQ6040 



025712 
085912 
02591? 



SUBROUTINE RNDOFF; 
BEGIN IF DTOG THEN 
IF Tl ^ THFN 



D8U8LE<WHi»WM2»»5»TfNtTl3*TENCT 1+693 # *# ♦# ♦# Wh1> WH2 ) ELS£ 
0OU8VECW«i>WH2,#5#T£NC*TU#TENC69wTU #/»♦»*» WH1,WH2> 
FLSf WHI » WHl * (IF TlfcO THfN SxTFNfTlJ FLSE 5/T.fW^TI 1 )f 



02996960 
02996980 
02997000 



0259 * 3 
0260*0 
02 6 0? ! 



02997020 
02997040 
Q2997060 



T 

T 

_T_ 



0261*2 
0266 J 1 
Q27lfn 



end rnduff; 
subroutine scaled 

BFGIN IF QTClG THEN 



02997080 
02997100 
Q2997 12Q 



0276*0 
0277*0 
0?77fn 



BEGIN 



IF Tl 2 
THEN 00UBLE(Wttl#HH2*TENtTl3»TENCTl+69 3*x»*#WHl#WH2) 
ELSE D0UBLE(WHi,WH2*TENt»Tl3>TENt69»Tl3»/*»»HHi i ,WH ? ); 

IF WHI > T.ENIDTJ THEN 



029971*0 T 
02997160 T 
02997ifl Q T 



0277*1 
027810 
Q2B2M 



BEGIN 



EXP » EXP * li 



02997200 
02997220 
029q7 2 aQ 



END 



DOUBLE C WHI > WH2* TEN C 13,0,/,*, WHI #WH2)J 

END 
ELSE WH1 » IF Tl Z THEN WHlxTENCTl3 ELSE WHI/ TENt »T13 i 



029.97260 
02997280 
02997300 



0286*3 
0287*3 
0288*1 



028912 
0292*1 
0292M 



end scale; 

%-k ****** ******* 

SUBROUTINE CONVEBT; 



START OF EDIT-C0NTRUL*****************X 



02997320 
02997340 

02997 360 



BEGIN 

DTOG !« FALSE; 

SfiN »WHl.rill3i IF CODE 

DH1 «• DH2 ♦• DHi ♦ ZEROS 
GO TO PCCODE'DUP'ADD); 

en to fmerr; 



< LTYPE THEK WHI » ABSCWHlli WT » W; 
♦EXP ♦ SKP «• SHFT «• Dl * D2 ♦. 03 *■ Q> 



0j_ 



JLL 



02997380 

02997400 
09997420 



0297*1 
297 » 2 

2 97*2 



0298*0 

0298*0 
039AIH 



02997440 
02997460 
02997480 



GO 

GO 

_fi£L 



to fmerr; 
TO fmerr; 

TO FJ 



02997500 
02997520 
02997540 



0303*3 
309 i.O 

3 x n i n 



0310*2 
0311*0 
3 11*2 



GO 

GO 

-GO- 



TO 

TO 

-III 



DC; 

IV 

JLL 



02997560 
02997580 
02997,600 



0312*0 
0312*2 
31 3 *0 



Lt COMMENT LOGlCIAL CONVERSION; 

IF W >1 THEN SKP*W(WT*1); 
Wl± Q&CIF WHI THEN «T" FlSF 



T"lf 121fl2l6li 



STREAM(P1 »» BUFF'P2 * s WHl'P3 *■ SKP* P4 I ■ WT); 

BEGIN Dl «= P.H DI ** DI + P3; 
Si t« LUC ??'* SI ** SI t 2J 



02*97620 
02997640 
0P997660 



0313*2 
0313*2 
0316*2 



02997680 
02997 700 
02997720 



DS 

end; 

RUFF J* PI 



»» P4 chr; pi *• ox; 



02997740 
02997760 
02997780 



0319*3 
032112 
3 22*1 



0322*3 
0323*2 
323*3 



GO TU 
I* 



comm; 

COMMENT 
L£_ 



INTEGER CONVERSION; 
WHI'O AND WH2«0 THEN 



DT t D3 *■ 1 FLSF 



02997800 
02997820 
029978 40 



BEGIN IF DTOG THEN 

f 00UBLEtWHl#WH2,,.5>*,«-,WHl,WH2) 

ELSE WHI » Tl » WHi; 



X ROUND OFF 



02997860 
02997880 
09907900 



0324*1 
0324*3 
032 4 *3 



0328*1 
0329*0 
Q33113 



finde; 

IF EXP 



< THEN DT ♦ q3 «• 1 ELSE 



BEGIN 



02997920 
02997940 

029979,60 



IF (OLN AND EXHfc24> OR (NOT DIN AND ExP*12) 
DT ♦ E*P*1* SETOi NUMfeONVERTJ 



THEN GO AST! 



02997980 
02998000 
02998020 



0335*1 
336*0 

0338*2 



0339*0 
0344*2 
0348*0 



• • 



end; 



2 
3 
4 
5 
6 
7 
8 



IF DT ♦ SGN > M THEN GO TO AST; 

IF W > m + SfiN THEN SKP «• h - DT ■> SfiN* 



STREAM(Pl«.Q»P2 * 0l#P3 ♦ DH1/P4 ♦ 02#P5 «• DH2* 
P6 * D3#P7 * DH3,P8 * SGN»P9 * SKP»PiO * 
BEfilN Dt » P10J P9fDI » PI ♦ 1)1 



02998Q40 T 

02998060 T 
Q299fl0flQ T 



034810 
0348*0 
0309*3 



BUFF); 



029981,00 T 
02998120 T 
Q299flt4 Q T 



0353*1 
0355»0 

0356*2 



2 1 

3 

4 

5< 

6 

7 

s( 

9 
10 
,,( 
12 
13 
,4< 
15 
16 
,7 I 
18 
19 

20 i 
21 
22 
23 ' 
24 
26 
26 ' 
27 
28 
29 ' 
30 
31 

32 I 
33 
34 
35 I 
36 
"37 
38 I 
39 
♦0 
4,1 
42 
43 
44 I 
45 
46 
47' 
46 
49 
50' 
51 
52 
53 I 
54 
55 
56' 
57. 



P8CD3 .«■ LIT ' 
SI «-LQC P3; 

si + lq c p^ ; 



• «); 

OS «• 
QS_ 



P2 dec; 
» P4 dec; 



02998160 T 
02998180 T 
0?998?0Q T 



0357*3 
0359*0 
0359*3 



SI 
PI 



LQC 
OH 



p7; 



os ♦ P6 dec; 



ENQi 



02998220 T 
02998240 T 
02996260 T 



036012 
0361*1 
Q36H2 



10 
11 
12 
,3 

14 
15 
16 
17 
18 

19 " 

20 

21 

22 

23 

24 

25 

26 

28 
29 
90 

31 " 

32 

33 

34 

35 

36 

37 " 

38 



buff * p; 
go to cum.mj 

DJU COMMENT 



P QU B'L E PRE CISION CQ N VERT ^ SAME AS E CONV E RT !. 



02998280 T 
02998300 T 
02998320 T 



036113 
036211 
0362>3 



El COMMENT E CONVERSION) 

DTQG * true; 
SETn ; 



02998340 T 
02998360 T 
02998380 T 



0362*3 
0362*3 
0363*2 



BEGIN 



IF MH1-0 AND WH2 * THEN 

. ' 

I F IN < (0 + 6 + ,SGN? THEN GQ TQ AST; 



02998400 T 
2998420 T 
02998460 T 



365*0 
366*3 
0367IX. 



END 
BEGIN 



FUNNYZERO; 
ELSE 



GO TO CQMMJ 



02998480 T 
02998500 T 

0299852 T 



0369*2 
0371*2 
0371*2 



finde; 

IF CSKP «• 
IF QT LSS 



W - 
jQUI 



- 5 - 
HEN (jT *; 



SGN) 

i O; 



< THEN GO TQ AST; SETO; 



02998540 T 
02998560 T 
0299 8 5 B T 



0372*0 
0373 : 
377 *0 



Tl * EXP 

seto; 

T1»nT*l«FxPi 



ot; rnoqff; 



scale; 



02998600 T 0379*0 
02998620 T 038l*0 
029986 40 T 0382*0 



hum convert; 



STR EA H(Pl 



end; 

«■ 01P2 «■ 5KP.P3 «. SGN*P4 «• D1>P5 «• DH\m 



02998660 T 
02998680 T 
029987QQ T 



0385*0 
0386*0 
03 86*0 



P6 «■ 02#P7 ♦ 0H2,P8 

Pll «■ (EXP < 0)#P12 

BEfilN DT t pi s; PI » 



♦ 03, P9 ♦ 0H3*P10 ♦ (DLN)# 

* ABS(EXP)/Pl3 * SHFT#P14 «• 2eR0S*P15 *BUFF>; 
nT ♦ P2; P3(ns » lit »«mj 



02998720 j 
02998740 T 
09998760 T 



0387*3 
0390*0 
0393*0 



P2 «■ 
Si * 

SI + 



di; DS 

L8C P5; 

luc py; 



* LIT 

DS «• 
DS *• 



P4 



dec; 
dec; 



02998780 T 
02998800 T 
Q299B8PQ T 



0394*1 
0395*0 
0395*3 



Si * 
P14( 
PlOt 



LQC P9) 

OS «• LIT ' 
DJL_*_D_1_^ 



DS «• P8 

w ); DS 

11 DS » 



dec; 

* LIT M E», 
LIT «n«M 



02998840 T 
02998860 T 
0Q998ft80 T 



0396*2 
0397*1 
0399*0 



40 
41 
42 
43 ~ 



DS * 
PllC 

si «• 



lit " " ; 

DI * DI • 
L8C P12; 



l; DS 

DS *■ 



LIT ' 

pec; 



02998900 T 
02998920 T 
02998940 T 



0400*2 
0401*0 
040?*? 



45 
46 
47 
«8 
49 
50 
51 
52 
53 
54 
55 
56 



Pi * 

P13C 



di; 

01 * p2; 
os » pu 



$1 

chr; 



p2; 
ds 



si , 

LIT 



si + 



1; 

JUMP 



OUT TO x); X* 



02998960 T 
02998980 T 
02999 QQQ T 



0403*0 
0403*1 
0404*? 



end; 
buff * p; 



go to comm; 



02999020 T 
02999040 T 
02999060 T 



0406*1 
0406*2 
0407*0 



AST* 

STREAM(Pt 
BEGIN 



♦ 0»P2 ♦ 

01 * P2I 



BUFF»P3 *• 
P3C0S 



♦ LIT 



"*">; 



pi ♦ on 



end; 



02999080 T 
02999i00 T 
Q299912Q T 



0407*2 
040712 
0409*0 



BUFF «■ p; 

COMM* 
END CQNVE 



rt; 



02999140 T 
029y9i60 T 
02999180 T 



0411*0 
0411*2 
0411*2 



04U*3 
0411*3 
0423*3 



comment * 

FlB * FIL 



* * 



****** ENO OF DECLARATIONS 
XtNOT Hi * OPEN FILE IF NOT OPEN 

< THEN BEGIN FLG » 1J OKADR »0 END; 



* * * * * 



* *..*■■■*■* J 



02999200 T 
02999220 T 
0299924Q T 



2 
3 

4 
S 
6 
7 



10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 



IF FIBCS3.U3J1] THEN P (MKS» Of 0* F ILX* 1» SELECT ), 

PRNTR*2x(FI8C5],U1»2]/0) ; %%% IFF FILE IS CLOSED* SETS PRNTR , t 46 * 1 J«l . 
IF PRKTR THEN STREAM ( TPAR ) ; DS*8LIT" " ; 



CKPBJ ARRAY5TUFF ♦ OJ 

IF FIBC03 -m THEN FlBCQJ l» 1 ELSE 
IF FIBtO.3 NEQ 1 THEN P(MKS,FIB[6 U FILX . t 33 1 15 3* ft> FQRTERR W 



LSTRN *0; CHR «. " M ; NLI * FIJ 
NAMEV «■ CHRi M $ , 'i;i8:42«6^ 
CR -NCR * (NFCI » 2); PUTi 



M. 



NAMEV *■ FMTA[NLl3,C12t363; 
NLE * FMTAtNLI3»C2U03; 
MMSZt PUT; NCR » NrR 4 NFC 



U- 



NAMEV «• CHRi NCR * NCR ♦ CnFCI * 1); PUT; 

nmi: getlist; if endlist then 



begin; 

5tream<§j*buff)j 
B-E&in 



di ♦ Pi; oi * di - 3; OS «■ lit •♦*"; 
end; 

q QNETO G i TRur; prnt? 



ENO; 

IF PRNTR THEN PRNT; 
rnDF»NAMFVl MAMEv + CHftl MCR»NCR+CMFr.IfrP 11 PtiT? mAmEu»CQPE; 



nmsz; 

if elmtyp ■ integv then 
begin w «■!?? d »0; code *■ itype end fuse 



02999260 
02999280 
Q2999290 



02999300 
02999320 
09999300 



02999420 
02999430 
02999440 



02999430 
02999460 
Q2999470 



02999480 
02999490 
Q29995Q0 



02999510 
02999520 
03999530 



02999540 

02999550 
02999560 



02999570 

02999580 
03999*90 



02999600 
02999610 
0299962 



0426 
0429 
0432 



0435 
0436 

0439 



0443 
0445 
0447 



0450 
0451 
045a 



0456 
0460 
046 



0462 
0462 
0463 



0463 

0464 

-0-444 



0466 
0466 
Q4 6fl 



047 2 

0474 

-04*§- 



9 

10 

12 

13 
,4 I 
15 
16 

"< 

18 

19 

20 ( 

21 

22 

23 ( 

24 

2E 

26 { 

27 

26 

29 { 

30 

31 

32 i 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 I 

42 

43 

44 ( 

45 

46 

47 I 

48 

49 

50l 

51 

52 

53 I 

54 

55 

56< 



34 

35 
36 

37" 



38 
39 



40 
41 
42 
43 
44 
45 
46 
•7 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



IF ELMTYP • LOGV THEN 

BEGIN W ♦1,1 CODE «• LTYPE END ELSE 
IF FIMTYP * OBLV THFN 



-1 



BEGIN W *29; D *23; CODE «• DTYPE END ELSE 

BEGIN N M8J..Q «• 12; CODE..* .ETYPE. ENDJ 

F ( 6 + h + N F C I t C IF CMPLX THEN (Ht3) FtSF 0),* NCR) 



2 LCR THEN PRNT; 
PUT? % NAME 
NCR «■ NCR ± NFCI ♦ 31 



NAMEV > CH8« W .»".! 12 * 36 » 12 3 1 NFCI *3; PUT; 
NM2' IF ELMTYP = CMPLXV THEN 

BFGIN 



IF (NCR*H*«+6) 2 LCR THEN PRNT; 

NCR ♦ NCR * CNFCI «-l); NAMEV * CHR4 W (" t 12»42163 ; PUT; 

ncr ♦ ncr + w; convert; 



NCR * NCR + (NFCI«-1); NAMEV ♦• CHR&"# M [ 12» 42 * 6 J ; PUT; 

ctog *■ true; 

g etl i stj 



02999630 
02999640 
029996^0 



0478 
0481 
0483 



02999660 
02999670 
02999680 



0485 
0487 
0490 



02999690 
02999700 
02999710 



0495 
0498 
0499 



02999720 
02999740 
02999750 



0500 
0504 
0505 



02999760 
02999770 
099997AQ 



0505 
0510 
0515 



02999790 
02999800 

0. 2 9 9 ? a 1 



0517 
0522 
05 22 



ncr «■ ncr * w; convert; 

NCR «- NCR 4 CNFCI *4); 

NAMEV » CHR*")» w [lgI36U23» PUT; 



END 



BEGIN 



ELSE 



IF (NCR ♦ « ♦ 3) 2 LCR THEN PRNT; 

ncr ♦ ncr + w; convert; 

NCR » NCR ♦ (NFCI » 33; 



02999820 
02999830 
29 9984 



0524 
0526 
0527 



02999850 
02999860 
02999870 



0531 
0531 
0531 



02999880 
02999890 
0B999Q00 



0534 
0537 
0539 



END' 



NAMEV * CHR<i",«[12»42*6j; PUT; 
IF NOT AT_0G THEN GO TO NM1J 



FMERRl 



GETLIST; GO TO NMJ 



_GJL 

121 



. «V- 



P(HKS»FIBU:I,FILX.C33I133*0*F0RTERR); 



02999910 
02999920 
09999930 



0540 
0544 
0544 



02999940 
02999950 
02999960 



0544 
0546 
0546 



• t 



h 



10 

11 



12 
13 
14 
15 



16 
17 
18 
19 

20 
21 



22 

23 

24 

25 

28 

27 

28 

29 

30 

31 ~ 

32 

33 



34 
i 36 
38 
37 " 
38 
39 
40 
41 
♦2 



♦3 

I 44 
45 

te 

i 17 
•8 
49 
50 
51 
52 
53 



54 

55 
56 



end footname; 
PnncEnURF uahs ; 



* 052 



COMMENT ABSOLUTE VAlUE OF A DOUBLE PRECISION NUMBER; 
BrGIM RE Al X i .1, 



START OF REL 
PF JUNE 67 



02999970 j 0548*2 

size* 0549 words 
03000000 t ohoq'q 



XL ..." ..rzt... 

JUNK * \li 
P(X*SSP^.JUNK»STQ,XL*RTN); 



segment; djsk address 

03000100 T QOQO*G 

03006300 t — flooo io 



00tt59 



END DABS; 
PROCEriURE CARS 



0300030U 

03000400 



0000 '0 

0000*0 
ooon*n 



JL 



* 053 



O3OOO6OO t 000112 

SfZe« 0002 WORDS 
031QQ0Q0 t OQOntn 



COMMENT COMPLEX .ABS.Ql.UTE. INTRINSIC; 
BFfilN REAL, X « - ), t . 



% PF JUNE 67 



Y * -2* 

SORT**! i 
P(INTQESC(SQflTU) I 



START OF REL SEGMENT; DISK ADDRESS « 00460 

03100100 T 0000*0 

oai o oaoo t — oo o o?o 



IF (X ♦ ABS(X)) « OR (Y * ABS(Y)) s o THEN P( X* Y* AOD'RTN ) 
ELSE IF X > Y THEN P CMKS*1'Y' X* /> DUP'MUL* ADD' SORT, X#MUL ) 

El SF PCMKSt 1 f yi Yt /»nnp»Miii , .Ann.sQRTpVrMu i )f 

P(RTN); 

end cabs; 



03100300 

03100400 
03100 /(10 



03100500 
03100600 
03100700 



0000*0 

0000*0 
OOOOtQ 



0001 12 
0006*1 

00101.3. 



PRQCEDURE AINT ; 
BEGIN RFAL X a -1 j 



* 054 



03100800 T 0014*0 
03100900 T 0014*1 

SIZE* 0015 WORDS 



P(X>1>DIV,RTN); 
END AINT; 



03200000 T 0000*0 
START OF REL SEGMENT; D^K ADDRESS ■ OO46I 
03200100 T 0000*0 



procedure math; 



* 055 



03200200 T 0000*0 
03800300 T 0001*0 

SiaE* 0002 W O RDS 



COMMFNT MaTHEMATi r MANtPULaTTON INTRINSIC 

CoOE » 3xTYPE(0P 1) + 9x0PERATQR 
TYPE VALUE 
REAL 



it PF JUNE 67 



START OF REL 



DOUBLE 
COMPLEX 



♦ TYPE(OP 2) 
OPERATOR VALUE 

± 



03300000 

segment; DISK 

3 300 100 



T 00QO«0 
ADDRESS * 
T 0000*0 



00462 



BEGIN REAL 



CODE 
A 

"'•.'■" B 



-1* 

*3* 

,*4*'. 



JL. 



1 
2 

-1L 



03300200 

03 300 300 
0^i<T04QQ 



0000*0 

0000*0 
Ooontn 



03300500 
03300600 

3 300700 



C * -5* 
D « -6* 



03 300800 
03300900 
03301000 



tj 



0330HOO 
03301200 

03301250 



LABEL RPLUSO,RPLUSC,DPLUSC,CPtUSD,CPLUSC,RLESSO,RLESSc,DLESSC, 
CLESSD>CLESSC#RTIME0^RTIMEC>DTIMEC»CT1ME0»CTIMEC»RDTVDD/ 



RDIVDC'UDIVDC*CDIVDD'CDIVDC»CTImER»CDIVDR#InLINE; 
GO TO P(C00E*DUP*ADU); 

GO TO INLINE; * REAL ♦ REAL 



03301300 
03301400 

Q 3 3 Q15 PQ 



T 
T 
JL 

T 

T 



0000*0 

0000*0 

do 00 i.o 



0000*0 
0000*0 

O QPO ' O 



0000*0 

0000*0 

0000*0 



so to rplusb; 

GO TO RPLUS0; 

GO to inline; 



% 

% 
% 



go to inline' 
go to dplusc; 
go to inline; 



REAL ♦ 
REAL + 
DOUBLE 



DOUBLE 
COMPLEX 
♦ REAL 



1 
2 
3 



03301600 

03301700 
03301800 



T 
T 



GO TO CPLUSQJ 

so to cplusc; 
qd to inline; 



* DOUBLE + DOUBLE 

* double + complex 

% complex + Real 



* 
x 



COMPLEX + DOUBLE 
COMPLEX + COMPLEX 



4 
5 
6 



03301900 
03302000 
03302100 



0000*0 
0000*0 

0000*0 



000010 

0000*0 
0001*1 



03302200 

03302300 

03302400 



0001*3 
0002*1 

0002*3 



03302500 
03302600 
03302700 



0003*1 
0003*3 
0004*1 



0004*3 
0009*1 
0005*3 



9 
10 
11 1 
12 

13 

,4 I 

15 

16 

,7 I 

18 

19 

20 I 

21 

22 

23 I 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 



32 ' 

33 

34 

35 I 

36 

37 

38 I 

39 

40 



42 
43 
44 
45 
46 
47 
48 



11 



49 

50 I 

51 

4 

52 
53 * 
54 
55 
56 ' 
5? 



t • 



rT 

2 
3 
4 
5 
6 
7 
8 
9 
10 



12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 



24 
25 
26 
27 
28 
29 



30 

31 

32 

33 

34 

35 

36 

37 " 

38 



40 

41 

42 

43," 

44 

45 

46 



47 
48 
49 
SO 
51 
52 
S3 
54 
55 



GQ 

GO 

Ja_ 



TO 

TO 

-UQ- 



RLESSDJ 

rlessc; 

TNLIN.F1 



% 
* 



REAL - 
REAL - 

.-_C J W i JW-Jt^lNpfriili*— 



DOUBLE 
COMPLEX 
- RS.AL . 



10 

11 

X2_ 



GO 

GO 

_Q__ 



10 
Iff 

TO 



inline; 

DLESSCJ 
INLINH 



% DOUBLE - DOUBLE 13 

% DOtfHLE- COMPLEX I* 

X CflMPl.TX - REAl ____ 



go to clessd; 
go to clessc; 
en to inline; 



< COMPLEX - DOUBLE 16 
X COMPLEX - COMPLEX 17 
1 RFAI * HFAL JJB_ 



GO TO RTIMEft) 
60 TO RTIMEC* 

ftn TO TMI.TMF1 



% 
X 

JL 



REAL * 
REAL * 
DOUBLE 



DOUBLE 
COMPLEX 
* REAL 



19 

20 

_U- 



GO TO inline; 

GO TO DTIMEC; 
GO TO CTIMFR*. 



* DOUBLE * DOUBLE 22 

* OOUBLE x COMPLEX 23 
J* COMPLEX x REAL 2_- 



go to ctimeb; 

GO TO CTIMEC; 

Gn to tnunf; 



* COMPLEX x DOUBLE 25 
:■% COMPLEX x. COMPLEX 26 
_l RFAI / REAL 23- 



GO TO 
GO TO 
GO TO 



rdivdd; 
rdivdc; 

inline; 



REAL / 
REAL / 

DOUBLE 



DOUBLE 
COMPLEX 
/ REAL 



28 

29 

_10_ 



go to inline; 
go to ooivoc; 
dn to cotvpr; 



* OOUBLE / OUUBLE 31 

% DOUBLE / COMPLEX 32 

_ COMPLEX / RFAL 3X 



GO TO CDIVDD; A COMPLEX / DOUBLE 34 
GO TO CDIVDC; * COMPLEX / COMPLEX 35 
RPLUSHI Pfn»C>B#A»DLA» ,B*STD» f C*STO>XIT); — __ 



RPLUSc» PCA#C*ADD*B>.C*5TD>.B>ST0#XIT); 
DPLUSCt P(A#C»ADD#tC#STD#8##D#STD#xIT); 
CPLUSni Pt_,r.j ADO* .CjSTDjX IT W 



cpluscl pca#c*add».c,std,b,d»add / .d*sto#xit); 
Rlessd* p<o»c»b» a*dus» ,b»std* •C'STd/xit); 

Rl FSSri P(r..A.SUB_B»CHS»_C.STDf tB^STOfXlTW 



OLESSc* PCC'A'SUB».C'ST0»8#CHS# ,D*STD#XIT); 

CLESSO* P(C»A»SU8*.C#STD#XIT); 

CLESSC* PCD»8*SUB> ,d» sto<> c» a* sub* . STO»X it ); 



RTIMED' P(.0#C#B»A*.Q.LM#,a,STD«tCfSTo#XlT); 

RTIMEC » P(C#OUP*B»MUL» ,C p STD* A# MuL# ,B*STD>XIT); 

DTI NEC » P(C>DUP'A'MUL* . C' STD* B' MUL* .QjSTDjXIT); 

CTIMERJ P(A#DUP*B^MUL*»B#ST0#C»MUL#.C»STD#XIT); 

CTIMED* P(A'DUP»C»MUL#.C#STO»0*MUL*tD'STD*XIT)| 

CTlMECt P(A»C/MUL»0*B»MUL»SUB»C^8*MUL»A#P»MUL»A0Dt.D>STD<tC*ST0»xlT); 



RDIVDD* P(0»C'B'A'DLD' .B#STD» .C'STO'XIT); 
RDIVDC J P(C»A»DUP»MUL»B»DuP»MUL»ADO»/.#buP#B#MUL#CHs# 
" t C»STO»A*HUL».B»STD»XIT)l 



OOIVOC* P(C#A#0UP»MUL#B#DUP*MUL*A0D*/»DUP*8»MUL#CHS# 

,D#ST0#A#MUL*»C*STD'XIT); 
CDIVOR* P.B»A>/>.B/STQ.C>A#/».C»STo,XlTH 



CDIVDD* P(C»A»/#,C*3TD#QiA*/#,Q».STD»XlT..)* 

CDIVDC' PC A'C'MUL'B'D'MUL'AOD' A'DUP'MUL'B'DUP'MUL'ADD' ,T»STN*/# 
A»D»MUL>B»C»MUL»SUBM'/».D>STD».C»STD»XIT); 



inline* p<mks>iq*err>; 
End math; 



% COMPILER WRITERS ERROR 



procedure xtoi; 



% 05b 



03302800 
03302900 

3 BQ3Q00 



03303100 
03103200 
03 303300 



0006*1 
0006*3 
0007 1 1 



000713 
0OG| I J 

on am a 



03303400 
03303500 
01,103600 



0009*1 



0009 
0010 



03103700 
03303800 
03 303000 



0010 
00 U 



03304000 
03304,00 
03104200 



0012 

00 1 2 

-00-U 



03304300 
03304400 
33 04 BOO 



0013 

0014 

-OC-t-4 



3304600 
033Q47OO 
03304900 



0015 

0015 

JQ-Q-U 



3104900 
03305000 
03305100 



0016 
0017 
0017 



03305200 
03305300 
3 305400 



0018 

0018 

-00-L9- 



03305500 
03305600 
03305700 



0.3.305 800 
03305900 
03106000 



0021 

0024 
0026 



03306100 
03306200 
0*306300 



0027 
0030 
Q033 



0035 
0038 



OO-Qt? 



03306400 
03306500 
33Q66QO 



0042*1 

0044*3 
0047*9 



03306700 
03306800 

033Q6 9QQ 



0050*1 
0053*0 
005313 



03307000 
03307100 
Q13072QO 



0060*2 
00*3 IQ 
0066*1 



03307300 
03307400 
3307500 



0068*0 
007H1 
0073*0 



03307600 
03307700 

3 3Q7 8 QQ 



0075*3 
0078*2 

0082*3 



03307900 T 0086*1 

03308000 T 0087*0 

Sj Z f* OQBft WORDS 



CHMMENT VARIOUS COMBINAT I ON S Q F X T n THE I 



CODE f 3*TYPE(QP X* ♦ TYPECQP 2) 
TYPE VALUE 

_ __ : ; 



X PF JUNE 67 



03400Q00 y 0000*0 

start of rel segment; disk add r ess ,• 00465 

03400100 T 0000*0 



03100200 
03400300 

naunngno 



0000 10 
0000*0 
0000*0 



• • 



9 
10 

► ". 
12 

13 

\ '4 
15 
16 

» 17" 

18 

19 
| 20 

21 

22 
I 23 

24 

26 
I 26 

27 

28 

29 

30 

31 

32 

33 

34 

35 



38 
39 



BFGIIS RfcAU CQnE * 



DOUBLE 
COMPLEX 
LLi 



1 



A 
B 



-3' 

• 4* 

-5f 



* "6*. 
JUNK * 17,. 
T« + l»V»*?f FRR' 



+ 3,BanL = + 4,rnTru;s4.S 



REAL EXPINT»27# LNINT*29 t 
INTEGER J**6#I»J»R»CDT0g i 
REAL EXPft7tLN»»8>0FyP»FyP»DLnG»tM. C ABs»*g.ATAm2a*in.sQRT a i* < i. 

DEFINE DF(0F1)=FLAG(DF1 OR T) * 



LABF L PFXPORrOEXPORtRFXPnO^DE x P nn.CFYP OD.CE y P n R.RKyPQc.nFvP^c. ,. 
L2#l3,L4>CEXP0C,C0ENT,RDENT,T0PI,T0PIC*PI2,TPI2,HAF,Pi,MAX, 
F096*L5#PlT*CREL,PKK,Rxi#RX2»REXP0Rl,CEXP0U2 * 
P(Qfte5nMH 73>Q*DF( F n RTE RRn ,0»0»Ow if rnOF«o thfm Gn pEXPnp i 

IF C.00E5..5 THEN IF CQPE*2 TH£ N BEGIN PC D.F.CDEXP.I )#DFC DLQGJ) ) '» GO Pic* E N D; 
PCDF(EXPI)/DFCLNI)rOF(CAtlSI}*DF(ATAN2I)*OFCSQRTl)*DF(CUSl)^UF(SiNn) , 



GO TC P(CODE»DUP»AOO); 

GO TO REXPQRJ % REAL 

GO TC REXPOnl % RfAL 



** 



GO 
GO 
J&O. 



GO 

Go 

.GJL 



TC 
TO 

xo_ 



TO 
TO 
ISL 



REXPQC* 

dexpor; 
dexpod?, 






REAL 

n q u R LE 



OEXPOCI 

cexpor; 
cexpod; 



REAL ** COMPLEX 
00U8LE ** «EAL 

nnUfliF + * unuaLF 




JL 



go to cexpoc; 
dexpoc* r«-pc,o; 

REXPOrl R»P(.B)J 



* DOUBLE ** COMPLEX 

* COMPLEX ** REAL 

J COMPLEX *+ DOUBLE 



2 

3 

JL 



5 
6 

_Z_ 



* CO m PLEX ** COMPLEX 8 



L3I 



IF 
IF 



CaO THEN 

a«o Then 

BEGIN 



I*PC.D'); 
1"PC.C) i 



C*C + 0&CCl»l.»83&DC«7|9li3i GO L^ 



BEGIN P(0); GO LI END 



L4» 
L 5» 



IF A»U THEN BEGIN 
IF C>0 THEN GO l5 > 
J F ABjCA) LEQ PCMAX) 



P(l)* GO tl END ; 

THEN If P(A,.Bn^ ,ISN)»A THFNi 



Lit 



BEGIN A*BQQL i 

PCA8s£C),A,MK3, f EXP#L0D#INTCALLC*PC.LN)#XT0II),DEL) 
IF BXO THEN GU L?l IF BOOL THEN PtCHSl I 



PCR#STO»0»I»STD*XIT) , 
END ; 
T«-P(RUxa; pcmks,mks,abs(C).lnjA#x.E¥P); 

END i 
T*(V*.PcMKS,ABS(C)*LN))xB ; 
IF AaQ THEN 



GO L2 } 



L2i 



BEGIN "" 

IF C>0 THEN PCMKS#T#COS#R#STD»MKS#T#SIN#I#STD#XIT) 
PCMKSj(*P(PI))xRjFXP) 



-LE- 



P<V«-P#MKS#T*C0S#"#H#STD#Mks#T#8XN#V#«#I»STD#XtT) 
END J 

C<0 THEM 



BEGIN P(MKS,VXA-B>^(PI),EXP>; T<-T+P (P I )x A j QO lg £Nn 
IF ABS(A) LEQ 1023 THEN IF PC A, .B0QL> I SN )*A THEN GQ L4 ; 
P(MKS*Axy»EXP)> GO L2 ' 



CEXPOC* IF 8«0 THEN GO CEXP0D2 i 

r*p<.o; i«-P(.D); if d»o then go L3 ; 

— IF C»Q THEft BEGIN T» ABS(0)j P(PIT)J IF D<0 THEN P(SS|m); v»p 



£&Bl 



03400500 
03400600 
Q34QQ70Q 



03400800 
03400900 
03401000 



000010 

0000*0 
OOQQIO 



03401100 
03401200 
Q3401300 



0000*0 
0000*0 

noooiQ 



03401350 
03401400 
0*401*00 



0000*0 

0000 10 

0000*0 



03401510 
03401520 
03401600 



0000*0 
OOffOlO 
QQQQlO 



03401700 

03401710 
0*401«00 



0000 10 
0000*0 
0000*0 



03401900 
3401910 
Q340l9?Q 



0000 to 
ooopto 

OOOOtn 



03402000 
03402100 
03402200 



0004*2 
0009*2 
QQ16>2_ 



03402300 
03402400 
3402500 



0017*1 
0018*1 
001813 



03402600 
03402700 
3402800 



0019*1 

0019*3 

0020*1 



3402810 
034 2 8 15 

34028 2 



0020*3 
0021*1 

0021 I 3 



03402825 
03402030 
0*402ft35 



0022*1 
0022J3 
002fl*0 



03402837 
03402840 
03402845 



0029*2 
0031*? 
0633*1 



03402850 
03402855 
0*402fl60 



0032*3 
0034*3 
00 36*0 



034Q2865 
03402870 
03402875 



0038*3 
0040*0 
0043** 



03402880 
03402885 
0*402890 



QQ46:q 
0047*2 
0047*? 



03402895 
03402900 
0*402005 



03402910 
03402915 
Q*4Q20S>0 



0051*1 
0051*1 
0053** 
0054*2 
0055*0 
0059*0 



03402925 
03402930 
03402050 



0060*2 

0064*2 
00641? 



03402965 
03402970 

03402975 



0065*1 
0070*1 
0073*? 



0075*1 

0076*1 
0079*1 



12 

13 

14* 

15 

16 

17 \ 

18 
19 
20 ( 
21 
22 
23 1 
24 
25 
26 1 
27 
28 

29 I 
30 
31 

32 < 
33 
34 
i 

36 
37 
38 I 

39 

40 



42 

43 

44 

45 

46 

47 

48 

49 

50 i 

51 

52 

53 < 

54 

55 

56 ' 

3 



h 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 



Pirn 



else be«in t*p(mks,d>ocabs); v*pc mks# d* c* at an2 ) end 
t*cbqql*-p<mks#t»ln))xb + vxa; p(mks'Buolxa-v*b>exp); 

3.141^92653^9 



t 
GO 



L2 * 



MAXIM 90007777777777777 

pit i a $ i i 4 i 4#» t 76652 i 04 

REXPORt IF R M nR R M 



03402980 
03402985 

03402990 



0083 
0087 
00 9 3 



; 
i 



PUITH 



IF A ..» THEN PC1,,B'STD'XIT?; 

IF AB3(A)<4096 THEN IF CJ«-A) = A THEN 
RFX P0R1I BFGIN IF BOQL»J<0 THEN J»-J i 



03402991 

03402992 

03403000 



0095 
0096 
0097 



P(J# •T#STD*8)I 
WHILE (T ♦ (J ♦ 
BEGIN PCOUPlI 



03403100 
03403200 
Q34Q33QQ 



0099 



T).C36lllJ) * DO 



03403400 
03403500 
0*403600 



IF J .THEN 
BEGIN V <■ V + 

PCDun; 



V 



end; 



end; 
pcmud; 



03403700 
03403800 
03403900 



WHILE (V «■ V - U * .. 0. 00 PCMUL); 
IF BOOL THEN PC1*XCH#/)J 

IF CUTQ G'Q THEN 



03404000 
03404100 
03404200 



03404300 
03404400 
03404ai0 



01 
44 



07 
08 
XX 



11 

12 



14 
14 
JL4 



16 
19 



r< 



M 

3 
4 

M 

6 

7 

M 
9 

10 

"I 

12 

13 

■.«< 
16 

16 

'H 

1B 

19 

20 ( 

21 

22 

23 | 

24 

25 

26 ( 

27 

2B 

29 ( 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 { 

39 

40 

41 4 

42 

43 

4<( 

45 

46 

47 i 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

56< 

3 



19 
20 
21 
22 
23 
24 
25 
26 



BEGIN 

IF C0T0G>2 THEN P(.C».D) ELSE PC.B'tC) i 
IF CaO THEN RXH PCO,XCH> STPj STP,XIT ) i 



034Q4415 T 
03404420 T 

O 340442 5 T Q. 



21 
21 
2JL 



IF (J*(J«-A) AND 3)»0 THEN GO RX1 '» 

IK J«l THEN BEGIN PCxCH); GO RXl END ; 

|F J»2 THEN RX?> Ptn/XCH^STD/XCH^CHS/XCH^aTD^XtT) ; 



034C4430 T 
0340443b T 
03404440 T 



27 
29 
3-1 



27 
28 



pcxch); go RX2 ; 
eno ; 
Pc.B»STn*xm ; 



03404445 TO 
03404450 T 
3404500 T 



35 
35 



29 
30 



end; 

IF B>0 

THEN FCMKS,MKS,B,LNlNTfA,x,ExPINT».B>STP»XlT); KFQRTHAm ONLY 



03404600 T 
03404700 T 
034D47 1Q T 



36 
36 
36 



31 
32 
33 
34 

35 
36 



REXf»00« 
QFXPQBt 



p<mks#ii>e:rh) 
pcq».8,»c>; 

p ( c#. b ». c?; 



; 

GO ROENT ; 

c»Bi fiiflj SO RO F N T i 



03404800 T 
03404900 T 
03405OQ U T Q 



40 
41 
A2 



DEXPQD« 
RDENTl 



PCO*»C*.D) ; 

code«-p; r*p; 
if a»0 then p 



JUNK*P; IF C = THEN P C 0* CODE* 5 T D * X IT ) J 

(l»R»STD»0»C0OE»STO*Xin ; 



03405100 T 
03405200 T 
34Q91QQ T & 



45 
45 
14 



37 
38 
39 

40 
41 
42 

*3 



IF 8 » THEN 

IF ABS 
BEGIN 



CAXPCF096) THEN IF CJ«-A)*A THEN 
IF BOOL ♦ J < THEN J » «JJ 



03408200 T 
03408300 T 
Q 34Q8 4Q T Q. 



52 
53 
5A 



P(J> ,T*STD'JUNK#C) / 

HHIU CT «■ CJ *■ T),t36«lU) * 00 
BFGIN P(,A>STDfOUP;AfXCH»A?J 



03408500 TO 
03408600 J 

03408700 T 



59 
61 
43t 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



IF J THEN 
BEGIN V * V ♦ i; 
PC,AtSTO»DUP«A*XCH«A)i 



03408800 T 
03408900 T 

O34O9Q00 T 



65 
65 
6J7 



end; 
pcdlm); 



ENO. 



WHILE (V ♦ V • I) I 00 PCQLM); 

IF BUOL THEN PC . T*STO,0>XCH, 1 ,XCH,T#OlD ) ; 

P(R>STD»cnOE»STO»XIT) I 



03409100 T 
03409200 T 
3« 09 30 Q T 



68 
68 
A* 



03409400 T 
034Q9500 T 
03409600 T 



69 
72 



IF C>0 



end; 

THEN 



CMKS»MKS>JUNK*C»OLQG>JUNK*B*A>DLM,DEXP'CQDE#STD# 
„JUNK,R»STQ»XIT) ; . , r 



03409700 T 
03409800 T 
03409900 T 



7 6 
76 

841 



CEXPORl 



PCMKSt ll*ERR) 
IF B «0 THEN 
TF A » THEN 



J 

IF C * THEN PCXIT); 
P ( l j. B» ST0# 0»,CtSTD/ X IT)7 



08410000 T 
03410100 T 
03 41 02 T 0. 



81 
82 

as. 



• • 



>r 



10 

I 11 

12 

13 
: M 

16 

16 " 
1 17 

18 

19 

20 

21 

22 

23 

24 

25 

M 

27 

28 

29 



30 

31 " 

» 

33 

34 

35 

36 

37 " 

38 

39 



40 
41 
42 
43 






46 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



CDENTt IF ABSUXPCF096) THEN IF CJ«-A)*A THEN 
BEGIN 
IF C30 OR H*Q THEN 



B£iIN C0T064-C0T0G OR 2J 
IF 80a«»J<0 THEN J*"J :■? ■}"' 
QQ CREL; rOQAIM flOPA! 



IF B»0 THEN B*C; 
CRELI 



GO REXP0R1 END ; 



PC J',T#3TD#C#B)/ 

WHILE CT «■ (J f ..T), I3.6IH3) * 

BEGIN P(.A^STO>Ogp^A>XCh»A?..; 



00 



IF J THEN 

BEGIN V ♦ V ♦ 1) 

P(.A«STQrOt)P,AjXCH.AU 



end; 



iMl 



PCDUH*MUL>XCH*OUP'MuL#i)UBr.A/STD.MuL*OuP*AOD^A); 



WHILE (V * V - 1} i Q 00 
PC.A#STO J »,B#STOiv.C#ST0>OyP,A#MUL^B#C*MuL#ADD# 
xcMjCMSt^MUt «a ,^mu» .Ann?* 



C ♦ 



x(A 



if bqol then pc • a# std^chs* qup#dup>mul' a*dup* 
mul*aoo?.b»stn*/ja*B'/); 

IF CDTOG THEN P C.C, STO, .0* STO, XI T) 

ELSE P(.8#ST0*.C*STD»XIT); 

« P(MKS>MKS,MKS,C,R,r.ARS,LN,A,Mt]L.rvP)> 

*■ P(MKS,MKS,C,B / AtAn2,A,MUL^T0PI,MOD».T*StN,Sin)); 



PCMKSM*A^pUP#MUL*SU8*3ttRT); 

IF T > PCPI2) TH E N IF T < PfTP I ?) THEN PC CHS)* 



CEXPQD' 
CEXP0D2« 



P(V>M'UU'tB#&TO)l 

IF COTQG THEN PC C* ♦0*STD# 3» , C'STO )/ 

pcxm; 



A«-A+0iAClM'B3&Bt47»9l lJ ; 

IF OQ THEN IF 0-0 THEN PCx.lT.).; 

IF A =0 THEN P(^,C*ST | >Of t QfSTQfXlT) 

B «• c; 

C «• 0* 

rnTnr. «, tbufi 



topi 
h af 



go to coent; 

I** ^1146220773250420; 
n« gnsaoooooojonodns 



TOPIL ' ! * *06055060«323O<j6i; 



PI2 *** 0U4l444l76652iO4; 
TPI2 lit 011445545743763U; 



END XTOl; 
PROCEDURE' IDI NT / 



% 05 7 



03410300 
03410305 
34 10 31 



03410315 
03410400 
34104*40 



0l68;i 
019U0 



03410500 
03410600 
Q341Q70Q 



019311 
019712 
QgQAti 



03410800 
03410900 
034U0QQ 



020210 
0203*1 
02,06*0 



020712 
0207*3 
020013 



03«1UOO. 
03411200 

03411 -100 



0341U00 
034U500 
OlillftQO 



021110 
0211*0 

21 4*0 



021412 
021613 
0?? fl» 



3411700 
03411800 

03411900 



03412000 

03412100 
01412200 



0222*2 
0225*1 
Q227«JL 



03412300 
03412400 
3412500 



0229*1 

023110 
0231 *0 



03412600 
03412700 
03412 80 



0233*2 
0238*1 
240«-O. 



03412900 
03413000 
03413050 



0242*3 
0243*3 

0246 * 



03413100 
03413200 
03413300 



0246*1 
024912 
0252*1 



0255*1 
0256*0 
0-25.6X3 



03413400 
34x3500 

Q3413600 



03413700 
3413800 

cHLtiaflo 



0257*2 
0258*0 

0260*0 



0261*0 
026210 

0263 tn 



~rv 



03414000 T 0263*0 

SIZE* 026a WORDS 
03500000 J 0000*0 



COMMENT DOUBLE TO INTEGER CONVERT* 

BEGIN REAL X m »i» 

XL a "2i 
PCX ♦ 0*XCilll8HXLC47l9*l]#l*DlV*RTN)> 

END iDTNTi 



t PF JULY 67 



START OF REL SEGMENT* 0I5K ADDRESS » 00474 

03501000 T 000010 
03501001 T 000010 



03501002 
03501004 
3501005 



T 
T 



0000*0 
0000*0 
QQ03'2 



PROCEDURE FLOAT ; 



% 060 



BEGIN REAL X a -i; 
PCX* RTN); 

eno float; 



SIZE* 0004 WORDS 
03600000 T 0000*0 
START OF REL SEGMENT* DISK ADDRESS ■ 00475 



03600100 
03600200 
03600300 



0000*0 
0000*0 
0000*2 



fRQCEOUKE SNGL ,.i 



SIZE* 0001 WORDS 
03700000 T 000010 
START QF REL SEGMENT; D I SK ADDRESS , 0Q476 



n 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 

14' 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 < 

24 

25 

26 4 

27 

26 



29 I 

30 

31 

32 

33 

34 

35 I 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

56 

56 



11 



10 



12 



13 



15 



21 



23 



COMMENT SNGL iNTttlNSIC 
BEGIN REAL X * -W 
, X L« -2/ 



(DOUBLE TO SINGLE CONVERT); X PF JUNE 6? 



P(X ♦ 0«XU*l*8J*XL[47*9*lJ,RTN)i 
END SMGL1 ■ 



03700100 
03700200 
03700300 



OOOOJO 
0000(0 

ooooto 



03*00400 

03700500 

Q37QQ600 



0000)0 
0003(0 

OQQKO 



PROCEDURE D8LE i 



% 062 



COMMENT DBLE INTRINSIC 
BEGIN REAL X * »i# 
J UNK g 17* 



(SINGLE TU OOUBL£)i % PF JUNE 67 



SIZE* 0004 WORDS 
O38OOOOO T 0000*0 
START OF REL SEGMENT* DISK ADDRESS « /l 7 7 



03600100 
03800200 
Q 1 80 Q 300 



000010 

ooooto 

OQOnln 



p(x#,junk,std»0,htn); 
end dble; 



3800400 T 000010 
03800500 T 0001*1 
SIZE" 0002 WORDS 



PROCEDURE AMOD * 



X 063 



BffilN 



REAL X 



>2t Y « "U 



START OF REL 



03900000 

segment; disk 

03900 1 00 



T 0000*0 

ADDRESS • 

4 — 0000*0 



00478 



END AMDO. 



P(X MOD Y# RTN)/ 



3900200 T 0000*0 
039C0300 T 0001*0 

S IZE* 00 2 WOR DS 



X 064 



PROCEDURE TIME * 

COMMENT FORTRAN TIME INTRINSIC Cl.lKE ALGOL); 



BEGIN REAL X * m \i 
P(X#1*C0M*RTN); 

en d t i m e; 



-X — BE J ULY 67 



START OF REL 



O4OOOOOO 

segment; disk 

_ _ 04001000 



t 0000*0 
aod r ess « 

4 0000*0 



00479 



04001002 

040C1QQ3 

<l 00 1 004 



0000*0 
0000*0 
0001*0 



15 
16 

17 • 



25 
26 
27 
28 
29 



30 

31 ~ 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 



procedure DMOD 



% DOUBLE PRECISION MOD INTRINSIC # 0065* 



SIZE* 0002 WORDS 
04100000 T 0000*0 
START OF REL SEGMENT; DISK aOORESS a 00480. 



BEGIN 

Real h*+2* b=-1' bl*-2* a*-3> al«-4, e*17; label g*q ; 
i f 6 * th fn if bl«0 then p c m^s» t ntc all c l3»fprterri ) ) ; 



04100100 T 0000*0 
04100200 T 0000*0 
04,00300 T 0000»0 



IF P(AL*ABS<A)*BL#NABS(8)*0LA#DUP)»0 THEN GO ; 

IF P<0 THEN P(AL*A»,E#*#RTN) ; 

TF (E»PtAL>A>BLj8,DLD«DtJP).(3i6))>13 THEN P_U£jlXSDJ ; 



O4IOO4OO T 0004*2 
O4IOO3OO T 0007*2 
04in0550 T 0009*3 



P(XCH) .J.. 

IF E*0 OR H,C2»lJ THEN 

E)SE BEGIN PC13-E); :i 



BEGIN P(DEL»0*XCHVE); t lP(,G#+#LOO*LND#xCH)END 
P( ,G*+'L n D'LND) END J 



04 100600 T 
04100700 T 



IF P(DUP>ABSCH)>0#1,DLA,BL#NAB$(8)»DLM#AL#A8S(A)#0LA)£Q THEN 

Qt P(E*0»RTN) ; 

P(D£L,XC.H,BL,B,OLM,CHS,AL,AjOLA,«£,»>RTN) 



0013*3 
0014*0 
0*100750 T QQ19»1 



O4IOO8OO T 
04100850 T 



0022JQ 
0026*0 



Gil 193777777777777777, % DYNAMIC MASK CONSTANTS, 

* 3777777777777770, 9 37 7 77 7 77 77777 7QQ, 9 37 777 7 77777770QV, $177777777 7 77 QQQO, 

P 3777777777700000 >9 37777 7 7777000000 »* 377777 7 7 70000000* <* 377 7777700008000* 



Q 41 0Q9QQ T 0087*2 



04101000 T 
04101050 T 



0030*2 
0032*0 



^3777777000000000,f 3777770000000000, * 3777700000000000, «• 3777000000000000; 
END OF BMOO ! 



4101100 T 0036*0 



45 

46 
»7 
•8 



04101200 T 0040*0 
04101300 T 0044*0 



SyZF» 004»S WORDS 



% 066 



PROCEDURE OMAXl i 

COMMENT D OUBLE PB CISIQN MAX ROUTINE; 



_* PF J UNE 67 



START OF REL 



04200000 

segment; disk 

04200100 



T 0000*0 
ADDRESS * 

4 0000*0 



00482 



49 

so 



BEGIN REAL 



X » -1* 
XL * **2# 
JUHK J» 17* 



04200200 T 0000*0 
04100300 T 0000*0 
04 200 4 00 T QOQQ«0 



S2 
S3 
54 



RCW m +0# SIZE * +1* NEW a +2* NEWL * +3, JUNKL * 
P([RCWJ INX 0»0#RCW'FCX» 1* INX#SU8»0*0*XL'X» „JUNK*STD); 
WHILE .(SIZE » SUE - 2) > DO , 



+ 4; 



04200500 j 0000*0 
O48OO6OO T 0000*0 
042007Q0 T 0003*3 



ss 

56 



IF PCNEWL * *P( f *#Sl*E#AD0».NEW»STN*l*AOD).NEW ♦ *P(NEW). 
jUNKL#jyNK*OL8#-XcM#0Ci) > THEN 

B E 6 *M JUNKL » nekl ; " ^ ■■ ■;>•■*. ■ _ 



04200800 T 0006*0 
04100900 T 0009*2 

Q42010QQ T QQ1H1 



55 

5? 



• • 



>T 



JUNK 
EMC* 
PCJUNKUfRTN)i 



* NEWi 



END DMAXH 



(U20U00 
0*201200 
04201300 



0012*2 
0013* 1 
00 13 ? 3 



J_ 



it n<s? 



04201400 T 0014*1 

SIZE* 0015 WORDS 
04 300000 T 0000*0 



COMMENT DOUBLE P^CISION MIN ROUTINE; 
BEGIN RFAL X ^ -1 * 



PF 



JUNE 67 



star! of kel segment; disk address * 

Q4300100 T 0000*0 
„ 0/1300200 7 0000*0 



00483 



XL * "2* 

JUNK * 17* 

RCrt s +0, SIZE a ♦ 1 , NEW « + 2» NEWL ■ + 3. JUKKL 



a 4-4) 



04300300 
04*00400 
Q430Q5QQ 



T 0000*0 
T 0000*0 
4 O O Q Q*0 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43," 



P(tRCW3 I NX Q*0#RCW*KCX.*l*INX#Sue.»O»0».X.L»X* ,JUNK»STD>* 

while csize «■ size - 2) > o do 

IF PCMEhl, i »Pt.X>Si4TfADD>,NFW>STN»l»AnD)»NFh t »P(NEft) 



04300600 
04300700 
0430060Q T — 0006*0 



I 0000 JO 
T ...... .0.00.3.1.3 

0006*i 



JUNKL* JUNK, 0LS#XCH> DEL) < THEN 
BEGIN JUNKL * NEwL; 
JUNK » new; 



04300900 
04 301000 

(U 30i; on 



T 0009*2 
T 0011*1 
4 — 0012*2 



end; 
p(junkl'rtn); 

E N D O MINI J 



04 301200 
04301300 
4 3 1 4 00 



001311 
0013*3 



-T 00 1 4*4- 



procedure signv ; 



X 070 



START OF ft El. 



04400000 

segment; disk 



SIZE" 0015 
T 0000*0 
AqdReSS ,,», 



words 

00484 



comment sign intrinsic; 

BEGIN REAL S a -\, 



% PF JUNE 67 



04400100 T 0000*0 
04400^00 T 0000*0 
440 03 T OOOO-LQ- 



P(X); 

if 8,c1'13 then p(ssn#rtn) else p(ssp»rtn>; 

end sign; 



04400400 
04400500 
04400600 



T 0000*0 
T 0000*1 
4 0003*0 



PROCEDURE O.SX.GN ; 



3! 071 



START UF REL 



04500000 

s egme nt ; pi sk 



size* 0004 

t 0000*0 

ad d r e ss 9 



WORDS 
Q046J) 



COMMENT COMPLEX DOUBLE SIGN INTRINSIC; 
BEGIN REAL 8 ■ *t* 

i * -3» 



* PF JUNE 67 



04500100 
0^100200 
04 50 Q 3QQ 



T 0000*0 
T 0000*0 
J QQQO'O 



XL * -4# 

JUNK * 17; 



pcx); 



04500400 
0^500500 
04^00600 



T 0000*0 
T 0000*0 
0000*1 



IF S.[1*U THEN P(SSN) ELSE P(SSP); 

P(»JUNK#STD#XL*RTN); 

END OSIGN; 



04500700 
04500750 
45 00 800 



T 0000*1 
T 0002*2 
1 0003*? 



PROCEDURE OHM > 



% 07* 



START OF REL 



04600000 

segment; disk 



SIZE* 0004 
T 0000*0 
ADDRESS a 



WORDS 
00486 



BEGIN REAL X « "2* Y « »\S 

PCX -(IF X S Y THEN X ELSE Y),RTN)I 
END ohm; 



0460O10O 
04600200 
04600300 



T 0000*0 
T 0000*0 
J 0003*0 



46 

*7 



PROCEDURE REALP ; 



* 073 



START QF REL 



04700000 

segment; disk 



SlZE» oqq« 
T 0000*0 
ADDRESS « 



WORDS 
00487 



49 
SO 



COMMENT COMPLEX TO REAL INTRINSIC; 

BEGIN REAL % * -II 

PCXgRTN?; 



X PF JUNE 67 



04100100 
04700200 
04700300 



T 0000*0 
T 0000*0 
T 0000*0 



52 
S3 



end Realp; 

PROCEDURE AIMAG ; 



* 074 



04700400 T 0000*2 

SIZE* OOOl 

04600000 T 0000*0 



WORDS 



55 

56 
5. 



COMMENT IMAGINARY iART QF COMPLEX NUMBER! 
B EG I N f* 6*L ,Y * -31 ! ■ 



X PF JULY 67 



START OF REL 



SEGWENTI DISK 
04801000 
, 0480 1010 



ADDRESS * 
T 0000*0 
T 0000*0 



00486 



N 

2 
3 
4 
5 
6 



P(Y#RTN>; 
END aimag; 



PROCEDURE CMPJ.X ; 



* 075 



0^801020 T 0000*0 
04801030 T 00005? 
SlZL= 0-O04 WORDS 



CnMMFMT TWO R EALS TO A COMPLEX; 



.Ef JULY 67 



START OF REL 



04900000 

SEGMENT* DISK 

04900100 



T 0000*0 

ADORESS ■ 

_J 000010 



00469 



BEGIN REAL 



Y ». -1* 
X » »2# 

JUNK « III 



04900200 

04900250 
04 9 003 00 



oqoqjo 
ooooio 

OC Q Q i Q 



P(X»,JUNK,ST0*Y#6TN); 
END CMPLX; 



04900400 T 000010 
04900500 T 000H1 

— si z e* o o o a word s 



10 



12 
13 



16 
17 
18 
19 

20 



25 
26 



27 



PROCEDURE. CONJG i % 076 

COMMENT CONJUGATE INTRINSIC? 



Jk ELE JUAIE 67 



START Of «EL 



05000000 

segment* disk 
05000100 



T 000050 

address ■ 
J. ooooto 



00490 



BEGIN REAL 



X • 
XL ■ 
J UN K 



-1* 
-2' 

* AIL 



P(X# .junk,sto*xl*chs*rtis>; 
end conjg; 



05000200 
O5OOO3OO 
05000400 



0000*0 
0000*0 
0000*0 



proceoure oexp 



% 077 



O5OOO5OO T 0000 JO 
05000600 T 0001*2 

S UES 0002 W O RD S 



COMMENT DOUBL E Pfl EClSinN EXPONENTIAL INTRInSICJ X Ef JUNE 



05100000 T 0000*0 

START OF REL SEGMENT* DISK ADDRESS ■ 

.42 . Q510Q100 T QOOOtO 



00491 



8EGIN REAL 



X = -1* 
XL s m 2> 

J UNK * 1 7* 



05100200 
05100300 
OS 100400 



oooo»o 

0000*0 
0000 ?0 



t*tl; 
boolean sig*huge> 

INTEGER Nt 



LABtL ATl3#LG2/L62L#EMAx#"AF,A,AL»BfBL*.C,CL.#D,DL#E»EL,F f FL#G#6L, 

CLGl*H*HL* IML#J/JL>K,KL»L*LL»M,ML; 
OEFINE TIMES = NnP>r)L,Ai)tl„iX>NQP»r>LMf » 



05100500 
05100600 
05100700 



0000*0 
0000*0 
000 1 



28 
29 

30 

31 ~ 



32 
33 



IF SIG ♦ X.tllU THEN X ♦ AeS(X)* 

IF HUGE*X>27 THEN IF X>P(EMAX) THEN P<MkS, INTCALLU4#F0RTERRI ) ) * 



osiooBoo T 0000*0 

05100900 T 0000*0 
051 1000 T 0000* 



05101100 T 0000*0 
05101150 T 0004*0 
05101250 T 0009*0 



34 
35 
36 

37 " 
38 



P(XL*X#LG2L>LG2,PLD,.X,STD,0UP,X,XCH,X,Q,AT13,DLA#0,AT13,DLS, 

. JUKK*STN>D15».X*5TD# .XL»5TD) ; 
T » l; IF HUGE THEN WHILE ( N » N + I) < JUNK DO P( TL* PUP* T/XCH* T> QLA* 



05101300 
05101400 
05101500 



0009*0 

0013*1 
00155Q 



ELSE 
P(MLjM»XL>X*PLM)* 



,T*STD*»TL,STD) 
WHILE (N *■ N ♦ 1) s JUNK DO T * P( T»DUP* ADO) * 



l*m*xl>x*plm)j , 

p(ll»l*times#ml»k»times»jl#j#times#il» i*times#hl#h*times,gl*g* times* 

FL*F#TIMES#EL*E'TIMES#OL/D#TIMtS»CL*C#TIMES#BL#B# TIMES* Al#A# TIMES* 

clgl*lg2*times*om*dla*tl*t*dlm>,junk*std?; 



05101501 
05101502 
51 Q 16QQ 



0020*1 
0021*1 
002 6 U 



♦0 



43 



5 i 



IF SIG THEN PC0#XCH,1#XCH#JUNK*0LD».JUNK/STD); 

pcrtn); 

ati3 *** eoisioooooooooooo; 



05101700 T 
05101800 T 
05101900 T 



05102000 T 
05102100 T 
Q510220 Q T 



0027*2 
0040*0 
Q052 { 



0056*0 
0058*3 
0Q5Q»n 



46 
»7 
48 



HAF Ml P1154000000000000; 

EMAX 55 1 PH22360000000000; CLGL 

LG2 H* P1155427102775750; LG2L 



*** P0007173632567030; 
55 5 90007173632571165' 



05102300 T 
05102400 T 
51Q2 5Q.P T 



0060*0 
0061*0 
0(36 3* 



49 

50 
51 



52 
53 
54 

55 
56 
57 



M 

L 

K 



»»* P133330233035177 3 ; ML >** 

II* 91325447251&03330* LL *«* 

»** gl30l6iB6*73077l4J KL t J I 



J 

I 



l»» P1273641733265077; jL *** 
!** P 1267446477210572* iL III 
15* _!_44l5Jia2___0_J HI J_LL 



1*0005405676153645* 
eoOQ3745t76o6<U2«4' 
PQ0Q2676&2570O645* 



P0006664462^03121* 

P000345A16611''342^ 
9Q0072636P6741044; 



05102600 
05102700 
051 2 800 



0065*0 
0067*0 
00 69* 



G III *12326i300 10731741 GL 

F I * * # It 2 37 7 7 1 3 7 70 4 4 % * F L 

_E Ml Pl ?1 5Q3 Q?2U37Q S 2t E L 



lit »000206l6l033465l* 

III #00004074152126^21 

,4 * 1 r nQ057 5 74QO?7 2 l76i 



05102900 
05103000 
05103100 



007i*0 
0073 { 
075 *0 



05103200 
O5IO33OO 

0510 3400 



0077*0 
0079*0 
00fll*0 



• • 



2 
3 
4 
5 
6 
7 



D 
C 

_a_ 



i: > 
JJLL 



P120535^1'^7/I705i; 
Pll74/3l25333735i; 
01163. 4n?ftQtt32701; 



-L. 



OL U» 00002237577766326; 

CU Hi P0001657523134265' 

-Ei ill 00002027630376772* 



05103500 T 
05103600 T 
05103700 T 



0083*0 
0085*0 
00,871,0 



A III en5j?27757377602; 

ENO oexp; 



AL 



Ml 00006130725275347; 



05103800 T 
05103900 T 



008910 
009J 10 



SI Z E" 009a WOR D S 



PROCEDURE.. CEXP i 



* 100 



CDMMFNT COMPLEX EXPONENTIAL INTRINSIC; 2 EE JUNE 67 



START OF REL. 



05200000 T 

segment; disk ado 
05200100 T 



oooo.;o 

RESS * 00495 
000010 



BEGIN REAL X * -1* 
Y * »2» 

JUNK a 17 j 



05200200 T 
05800300 T 



0000*0 
0000*0 
05200*100 T — 000010 



10 

11 

12 
13 
14 
15 

le 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

M 

31 " 

32 

33 

34 

35 

36 

37 " 



LABEL EM.AX*!QPIjP.I2.«TPI2J . . 
IF ABSCX>>PC£MAX) THEN PCMK3* IN TO ALU 15*F0RTERRI ) ) ; 
P<MKSilNTeALUXfEXPl^ ,X'STN*MK5*UMK5*Y*TQPl*MQP*DuP*SSPz 



P(MK5 > lNTCALl,(,Xf EXPl*f,XifSTN»MKS*UMKSyY»TOPlfH 
CALLINGS INn,DUP*X*MUL*.jUNK*ST0,0UP,MUL*SU8 
IF Y > P(PIfl) THEN IF Y < P(TPI2> THEN P(CHS); 

PtJUM<*XCM*..JUNK*STO*RTM)J 

Fiui a v fit siMounnnniinnnnn! 



Y'S TD* 



,callint<s«rti);mu l > * 



05200800 T 
05200900 t 
05201000 T 



0000*0 
0000 10 
000 3 *2 



05201 lOO T 
05201200 T 
052013Q0 T 



0008*2 
001411 
001710 



EMAX III 1122360000000000; 

Topi * * * 1 1 4 6. 2 2 07 7 3. 2 50 42 1 ; 

_P_L2 I** 01141444176652104* 



05201 400 T 
05201500 T 
05201600 T 



0018*1 
0020*0 

QQ2i;o 



TPI2 ill $1144554574376314; 
END CEXPJ 



Q52017O0 T 
05201800 t 

S. 



0022*0 

002310 

iZEf 0024 WORDS 



PROCEDURE OLOG 



% 101 



C OMMEN T DH UB L E PSE Cl ^QN NATURAL LUfi INTRIN S IC* 



±L jUnE 



05300000 T 0000*0 

start of REl segment; Disk address * 

_6_Z OsaOOtOO T 0000*0 



004V6 



BEGIN REAL 



X * -1* 
XL * "2* 

JUNK m 17* 



05300200 T 
O5IOO3OO T 
05100400 T 



0000*0 
0000*0 
OOOOtfl 



t*tl; 
integer n; 
boolean lessij 



05300500 T. 
05300600 T 
053 Q0700 T 



0000*0 
0000*0 
OQO Q* 



LABEL HaF > L62,LG2l*SQ2*SQ2L*A,AL*B,Bl*C,CL*D,DL*E,EL*F*FL»G,Gl, 

h*hlm*il*j*jl; 
define times ■ npp*ola*xl*x,nqp*dlm»; 



05300800 T 
05300900 T 
09301000 T 



0000*0 
0000*0 

0000*0 



IF X LEO THEN P (MKb, jNTCALL ( 16+CXX 
IF LESS1 <■ X < 1 THEN P<0* I* Xl* X' OLD 

P( 1*.N* STN*.JUNK*STD)/ 



0)#FORTERRl>> ; 

* f x»STo» ♦xl'Std); 



O53OHOO T 
05301200 T 

05301300 T 



0000*0 
0005*1 
0009*1 



WHILE (JUNK ♦ P(JUNK'DUP'AOD)} S X 
IF PCxL»X*0*JuNK*DLO*,JuNK*STD*tT*ST 
Thfm 



N * N ♦ i; 
N»JuNK,SQ2L#S02#0LS»XCH,0EL) < 



05301400 T 
05 3 0i500 T 
05301550 T 



0010*2 
001412 
0018*1 



40 
41 
42 
43 
44 
45 



begin n * . n * m 

p(haf».tl*std); 

END ELSE TL + ii 



P(T*JUNK»O'TL*0L5*T*JUNK*q*tL*DLA*dL 

junk*olm*.x*std*,xL*stn*x*jl*j>dlm 

H PC i L *I*TTHESf H L *H> T lH ES^Lffi>T i M £ 



05301600 T 
05301700 T 
O530J9 00 T 



0018*3 
0020*2 

0021*1 



0*. JUNK* STO»,T#STN#DUP' JUNK #Xch» 

>; 

s*fl*f*times*el*e*ttmes* 



05301900 T 
05301950 T 
Os3QgQOO T 



0022*2 
0027*0 
00 29 *2 



46 
47 
t8 
49 
50 



IF 



DL*D#TIMES*CL'C'TIMES»BL>B*TIME 
0*2'DLA,T#JUNK*ULM,0»N#LG2L»LG2* 
LESS1 THEN PC JUNK* CHS* .JUNK* ST D ) ; 



S* AL'A*TIMES* 

dlm*dla*,junk*std); 



05302100 T 
05302200 T 
05302300 T 



0040*0 
0048*0 
0051'g 



P(R 
HAF 
LG2 



tnj; 

If 
tl 



* *11540OOOOOOOOOOO* 

* gll55427iQ2775750; 



LG2L m P000717363257U65J 



05302400 T 
05102500 T 
05302600 T 



0053*1 
0053*2 
0055*0 



62 
53 



SQ2 II* PH55520236314774; SU2L 

J »*' 01167100510467432; JL 
I III P 1166521204435224; jL 



III 00007363110213136; 
HI 00002164460474016; 
ill 00007651024467003; 



05302700 T 
05302800 T 
0530 2900 T 



05303000 t 
05303100 T 



005710 
0059*0 
006 1*0 



55 

56 ■ 



-£. 



H . M.i;t: 




HL Ml 00002135500773125; 
Gt *U 00000102676565944^ 
1± ill 00001161621531011; 



0063*0 
00*5*0 



rr 

2 
3 
4 
5 
6 
7 

a 

9 

10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
28 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 " 
38 
39 
40 
41 
42 
43 



E III P115135056427171QJ 

D »»t 01l5l6l6l6l6l6l62; 

_C H* P1152?27?2?2?22?2J 



£L III P0007071635510300; 

QL «»: e0006643l723U05i; 

XL HI 6»nOQ?l7ft6l3Q??Q2hf 



05303300 
05303400 

OS 30 3500 



0069»0 
007}«0 
0073 .10 



B lit eil33U63H63t<*63; BL HI 

A ill §1155252525252525; AL III 

end ntnsi : 



P000i«»63t76726243J 
»0002525252507053^ 



05303600 
05303700 
05303800 



T 0075*0 
T 007710 
4 007QIQ 



PROCEDURE CLOG ; 



* 102 



Q54000QQ 
START OF REL SEGMENT? niSK 



>I2E» 0080 
T. 0000*0 
ADDRESS a 



WORDS 
Q0<t<?9 



COMMENT COMPLEX LOG INTRINSIC* 
BEGIN REAL X * *1# 
Y a »2» 



* PF JUNE 67 



05«00i00 
05400200 

Q540Q3OO 



T 0000*0 

f. 000010 
j: Qoonto 



9 
10 

12 

13 

,4 I 

15 

16 

-7( 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 | 

27 

28 

29 ( 

30 

31 

32 I 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 < 

42 

43 

444 

45 

46 

47 i 

48 

49 

50 i 

51 

52 

53 ' 

54 

55 

56 4 

57, 



JUNK s 17 ; 
IF Y=C THEN 
IF XsO THEN P(MKS,INTCALL(18,FQRTERai)) 



05.40040.0. 

05400900 

05400950 



T .00.00*0 
T QQQO*0 
J O QOQ' 3 



ELSE IF X>0 THEN P (MKS# INTCALL (X*LNI )# ,JUNK,STD#0*RTN) 
JUNK»P<MKS»INTCALLCP(MK5*XMNTCALL(Y#CABSI))#LNI)) ; 
PtMKS,Y>INTCALL(X,ATAN2I),RTN) J , 



0§«00975 
05401000 

05401100 



T 0004*2 
T 0009*1 
J. 0013*3 



END clog; 

PR QCED UR F ALQfilO> 



* 103 



05401200 



05500Q00 



T 00161 1 

ilZE» 0017 
-J 0000*0 



WORDS 



COMMENT LOG BASE 10 INTRINSIC; 
BEGIN REAL X»«l '* 



■I PF JUNE 67 



START OF REL 



segment; disk 
05500100 

05500200 T 



ADDRESS « 

T 0000*0 

0000*0 



00500 



LABEL LGi; 
IF X LEtl . THEN PC M*S , i NTCALLC 19 + C X>0 } ,F QRTERRI ) ) 
P (MKS » IN TC ALL (X > LNI?»L 6 I »MU L fRTN> > 



05500400 
05500500 

05500600 



0000 JO 

0000 » 

000 4* 1 



LGI H* PH53362675425116; 
END ALOGlo; 



05500700 
05500800 



-S4 



T 0007*0 

T 0008*0 
Z£f QflQO 



WORDS. 



PROCEDURE DLOGlO' V 104 

C OMM E NT D OUBLE P8 E C UIQN CQKMQN LOG INTRINSIC; 



A EL JUNE 



START OF REL 

Ml 



05600000 

segment; disk 

Q560Q10U 



.7. 0000*0 
ADDRESS « 
T QQOfun 



00501 



BEGIN REAL X * m \» 
XL » *2> 

JUNK m 17 ; 



05600200 
05600300 
O56OO4OQ 



0000*0 
0000*0 

0000*0 



LABEL LGI#LGIL; 
IF X LEQ THEN P (MKS, INTCALL ( 21* ( XXQ) #FQRTERRI ) ) ; 
P(MKS»XL»INTCALLCX>DLOGI)» JUNK'LGIL'LGI'OLM' ,JUNK»STD*RTN) 



; 



05600600 
05600700 

05600800 



T 0000*0 
T 0000*0 
T 0004*1 



LGI H* P1153368675425115; 
END DLOGIO; 



LGIL III P0006241614523261; 



05600900 
05601000 



T 0008*1 
T OOiltO 
LI2E* 00 12 



WORDS 



PROCEDURE DSIN ; % 105 

C O MMENT DOUBLE PRE C ISI ON S I NF INTR INS IC; X PF JuNe 67 



START OF REL 



05700000 

segment; disk 

Q5 7 Q100 



T 0000*0 
ADDRESS ' 
X QQ00*n 



00502 



45 

46 



BEGIN REAL 



X « *1* 

XL *:-■■• 2 #■ 

JUN K S 17f 



05700200 T 0000*0 
05700300 T 0000*0 
05700400 T — 0000*0 



47 
18 
49 
50 
51 
52 
53 
54 



t; 

BOOLEAN 
LABEL 



10 



sig; 

PWTQPll.fPI>PU.»Pl£fPl2L»TPI2fTPI2l.i 



05700600 
0570070Q 
X 



T 0000*0 

T 0000*0 

800 T 00* 



A»|L*B*8L#C»CL»D'0L*E,EL#F*FL#G#GL#H#HL#I#IL'J»JL; 
DEFINE AODER « NOP#OLAf T# JUNK,NOP#DLM#» 



SUBER 



05100900 
05701000 
057 01 050 T — 4MMWAG 



T 0000*0 
T OQOQIO 

14 



IF SIG *■ X. 11*13 THEN X ♦ P(X*.SSP).J 

IF P(MKS*XL»X#TOPlL# INTC A LL(T0P1»D M 0DIJ'JUNK, t X*STD> .XL»STN#X*Pi2L»Pl2' 
_ pi.S,xCH*nEL)>Q 



O570U00 
05701200 
0570 1 250 T — 000 8 *0 



T 0000*0 
T 0003*1 



55 

56 



THEN IF P(XL»X*flL^I#DLS#xCH#DEL; 
P<PIL#§I#XL*X»QLS> 

BE G I N S I G t N OT Sl ft i 



S 



05701300 
05701400 
05101500 



T 0008*3 
t 00lj*2 
Jt 0013*3 



• • 



h 



IF P<XL*X,TPI2L, TPI2*DLS*XCH>DED 

THEN PCXL*X,PlL*Pl*DLS) 

ELSE PCTUPlLtTOPiiKLtXiiDLS)! 



S 



05701600 T 0015 
05701700 T 0017 
057Q180Q J 0Q19 



ENO 
ELSE P<XL*X>; 
Pf ,X»STDt ,XUSTNinuF>XtXCH»Xi[H.Mt , JUNK . $Tf)« » T* SfN* JUNK» Jl,,, UrDjM ) t 



05701900 T 0021 
05702000 T 0021 
057021 T 0422- 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



* I PCIL* I* SUBER*HL*h* ADDER* GL*G*SUBER*FL'F* ADDER* EL* E*SUBER*Dl*0*aOOER* 

CL*C,SUBER*BL*B*ADDER/AL*A,SuBER*Q*1*DLA*XL*X*0LM*.JUNK»STD); 
IF SIG T HEN PCJUNK*CHS,.JUNK*STrm 



05702200 T 0026 
057C2300 T 0039 
05702000 T — 0047 



P(RTN); 

P|2 • »»' Pll4l44«l76652l04; PI2L Ml 
_P_1 II' eu^ 3U Q 3755? 4 2lQ; Eli LLL 



P0001321410646U3* 
900036430? 1 5l4?30; 



05/02500 T 0048 
05702600 T 0049 
Q 5 7Q27QQ T OXLSx 



TPI2 J" 
Tqpi ill 

4 I" 



91144554574376314* 
PI 14622077 3250420; 
91 421,31 7 506616043* 



ill ei37u3*26l&lQi2i; 
III *l32327l77l732327i 

Ml El27l30222l4ii627j 



TP12L mi 
TDPIL u» 

JL III 



P0004l64432362343^ 
?0005506043230a6t; 
9QQQ 4 l Q 634i5 56 <l 7' 



III *000i56l406721354i 
III #0OOH2236i44O352^ 
t»l P0002101305056316; 



05702800 T 0053 
05702900 T 0055 
Q57G30QQ T 0057 



I 
G 

F 



IL 
GU 

_£L. 



05703100 T 0059 
05703200 T 006i 
05703300 T 0063 



E III ei253271442547752J EL III 
D II* ei2356l674jbi2533; QL "* 
C ill (»1216<»00640064006; CU :tl 



90002347333135765* 
90000704703144000; 
g000q00635a43667i; 



05703400 T 0065 
05703500 T 0067 
05703600 T 0069 



is 

20 
21 



B Ml ?ll742i042l042l04j BL Ml 

A l«» tll5l252525252525j AL Ml 

Jti Ml Pl35625130l236324;j fctfc LLL 



90002104210366543; 
90002525252&25234; 
9 Q 07344376 112 45 7; 



05703700 T 007i 
05703800 T 0073 
0S703900 T 00_7_5. 



22 
23 
24 
25 
26 
27 
28 
29 
30 



end dsin; 
pr oced ur e csi n l 



% ICfc 



05704000 T 0077 

SIZE* 00 

05B0QQQO T 0000 





8 *0RDS 



COMMENT COMPLEX SINE 
BEGIN R EAL X m - U 



intrinsic; 



X PF JUNE 67 



.start of rel segment; DISK ADDRESS 

05800100 T 0000 
05800200 T 0000 



* 00505 


43 



Y = -2* 
JUNK s 17* 

-U 



05800300 T 0000 
Q580040G T 0000 

05800600 T Q-D-QJ1 



31 
32 
33 



LABEL EMAX*HAF*T0PI#PI2#TP12; 
IF ABS(Y)>P(EMAX) THEN P(MKS* lNTCALL(23*F0RTERR I ) > ; 
P(MKS.INTCALL(Y,£xPn,OUP»DUP,l,XCH,/,.Y,STN,SUB,HAF,MUL,, 



ABS(Y)>P(EMAX) THEN P(MKS* lNTCALLC23*F0RTE«R I > > ; 

KS.INTCALL(Y,£xPn,DUP,DUP,l,XCH,/,.Y,STN,SUB,HAF,MUL,.T,STO, 

#ADD*HAF#MUL»MKi>*X,TOPl*MOD*DUP#SSP» , X* STD# CALLlNT C 5 IN I ) p f Y* STN'MUL* 

ks#i*y»dup*mul*sub#callintcsqrti)*t*mul) ; 

X > PJJ E J L &i THEN UL X < P_LT_PJ_2J THEN PCCHS ?; 



05800900 T 0000 
05801000 T 0000 
05801100 T 0003 



34 
35 
36 

37 ~ 
38 



MKS#1*Y»DUP*MUL*SUB#CAL 
IF X > P(PIP) THEN IF X < 
PtXCH,.JUNK*STD*«TN); 



05801200 f 0008 
05801300 T 0014 

Q5nnuo.n t oma 



PtXCH,.JUNK*STD*8TN); 

EMAX II I #1 122360000000000; 

HAF Ml 91154000000000000; 



05801500 T 0020 
05801600 T 0021 
05801700 T 0023 



40 
41 
42 



TQPI :M PU46220773250421; 
Pl2 M* 91141444176652104; 
TPI2 M» PH44554574376314; 



05801800 T 0024 
05801900 T 0025 
05802000 T 0026 



43 
44 
46 



end csine; 

PRQCEnURE DCOS l_ 



* 107 



05802100 T 0027 : 

SIZE* 0028 WOROS 

0*900000 T QO_QOJ 



46 
47 
18 
49 

so 



COMMENT DOUBLE 
B E G I N R E A L X i 



P.BECISIQN 

' " if 



cosine intrinsic; 



X PF JUNE 67 



START QF REL 



segment; oiSk 

05900100 
05900200 



ADDRESS 
T 0000 
J 0000 



00506 



XL « • 
LOW 8 
LABEL 



2* 

•4 ; 

PI2 »PI 2LJ 



05900300 T 0000 
05900400 T 0000 
Q 59 G06Q Q T D-Qflil 



52 
S3 
54 



P(MKS*XL*X*PI2L*PI2*DLA*CALLINT(DSINI)*RTN) ; 

PI2 Ml 91141444176652104; PI2L "* 9000 132 14 10646 1 1 3; 

END DC OS ; . . 



05900700 T 0000 
05900800 J 0003 
Q590P9Q0 T 0006 



55 

56 



PROCEDURE CC03 ; 



X 110 



SIZE* 0007 WORDS 
06000000 T 000010 
START QF REL SEGMENT; DISK ADDRESS g Q050? 



55 

561 
57 



w 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 



24 
25 



26 
27 



28 
29 



30 
31 " 
32 
33 



34 

35 



36 
37 " 
38 

39 
40 
41 
42 
43* 



45 
46 
47 
48 



49 
SO 



52 
53 



54 

55 

56 
67 



COMMENT COMPLEX COSINE 
BEGIN REAL X = -1* 

y * 'it 



intrinsic; 



* PF JUN 67 



17* 



JUNK 

t; 

label emax,haf»tqpi>tpi2,pi2,mhafj 



06000100 
06000200 
06000300 



IF ABS(Y)>P(EHAx) ThEN PC MKS* IMC ALLC 24»F0RTERRI } ) J 

P(MKS,INTCALL( y 'E ) <>IJ*OLP*PIjP'1'XCH,/# i Y#STN'SUB'MHaF*MUL'MkS*X»ToPI' 
MQ D.DUPtSSPf tX>STU>CALLINT(SlM)>.T*STN«MUL* t JUNK.STD.Y.ADO.HAF J .»H )t n . 



06000*00 
06000800 
OftOOOOOO 



0000*0 
0000*0 
QOflfliQ 



0000*0 

OOOOIO 

ooooin 



MKS»l#T#DUP#MuL#8U8* CALL INT C SORT 1)»MUL) t 
IF X >>(PI2> THEN IF X < PCTPI2) THEN P(CHS)i 
P(JUK«,xrn» t JuNtt*STn*RTNH 



06001000 
06001100 

06001200 



EMAX III .tH22360.O00POO0.0Qi 
HAF U» tll54000000000000; 
TnPI |H P,1H622Q77325Q421? 



06001300 
06001400 
06001500 



00.00 P.O. 
0003*3 
0009 » 



TPI2 III #H4«155«5743763U* 
PI2 »** #il4144«#l76652l0A/ 
MHAS til >3l5HOQOO000OO0OQj 



06001600 
06001700 
06001800 



00 14 I 1 
0017»3 

0020*2 



END CCQS; 

proceourf TANF 



0600 1900 
06002000 



0021! 3 
002 310 
0024*0 



0025*0 
002**0 
002710 



% i n 



06002200 T 0028*0 

SIZE» 0029 WORDS 
61 00000 T OQOQtQ 



COMMENT TANGENT 
BFfilM RLA> RSq; 



INTRINSIC) 



REAL X = -1* 

INTEGER Q; BOOLEAN S; 

LABFL L1»L2»PHAxjHMAX»PI»P1?jPI4J 



START OF REl SEGMENT* OISK ADDRESS » 00508 
* PF MaY 67 06100100 T 0000»0 

_^_ 0610Q2Q0 T OOOOIO . 



If S ♦ X.tlli] THEN X ♦ P(X#SSPJi 

IF CO ♦ PCX»PI#M0D#.X#STN»PI4*DIV)) t THEN X «• 

IF Q»l THEN PCPI2*X*SUB) ELSE IF Q»2 THEN PCX*PI2*SUB) ELSE FCPI^X'SUtni 



0610030C 
06100400 
06100500 



000.010 
OOOOiO 
0000*0 



IF X * THEN BEGIN 



end; 



IF Q * 1 THEN PCPMAX) ELSE 

else pcod; GO TO LU 



IF Q a 2 THEN PCMMAX) 



06100600 
06100700 
06100800 



OOOOIO 
0003*2 
00 6*3 



P(1#X*0UP#MUL*.RS0*STN»DUP#.0097433825958>MUL»CHSM»A0D*MUL^ 

16. 248537744, SUB/ 
4a.7456Hg3.9*RSQW»A t 3fl9707Siift8.StJB«RSQ < DnP. 



06100900 
06101000 
06101,100 



, 000 36 100 3565256, MUL> CHS,, 136 38 1360679, ADD, MUL# ADD, 
/#ADD)/ 
IF Q s THFN P(X,XCH,/) 



06101200 
06101300 
06101400 



Q0l2 12. 

0017 J 3 
001910 



ELSE IF Q • 1 



THEN 
ELSE 



PCX*/) 

IF Q » 



06101500 
06101600 

061 Q 1700 



001910 
0022*1 
0022*3 



0Q24*2 
0026 '1 
QQP6I 3 



Lit 

IF S THEN 

pcrtn?; 



THEN P(X»/*CHS) 
ELSE PCXtXCHt/tCHSW 



06101800 
06101900 
061Q2Q00 



0028*3 
0037*3 
OOflQU 



pcchsj; 



PMAX I** *0777777777777777j 

MMAX 1*1 P2777777777777777I 

-PJ II* tll43tlQ37S5PA31Q> 



06102100 
06102200 
0610?3QU 



0041*3 
004113 
00 4 2» 3 



PI2 1*1 ril41444l76652l04; 
PI4 «l* tll5622077325042i; 

en d tan;, ,., 



06102400 
06102500 
06102600 



T 
T 



004310 
004410 
ooaqtn 



06102700 
06102800 

06102900, 



0046*0 
0047*0 
Q4fl *Q 



PROCEDURE C8TAN i 



% 112 



COMMENT COTANGENT INTRINSIC/ 
BEGIN REAL T ; 
R£AL X » -i; 



X PF MAY 67 



. SIZE* 0049 WURDS 
06200000 T OOOOIO 
ST ART OF HEL 8EQMENTI DISK AOnRESS ,,m 00510 



LABEL PMAX/ 

If M>P(*JKt»lNf«AtL<X*f*Nl> ) J)«0 THEN P(PMAX) 



06200100 
06200200 
06200300 



0*200400 
06200500 
06900600 



OOOOIO 
0000*0 
00 ,0*0 



0004) f 

ooaoto 

0004t0 



45 

46 

47 < 

48 

49 

50 i 

51 

52 

53 < 

54 

55 

564 

5? 



2 
3 
4 
5 
6 
7 
8 
9 



P(RTN)* 

PMAX Ml 90777777777/77777} 

END COTAN; 



06200700 
06300800 
06200900 



0005*1 
0005'? 
00Q7»0 



PROCEDURE DATAN * 



% 113 



START OF REL 



size* ooos words 

06300000 T 0000*0 

seg me nt ; disk address » nosn. 



COMMENT DOURIE PRECISION 
BEGIN REAL X * "1* 
XL tt m 2» 



ARC TALENT INTRINSIC; * PF JUNE 67 



06300100 T 
06300200 T 
06 3 00 3 0Q T 



0000 '0 
0000 « 
00 00* 



17* 



JUNK 
T* 
BOOLEAN S,U*Yi 



06300400 T 000010 
06J00500 T 0000*0 
06300600 T 0000*0 



10 

11 



12 



LABEL 
DEFINE AM - 



SR3,SR3L>PI6'PI6L>PU»PI2L#A>AL>B>BL*C»CL#0»DL»E>EL>F,FL' 
G»GL>H>hL,I,lL*J>JL#K>KL,L>LL>M,ML; 
NOP*DLA,T,JUNKjNOP»DLMg, SM s NQP#DLS, T» JuNKjNQP* DLM»* 



06100700 T 0000*0 
06 300800 T 0000 'P 
063Q09Q0 T 0000*0 



13 

14 
IB 



IF S ♦ X.tlllJ THEN X * P<X,SSP)* 

IF Y * X > 1 THEN B(OM»XL»X'DlO'tX»STD»«Xl»STD)J 

If M 4, X > ,3679401924^1 T H rw P t SR^ t , SP3>f), A» SB"*! > SB3> X\ » X , n L I. 



06301000 T 
06301100 T 
06301200 T 



0000*0 
0003*3 
0007*3 



16 
17 
18 



QL0#DLS»fX*STD*.XL»5TD)* 
PCXL> OUP#X' XCH.*-X*Dl.M'..,g..UN.K.#. STO* #T> STN# JUNK*ML,M, DL M )* 
\ l PC LLjL „»AM>KL>KtSM< Jl,„ . J t AM > T l„ » I » SM >HI, »HtAM»GI »fi> SM >FL »F# AM*EL «E # SM i 



06301300 T 0011*3 
0630U0O T. 0013*1 
0ft3gl5Q0 T 0Ql6f3- 



19 
20 
21 



0L*0*AM#Cl»r»C*SMf 8L*B#AM#AL»A#SM#0#1*DLA#XL#X#DLM#,JUNK # STD); 
IF U THEN P(JUNK#Pl6t#Pl6#0LA#.«JUNK,STD)* 
IF Y THFN PfJuNK*PiaL»Pl2*nLS#fHS*.JUNK»STn)i . 



06301600 T 0033*0 
06301700 t 0043*0 
06301800 T 0045*1 



22 
23 
24 



IF S THEN PCJUNK.*CH5*.JUNK»ST0)1. 

P(RTN)* 

S R3 *'* <T U4i a666 36!3 6^ i3Q; S r j L ttt 9QQQ2312516354455 j 



06301900 T 0047 
06302000 T 0049 
06302100 T 0009 



25 
26 
27 
28 

29 

» 

31 " 

32 

13 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



PI6 M* *115414G52216G265J PI6L 

PI2 *** «>H4l444l76652i04; PI2L 

JM I** P3 l6l40U24Qa<SaUJ &L 



t t I 
t I X 

*** 



^0006331302145366* 
#0QGi32t4l0646n3J 
90Q040727ft/tafiQ3 4/|* 



06302200 T 0052 
06302300 T 0054 
06302^00 T 0056 



L l«* Pn623032''332356i(; LL J t $ 9000 

K ttt eit62605ll3O35023; KL ttt PqOQ 

J tt» Pn630?732l345406; Ui «** POOP 



l6.3Q262l0337.2i 
4301553367304; 
3326323 3 62 544; 



06 302500 
06302600 
6 302700 



0058 

OO60 
006? 



28 

29 * 

30 

31 

32 I 

33 

34 

35 I 

36 

37 

38 I 

39 

40 

4,1 

42 

43 



I It* 91163274446267506; IL 1 1 1 ' f 000 

H l*« 01163607415673413; M- *** 9000 

Ji *»* »ll642l042l020314i SJ. *** 9Q 00 



146441J354576; 
1424256207512* 
1737716236562J 



06302800 
06302900 

O 6303 QOO 



T OO64 
T 0066 
T 0068 



F Jtt PH64730473047014; FL ttt eooo 
E *** Pll656^272l35056i; EL *** ?000 
D :*t ^1167070707070707; PL ttt 9000 



6266260505571; 
6467443753240; 
5 5216560 3 )75* 



06303100 
06303200 

063Q31QO 



0070 

00^2 
0Q7Q 



C *»* 91151111111111111* CL »** 9000 

B It! frl 151463146314631* 8L ttt 9000 

_A II* »1l5?5?53525g535p; AL ttt 9000 



Hll05l2327l0; 
4631463070633* 
5252523252470; 



06303400 
06303500 
Q6 3Q36QQ 



T 0076 
T 0078 
T 0060 



END DATAN* 
PR OCEDURE ATAN2, * 



it 11 4 . 



06303700 T 0082*0 

SIZE 8 0084 

6400QQQ T 00 00*0 



WORDS 



45 

46 
47 
18 



COMMENT ARC TANGENT OF A/B INTRINSIC* 
BEGIN ; ; 



START Of REL 



% PF MAY 67 



SEGMENT* DISK 

06400100 

06400900 



ADD R ESS ■ 

T 0000*0 

J 00 00 *0 



00514 



46 
46 
47 < 

46 
49 
SO I 

51 
52 
53 I 
54 
55 
56 * 
: 57 



REAL A * -2# ti * -1* 

LABEL PI#PI2#MPI2; 
I F B > TH EN 



06400300 
06400400 
Q 640 05QQ 



T 0000*0 
T 0000*0 

s 0000*0 



49 
50 
51 
52 
S3 
54 
55 
56 

i 



EISE 



IF A*0 THEN P(MKS,INTCALL<A/B#ARCTANI)) 
ELSE P<0) 



06400550 
06400600 
06400650 



T 0000*3 
T 0005*0 
T 0005*3 



IF B < THEN 

IF A>0 THEN PCMKS,INTCAILCA/B*ARCTANI),PI,ADD) 
ELSE 



06*00700 
06400750 
06400800 



T 0005*3 
T 0007*0 
T 0011*3 



JF A<0 THEN PCMKS#INTCALL(A/8,ARCTANI),PI#SUB> 

ELSE P<f | ) ■■ : ; 



06400850 
06400900 
06400950 



T 0011*3 
T 0016*2 
T 0017*1 



# • 



9 
10 
11 
12 
13 
14 
15 



16 



19 
20 



21 
22 



23 
24 
25 
26 



27 
28 
29 
30 



31 
32 

33 
34 

35 

36 

37 " 

38 

39 

40 

41 

42 



•5 

«6 
47 
(8 



49 
SO 
51 
52 
53 
54 



55 

56 
57 



IF A < THEN P CMP 12 ) 
ELSE PCPI2); 



PCRTN)/ 



06401000 
06401050 
06401100 



001751 



0019 
0020 



PI »»* eil43H0375b2<»210; 
PI2 Ml P1141444176652104; 
MPT9 lit g3l4l4flftl76653l041 



06401200 
06401300 
Q64014QQ 



0020 
0022 

0023 



END ATA.N2I 
PROCEDURE DATAN?i 



% 1 15 



06401500 T 0024 
SiZ£» 002 

06500000 T 04X10- 



COMMENT DOUBLE PIEC1SI0N 
BEGIN RFAL S * "1/ 



ARC TANGENT OF A/B INTRINSIC; % PF 



START OF REL SEGMENT; DJ5K ADDRESS 

JUNE 67 06500100 t °000 

_ 06500200 T OOXUJ 



BL 
A 



m 2f 

"3* 
"4* 



06500300 
06500400 
06^00500 



T 
T 
X_ 



0000 
0000 

Qcon 



IF A 



JUNK m 17 i 
LABEL PI*PIL*PI2*MPI2,PI2L; 
* AN" B « THFM 



06500600 
06500000 

06500900 



BEGIN P(MKS,AL>M6L>B#PLP,CALLInUDATANI)) t 

IF B. 1.1 « 1.1. THEN IF A > THEN PC JUN*' PIL* PI* DLa> . JUNK' STq' RTn) 
, . EL S E Pf JUNRfPILtPIfOLSt .JUNKtSTITfRTN)! 



06501000 
06501100 
06 5 013 00 



0000 

oooo 

0000 



00 01 
0005 
09 



END EL$E 
IF B • THEN IF 



a, tun then pcmpi2,,junk#sto#pi2l*r^n) 

— ELSE P{ PI2».JUNK»STD*F12L»RTN) 



ELSE IF B.C1' 13 



ThLN PCPI' .JUnK,5T0#PIL'RTN) 
ELSE P(O'.JUNK'STN'RTN); 



06501500 
06501600 

06501700 



P(RTN); 



PI |H PH43110375524210) PIL 

Pl2 l»» Pll4l444i76652l04; PJ2L 

MPI2 UJ (»3l4l4d4l76652lQ4; , 



1 1 1 g000264302j5 142301 
1*1 90001321410646113* 



06501800 
06501900 
6 50 2 000 



0012 
0012 



0018 

0021 

-0&22- 



06502100 f 0022 
06502200 T 0025 
06503100 T — GC-2* 



END DATAN2' 
PRflCEnURE AKSIN J 



% 1 Id 



06502400 T 0028 

SiZE* 00 

6 600 T 0004 



COMMEKT ARC SINE INTRINSIC; 
REGIN REAL X m"\i 



START OF REL SEGMENT) OlSK ADDRESS 

PF MAY 67 06600100 T 0000 

__ — : — 06 6 2 T 0000 



XSQ/ 
BOOLEAN i,Ul 
LABFL Pr2.HAF,A,B,C,Q.E,F,G,H.I,J,K,L,M,N; 



06600300 
06600400 
06600500 



0000 
0000 
QQQQ 



DEFINE TIMES » ADD* XSQ#MUL*# 
IF S * X.CHU THEN X ♦ P(X#SSP)1 
IF X>1 THEN P(MK3>lNTCALL<26,F0RTERRI)) 



if u*x>P(haf.j then ,x*pcmks» i/x# sub» haf»mul» .xsq#stn*callinTcsqrtd; 
else xsq <• x*x; 

ti P (NOP* A»XSQ»MUL»B'TlMESjC»TlMES»n*TlMES*E»TlMES»r»TlHES»G» TIMES' 



06600600 
06600700 

QftflOQflQQ 



M* TIMES* 1* TIMES' J* TIMES'K#TIMES#L# TIME S'M# TIME S'N# TIME S* 
IjADO'X'MUL);* 
IF U THEN P(DUP>ADD,CHS,FI2,ADD); 



06600900 
06601000 
066 011 00 



0000 
0000 
Q00 3 



0006 
0012 
0014 



06601200 
06601300 

06601400 



0022 
0029 
0030 



IF S THEN P(CHS); 

P(RTN); 

PI2 »»» Pi 141444176652104; 



HAF til 91154000000000000' 



06601500 
06601600 
06601700 



0032 
0033 
PQ.3.3 



A Hi ?H?2506721410650; 
C III *117323206l727030; 
F III »ll7422716363637li 



B **« ^1172740556641135; 
D ttt P11735747364675l0; 
F 1H »1l74776745032742i 



06601800 
06601900 
Q66Q2QQQ 



0036 
0038 
0000 



G III ?1175724170360740; H 

I ««» PH<|1070473047305; J 
K III ?116j743434343434y L- 



M til f 11646314631463151 

ENO ARSINJ ' 



::« * 1 1 7 7 1 1 4.6 3 146 3 1.46 1 
:,J 01161335056427214; 
m 9) 1626666 66 66 6 6 67 ; 



N III 01151252525252526; 



06602100 
06602200 
06602300 



06602400 
06602500 



0042 
0044 
0046 



0050 



WORDS 



00515 



WORDS 



00516 



Sr7E« 0051 wQflns 



9 
10 

»< 
12 

13 

14 ( 

15 

16 

17 ( 

18 

19 

20 ( 

21 

22 

23 { 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 I 



• • 



PROCEDURE ARCOS > 



X 117 



CHMMFNT ARC CCISINF iNTRTNSTCI 



START QF REL 



±E MAY 67 



BEGIN REAL X « -1 ; ' 

LABEL P12) 
IF ABSfXIM THEM P £ MKS . TNTC Al I ( ?S. FnflTFRR T 11 



06700000 

segment; disk 

06700^00 



T OOOOJO 
ADDRESS a 00518 

jj- oxuacuLo 



06700200 T 0000*0 
06700400 T 0000»0 
06700500 T 0000*0 



10 

11 

12 



Pi? 



PCPI2>MKS# INTCALLCX/AR3INI )»SU.B) 

pcrtn;; 
111 £4 Ht4ft4l766'S?lQ41 



end arcqs; 

PRnCFOURF STNH L 



06700600 
06700700 
0670QB00 



00 OH 2 
000610 
0006*1 



% 120 



COMMENT HYPERBOLIC SINE 
BFfilN REAt X = -1 / 



intrinsic; 



START Of rel 



06700900 T 000810 

Sl2£« 0009 WORDS 

06Rnoonn t fl&aaLo 



PF MAY 67 



SEGMENT* DISK 
06800100 
06800200 T OOOOIQ 



ADDRESS «. 0.05 19 
T 0000 *0 



IS 
16 
17 
IB 



19 
20 



21 

22 



23 
24 

26 



27 
28 



29 
» 
31 ~ 
32 



33 
34 
36 
36 



37 
38 



40 
41 
42 
♦3 



45 
46 
»7 
«8 



49 
50 



SI 
52 
S3 

54 

55 

56 



BOOLEAN S; 

LABEL. EMAx; 
DFKTNF S1AM * / , 1 . ADD . MtiL* t 



IF . S > X f [lM} THEN .. X «■ ...P(..X#5.SP ) J 

IF X>P(EMAX) THEN P( MKS, I NIC ALLC29,FQRTERRI ) ) 

IF X < .■) THEN 



06800400 
06800500 
0ftflQ0600 



PCX#DUP,QUP,MUL,0UP,DUP,DI'P,72,SUM,42,S1AM,20,S1AM,6,S1AM> ElSe 
P(MKS#INT0ALL(X#EXPl)#DuPM>XCH>/,SUB*,5#MUL) i 

IF S T HE N PfC HS)# ___^_____ . 



0680Q700 
06800800 
06800900 



0000*0 
0000*0 
OOOOIQ 



P(RTN); 

EMAX **' PH22360OO0U000O0; 

FMD SlNHi 



06801000 
0680U00 
Q6flfll200 



000010 
0003'0 

0006*4- 



06801300 
06801400 
0680 1 50 



0007*0 
0014*1 
0019*3 



0020*3 
002l s 
00 2 2*0 - 



PROCEDURE COSH } 



% 121 



COMMENT HYPERBOLIC COSINE INTRINSIC; 
BEGIN REAL X w -1# 

TJ 



% PF M A Y 67 



size* 0024 words 

06900000 T 0000*0 
START QF REL SEGMENT! DISK ADDRESS « n 5 2n 



LABEL EMAx; 
DEFINE SlAM a /, i, ADD»MUL#; 
IF (T*ABSfX))>P(EMAx) THEN P( MKS, I NTCAlt ( 30,FQRTERRT n 



06900100 
06900200 
06900300 



0000*0 
0000*0 
0000*0 



IF T < ,75 THEN 

P<X#OUP,MUL>DUP*DOP'0UP»DIP*9O*S1AM»S6>S1AM'3O>S1AMM2»S1AM> 

■ 5jMulm»A00) ELSE P(MKS»INTCALL(XtEXPI')»DUP»l»xCH»/»ADQf ,5>HtiL) ; 



06900400 
06900500 
06900600 



0000*0 
0000*0 
0000*0 



P(RTN)J 

EMAX »** ?U22360000000000; 

END COSH* 



06900700 
06900800 

6 9 009 . 00 . 



06901000 
06901100 
06901900 



0004*1 
0005*0 
00 12*1 



0019*3 
0020*0 
<?02t*0 



PROCEDURE TANH ; 



% 122 



COMMENT HYPERBOLIC TANGENT INTRINSIC; 
BEGIN REAL T ; 
REAL X 5 «i; 



X PF MAY 67 



SIZE 8 0023 WORDS 
07000000 T 0000*0 

Start of rel segment; disk address » 00521 



BOOLEAN S; 
IF S *■ X, [1 il] THEN 
IF X > 27 THEN IF S 



07000100 
07000200 
07000300 



x «• P(x»ssp); 

then P(i>chs»rtn> else pci*rtn); 



IF X i #14 then 

P(X#DUP#OuP#MU..#DLP#DUP#OtjP» 6, 8888888889* MUL#l?#SuB# 

MUL»21^»a*ADp,MUL>5j/jl»SU8»MUL»3>/,WAQP,MUL> 



07000400 
07000600 
O7O0070Q 



0000*0 
0000*0 
000 *0 



0000*0 

0000*0 

0003*1 



else p(Mks»intcallcx»expi;>»dup*.t*stn> i#xch»/*dup#t>add,,t'STD*sub'T»/); 
if s then p(chs)# 

P(RTN); 



07000800 
07000900 
07001000 



0007*0 
0007*3 
0011*0 



end Tanh; 

PROCEDURE OSQftT 1 



0700U00 
07001200 

07001300 



0015*0 
0023*2 
0024*3 



* 123 



07001500 T 0024*3 

SIZE« Q0&3 WORDS 
07100000 T 0000*0 



JJ 



f\ 

2 
3 

4 

5 

6 

7 

8 

9 
10 
11 
12 



COMMENT DOUBLE PRECISION SQUARE HOOT INTRINSIC; 
BEGIN RFAL X = ■ 1 > . 



% PF JUNE 



START OF REl SEGMENT; DISK 

67 07100100 

07 1 0030 



ADDRESS ■ 

T 0000*0 

J* Q O OQl Q 



00522 



XL * "2* 

JUNK » 17 
LABFL HAFl 



07100300 T 0000*0 
07100400 T 000010 
07100600 T QQflOtO 



IF X LEQ THEN IF X»Q THEN P C Of . JUNK* STN/RTN ) 

ELSE PCMKS#IMTCALL(27^F0RTERRI)) * 
P{XLjy < 0*MKS>INTCALHX*S0RTn < .jUNK.STNjDLO*0*jUNK.nLA<0.HAF»DLM».JUNK» 



07100700 T 
07100710 T 
071Q080Q T 



OQQO<0 

0003»2 
000**0 



STO#RTN) ; 
HAF HI 8U54000000000000; 

end osort; 



07100810 T 
07100900 T 



0011*1 
0011*3 
07101000 T 0013*0 



PROCEDURE CSQRT i 



% 124 



SIZE" 0014 WORDS 
07200000 T 0000*0 
ST AR T OF RE L S EGMENT; D I S K A DDRESS « 005 23 



13 
14 
•5 



COMMENT COMPLEX SQUARE ROOT INTRINSIC; 
BEGIN REAL K ■ m \> 

: Y m »2i ■■ ■■ ' v "..-'-■■■' ' 



PF JUn£ 67 



07200100 r 0000*0 
07200200 T 0000*0 
07200300 T O OO O ' O 



16 
17 



IF X ; 



JUNK s 
LABEL 
THFN IF 



17 ; 
haf ; 

Y 3 



THEN PCQf f JUNKf STN>rt.T,N)f 



07200400 T 0000 » 
07200700 T 0000*0 
720 80 T OOOO'O 



19 
20 
21 



PCMKS,INTCALL(PCMKS#XMNTCALLCY»CAB5I}#X#SSP#ADD#HAF*MUL)>SQRTI)) 
IF X i THEN P(.JUNK,STN*DUP'ADQ#Y,XCH#/,RTN) 
El, «E BEGIN IF Y,[1>1] THEN P(CHS); 



07200900 T 000312 

07201000 T 0008*3 
07201100 T 0012*0 



22 
23 
24 
25 
26 



HAF 



P(DuP#DuP#ADU#.Y#XCH#/#,JUNKjSTD#RTN)J 

end; 
;:» P1154000000000000; , 



07201200 T 
07201300 T 
07201400 T 



0014:0 
0016*1 
0016*1 



END CSQRT; 
PROCEDURE ERF i_ 



% 125 



07201500 T 0018*0 

SIZE* 0019 WORDS 
07300000 T 0000*0 



28 
29 
30 



COMMENT THE ERROR FUNCTION INTRINSIC; 
BEGIN REAL X __g -1* 



X PF MAY 67 



START OF HEL 



SEGMENT; DISK 
07300100 
Q73 QQ2QQ 



ADDRESS 8 
T 0000*0 
T QOOO'n 



00524 



31 
32 



xsq*t»w; 

LABEL A#8»C#0>E>F#G»H#I>J>K»L#M#N#QVER*MSRTPI; 
DEFINE MORE « AQQ,XSQ>MUL* * LESS s SUB* XSQ>MUL»; 



07S0040Q T 
07300500 T 
07300600 T 



0000*0 
0000*0 
0000*0 



34 
35 
36 
37 " 
38 



IF (XSQ * XxX) < 2,22 THEN 

* * P(N0P*A*xS(S»MUL'8,LESS,C*MCHE*D*LF.SS,E»M0RE,F#LE sa 'G» M H E*H,L E - ss » 
I > MORE* J» LESS* K» MORE jL»LESS/M»HQRE»N» LESS* OVER* ADD, XjHuLjRtN)* 



07300700 T 
07300800 T 

073 QQ9Q Q . T 



0000*0 
0002*2 
0011, '0 



IF XSQ < 
BEGIN W 

T 



24 THEN 
(XSQ + 
CXSQ + 



l4,5)x(T <■ XSQ ♦ 6,6267867473) - 39 1 1779586414* 
!2.5)xW - 45.5xT; 



07301000 T 
0730H00 T 
07301900 T 



0018*1 
0019*0 
QQ22M 



40 
41 
42 



W 4- (XSQ + 10.!3)xT - 33xw; 
T ♦• (XSQ + 8.5)xH - 22.5xT> 
W «- CXSQ + 6»5)xT - laxh; 



07301300 T 
07301400 T 
073Q 1 50Q T 



0025*2 
0028*1 
003 1* 



43 
44 

45 



T <• (XSQ 
W *• (XSQ 
T ». (XSQ 



4.5)xn " 
2.5) xT * 
■ 5)*H - 



7.5xT; 

3xh; 

sxt; 



07301600 T 0033*3 
07301700 T 0036*2 
Q 7301BQQ T 003 9*1 



46 
47 
48 
•9 
50 
51 
52 
53 
54 
55 
56 



P(ABS(X)*W#MUl>MKS,INTCALLCX : >Q*EXPI )#MSRTPI,MUL#T,MUL^/1*ADD) 
END ELSE P(l)j 
IF X.Cl*l] THEN P(CHS); 



07301850 T 

07301900 T 
O7302QO0 T 



0042*0 

0046*3 
9Q62H 



46 

47 i 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

56< 

57 



P(Rtn>; 

A **» P132U64756260433; B *** 
C *** 81306316666647563J C HI 



^1313314675626043; 
»1261242725431173; 



07302100 T 
07302200 T 

Qfi Q230 T 



006313 
0064*0 
006 410 



E »'* Pl25l77i347l3037i; 
G Ml P1233347466027367; 
I III ^1213746431^57302; 



K :** P1242575635313531; 
H *»* 81223723222675344; 
J *** ei20340055b500006; 



07302400 T 
07302500 T 
73026 QQ T 



0068*0 
007010 
007?*0 



K 1*1 > 117293 1336320* 15; L 
Mill 8 116? 1613620640 16; N 
nVFB III »1 1 4* Ifl 1565650*0 31 



*»« 81161560263430450; 
lit #11530044721530071 
ttSftTPHHg3lAl6t3376llQ665l 



07302700 T 
07302800 t 
07302900 T 



007410 
0076*0 

0078*0 



• • 



>r 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



19 

I 20 

21 

22 
I 23 

24 

25 
I 26 

27 

28 

29 

30 

31 

32 

33 

34 

36 

36 

37 ~" 

38 

39 

40 



45 
46 
! 47 
•8 
49 
SO 
61 
62 
S3 
S4 
56 



END erf; 
PROCEDURE GAMMA 



% 12ft 



COMMENT GAMMA INTRINSIC; 
BE G IN REAL X a »1* 



X PF MAY 67 



START OF REl 



07303000 T 0080*0 

SIZE* 0081 WORDS 
074Q0QQQ T 0000 to 



e,v*y; 
buolean s; integer kj 

LABEL Lt»PHAXtMMAXtPl f MPIi 



segment; DISK 

07400100 
07400300 



DEFINE SUBMUL * SU8*E,MUL#* ADDMUL * A0D*E*MUL#; 

IF S ♦ X S THEN X * P<X,5SP); 

IF X>*S2 THFN P CMKS, TNTr ALl t 3 S,rORTf flR | jj : 

IF CE .♦. P.(.X.#.0.U.P«».Y*.SND*.5 # S.UB«.rr<*I.SN#5UB)) = THEN 

BEGIN IF S THEN IF K.,[47»U 1 HEN P(MM A X)eLSe P(PM A X) 
ELSE IF 6 i ? THFN PCI..) 



07400400 
07400500 
07 ^ 60 



ADDRESS « 
T 0000*0 
4: — 0000*0 



00527 



07400700 
O7AOO8OO 
oyanoonn 



end; 



P(RTN>; 



ELSE GO TO Li; 



07401000 
07401100 
07401200 



00.0010 
0.00010 

000 * 



0000*0 

0000*0 

QQOAln 



IF K < 2 THEN V 
FLSE 



♦. (IF K ■ THEN 
If K * 1 THEN 

LI! HE.fi TN X «. X - 



DO 
IF 



PCi'X' DUP*l*ADD'MUL'/> 
\/X ELSE 1) 

(V » 1 )f 



EL*E 



07401300 
07401400 
0740.500 



T 
T 

-T- 



0007 11 
001012 
0015*1 



s 1 



FNQt 



X*V UNTIL (X «• X 
THEN P(V*RTN); 



• 1) < 2; 



07401600 
07401700 

07401800 



0017 »l 
0017*1 
0017*2 



0017*2 
0022'1 
0025*fl_ 



PCfsOP'E' ,0000677l05.7ll.7#MUL* 
.00 344 2 3420^56, SUBMUL* 

,nnim9f6flio<t7?»AQnMi.i t 



074Q1900 
07402000 
07402 lOQ 



♦ 002«66 7«,798054#SUBMUL* 
.0 1097 369584 1 7# ADDMUL* 
>0fl0Pin9n7ZiA73t»SUpMii t . 

..07 4.2.3..79.Q76.0.6' ADDMUL » 
.081378218785' ADD M UL* 



07402200 
07402300 
07402400 



07402500 
07402600 
07402700 



0027*3 
Q031M 

0033*0 



.4ll84025l796*ADniMUI . 



.422784336962' ADDMUL# 

,99999999999* ADO* V»MUL#.V*STN); 
IF S THEN P<QEL*MPI*MKS'INTCALLCP(PI)*Y*SINI)*V*MUL,Y*MUL ,/) ; 

P(RTN); 

PI l'l * >H43ll0375524210; 

MPI *t* P3l43ll0375b242l0; 



07 402800 
07402900 
074n3nnn 



0033*0 

0034*0 

0035 { 0- 

0036*0 

0037*0 

0038*0 



07403100 
07403200 
074Q3300 



0039*0 
0040*0 
on4i in 



PMAX t»* 90777777777777777; 
MMAX II* 92777777777777777} 

END GAMMA! 



07403400 
07403500 
07403600 



0042*0 
0043*0 
0044*9 



07403700 
07403800 
07403900 



0049*2 
0049*3 
005l*0 



0052*0 
0053*0 
0054*0 



PROCEDURE ALGAMA; 



% 127 



COMMENT LOG GAMMA INTRINSIC; 
BEGIN REAL X * -1* 

U 



X PF MAY 67 



START Up HEL 



size* 0066 words 

07500000 T 0000*0 

sermfnt; dtsk address » nosso 



DEFINE SUBMUL = SuB*T,MuL#, ADDMUL = ADD»T,Mui_#; 

IF X LEti THEN P(MKS, I N TC ALL C 3 \* CXXQ )* FQRTERRI) ) ; 

IF X<3.2fl THEN P( MKS* I N TCALI. ( P( MKS, I NTC ALL( X,GAMMAI) ) , LN I ) *RTM ) 



07500100 
07500200 
Q75QQ4QQ 



P(l*X#DUP'MUL*/»,T*SNo); 
»* PC NOP* 1. 3924322 16906, CHS, MUL* 
.1796AA37?^69»AQnMML. 



07500500 

07500600 
Q75no7op 



0000*0 
0000*0 
ooontn 



.0295506535948, SUBMUL* 
.0064102564103'ADDMUL* 
,0Q19l75869t751*SUflMi)|., 



07900800 
07500900 
07501000 



oooo'o 

0000*0 
0004*2 



.000«4175084175' ADDMUL* 
;000$9323809524# SUBMUL* 
,00079365079365* AOOMUL, 



07501100 
07501200 
07501300 



07101400 
07501500 
075Q,6QP 



0009*3 
0011*2 

0013*0. 



0014*0 
0.015*0 
0016*0 



0017*0 
0018*0 
019 * 



9 
10 
11 I 
12 
13 
,4 I 
16 
16 



17 1 

18 

19 

20 ( 

21 

22 

23 y 

24 

25 

26 1 

27 

26 

29 ( 

30 



., 31 
32 



33 

34 

35 I 

36 

37 

38 ( 

39 



40 



42 

43 

44 ' 

45 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

56* 



N 

2 
3 
4 
5 
6 
/ 



10 
11 
12 
13 

1 < 

(16 _ 
16 



17 
IS 



19 
20 



21 
22 



23 
24 



26 
26 
27 
28 
29 
30 



31 

32 

33 

34 

35 

36 

37 " 

38 



41 
42 
43 
44 
♦5 
46 
47 
18 



,0027 7777 7 77 77 Q> SU8MUL* 

,08333333333 3* ADD' X*/* ,9 189 385 3 32 1* ADD* 
X'nUP'.5f$UFiiMKS*lNTCAI I (Xtl.Nl ? *MULf XCH'SUR t APR ) 



07501700 
07501Q00 
0,7501900 



0020*0 
0021*0 
0022*2 



P(RTN); 

en.o algama; 



07502000 T 0026*2 
07502100 T 002613 
SI7E=t 0Q4I0 WORDS 



PROCEDURE ANDI i 



BEGIN 



% 130 



07600000 T 0000*0 

START OF HEL SEGMENT* DISK ADDRESS * 

07600100 T 0000*0 



00532 



REAL A » * X$B > 
P(A ANO B»RTN); 
fno ANnn 



•21 



07600200 
07600300 
Q760Q400 



000010 
0000*0 

0001*0 



PROCEDURE ORI 



% 131 



START OF REL 



Si2E« 0002 WORDS 
07700000 T 0000*0 
SEGME NT ' D I SK A DDRESS » Q Q 533 



BEGIN 

REAL A "-IjB a -2; 

PCA OR BjBTN)* 



07700100 
07700200 
77O Q3Q0 



0000*0 
0000*0 

0000 »n 



end ori; 
pr oce dur e cmp l l 



% 1 31 



07700400 T 0001*0 

SlZE«... 0002 WORDS 
071100000 T QQQO'O _ 



BEGIN 
_B£AL_A_ 



■ II 



START OF REL SEGMENT* DISK ADDRESS » Q0534 

07800100 T 0000*0 

— ; . : 07 800200 T 0600*0 



pc (not a)'rtn)j 
end cmpl; 



07800300 T 0000*0 
07800400 T 0000*3 

— size? 0001 



WORDS 



PROCEDURE £«UIVP; 
BFG1N . 



% 133 



07900000 T 0000*0 
START OF REU SEqMENT* DJSK ADDRESS » 00535 
. 07900100 T 0000*0 — 



REAL As-1*B s -2; 
PCA EQV B'RTNJ; 
FN Q E QU lVP' 



07900200 
07900300 
07900400 



0000*0 
0000*0 

ooouo 



Procedure forterr; 



% 134 



RUN-TIME ERRORS 



SlZ£* 0002 WORDS 
079 00410 T 0000*0 
START Df fin. SFqMFNT; njSK A ppRt:SS a O0S36 



BEGIN 
COMMENT PR0GRAM GENERATING ' VARIOUS ERROR MESSAGES WITH A OS, 

rpDFS Q THRU 3 AHF USFf) RY THF FORMATING INTRTMSICS. CnDES 



07900500 
07900600 
07900700 



000010 
0000*0 
0000 10, 



10 THRU 32 ARE USED BY VARIOUS MATH INTRlNSlCS* 

REAL CODE * -l#FlD,MFlO*lND»BUFF,A»-2#8«>-3,C»-4»D»-5; 
ARRAY TPAft [»UFie[»1.FPB«3r»3 i 



07900800 
07900900 
07901000 



0000*0 
0000*0 

000010 



2; 

LABEL CO* FQ95* CD1# CD2* DC* DCl# DC2, G095 * 

LAREL f!PL R,XTOI> CSS CDH0Q,Df:XP*CEXF,DL6Z*OLGM, CLOG* ALU»ALTH»nLTZtPLTM » 



NAME MEM 
[., FQ95* CD1# 



07901100 
0790U10 
,07901200 



0000*0 
0000*0 
.0000,10 



C SI N#CCOS# ACQS' ASIN,DS0R»6AMA, SI NH, COSH, ALGZ*ALGM,MAXN* ZERO, NGTV» 
L0#L1#L2'L3*LX*WRAPUP*FIGER; 
LARFl, LiLi L5» L6J 



07901300 

07901400 s 

07901410 



0000*0 
0000*0 
0000*0 



SWITCH 3 Hi «■ 

Switch Sw2 *- 

DLT?*DI 



lo* li' l2* l3* l4* l5* l6; 
cplR*xtui,cssc,dmqd»dexp*cexp#dlgz*dlGm*clqg,ai.Tz*altm, 

JM. C S Th » CC(1 S, Af.O S. AbTN.DSQR, GAM A, STNU, TO SH.Al GZjALGM I 



07901500 T 0000*0 
07901600 T 0000*0 
79 01 7 T ■ O QOO' O 



*9 
50 
51 
52 
53 
54 
55 



DEFINE STREH * STREAMCD * CTPARC*> STO s STREM 03J)## ST2 » STREM 2)])*' 
DEFINE CC55CCC551) » CC55lC0S4.LlT M <"J SI*AiJ DS*A13 CHRJ DS*LIT W >") #, 
NAS(MAS1*NAS2»NIAS31 « SI»LQC NASH D5»NAS2 DFCl MAS3CDl»0l»4 I 



07901600 T 0000*0 



07901810 
079Q182Q 



000010 
QQOQIO 



DS*LIT"*") ft* 
LD5CCD51*CD52*CD53,CD54*CU55) = CC55CCD51}* CD52CN a^ ( CD53* CD54, 
0055)) «> : , 



07901825 
07901830 
07901835 



0000*0 
000010 
QQOQ I O 



SAVW«F *> SAVD-E 

subroutine getfile* 

BEGIN : — : 



i» WH2*B ft* WHt-C •* R»G #1 



07901850 
07901900 
07tQ2000 



0000*0 

0000*0 
0001*0 



• • 



h 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
IB 
19 



20 
21 
22 
23 
24 



26 
26 



27 
28 



29 

» 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



45 
46 
47 
48 



49 
50 



51 
52 
53 
54 



55 
56 



*L 



FIB «- MEMLCNOT 2) INX A]; 

MFID «■ FPbtlNO * FlBdJf [13*1133; 
FlO _ FPPCIMn+1 3* 



B .♦ 8 ♦ It 
END GET^ILE * 
RfAL Tl»T2»T3»T4»T5>£»-6>Fg*7>G« l »8>Hg-9» !■■ lOf J»«il»K-» 12 i 

INTEGER IT2 = T2 ; 

ARRAY TEN = 22C*.3. ' 

LABEL LOOP* ALFA ; 



07902100 
07902200 
079 023 00 



07902400 
07902*05 
07902-10 



000110 

0003*1 
51 2 
000710 
0008* i 
QQ0B*2 



REAL SUBROUTINE SIZ J 

BEGIN 
TEN[T33»TENL68U 



07902415 
07902417 

Q790 242Q 



0008 1 2 

0008*2 
QQOfl'2 



Tl + i 



LOOP* lF..T.ENlT.l.t.T.l.*l]ST2 
END QF SIZ ) 

%************* 



T pAR*p ( CTpARC 1 3 ]*CFX»SFB)&17C8* 38*10 3 
IF C0DE«C"2) THEN 
RCGIN T3»5J T2»B ; 



ThEN GO LOOP; SlZoT.l ; 

* PROGRAM STARTS ************ 



07902425 
07902430 
Q79Q2435 



000812 
000910 

Q009I0 



; 



07902440 
07902445 
07902447 



STREAM(E»D/C,B*A,N3«-PCALFA)*Ni«-SIZ#T2«'T2«'A»N2 4 -SlZ»TPAR) J 

BEGIN 
US»15l1T"-DATA STMT ERRg"; SI»LUC Ej DS*DEC i 



07902448 
07902450 
Q7 9Q 2 4 55 



0011*1 
0014*1 
0014*2 



0014*2 
0020*1 
QQ2l*l 



DS*4LlT w »LT*«; SI+LOc N3; Sl«>Sl+D; DS*CHR ; 
'DS« , «LIT%DT»«S Sl+LOC N3J Sl+SI+CJ DS*CHR } 
DS»3LlT",L«"; Sli-LQC Ri OS»Nl DEC ; 



07902460 

07902465 
07902470 



0023*1 

0028*3 

002»*3 



OS^LIT'^D*"; 
END ; 
G(,l HRAPUP J 



DS*N2 DEC; DS*2LlT ,, ««-»« 



07902475 
07902480 

079Q24 85 



0031*2 
003311 

00 35*0 



END ; 
IF C0DE*<-1) 

REG IN 



07902490 
07902495 
07902500 



THEN 



STREAM(TpAR); QS<-33lIT"-MIXD UnFmT/ AlPHA-MQDE UPE I/Q**-" ; 
GO WRAPUP ; 

FND / 



07902505 
07902510 
07002515 



0036*2 
0038*1 
00 38 *-_- 



IF C0DE*(-3) THEN 

BEGIN T3«-4; T2*i; FID*C M F I0«-P(GQ95> )"1 i 
5TRF„M(-.K.l.Fl»ST7.r>»T2*h.F2»Sl7.P3»ft>10 ANH i5>G f F f 



07902520 
07902523 
07902525 



0039*0 
0039*0 
0040*0 



0040*2 
0046*1 
0046*3 



N3*P(ALFA),CUIT2«-E#C*SIZ#R1*IT2«-D41#R«-SI2* 
BUFF«-C»V«-B.[42*1 J AND B, U6 * 2 3_0» A4«-T2*B , I 6 * 12 3' A5*3 IZ 
xi»T2*ljAs.«-J«-CK«-T2)gMFI0»A?-(T5»B AND |5)»12 OR T. = 8> 



07902530 
07902535 
07902540 



A3*T5«12 OR T5«4>CD + P<DC)*CDi*PC0ClW*G*C02*PCDC2J* 
A6*<T4«.8 t tl*5 3>-2,A7*T2*B,U8?12 3#A8*"SIZx(CT«^30 0* 
T2/Flm ANn fT4*9 Qfi T?*0^*Aa5»Hrtp»T2,_g»T4-H ^n 



07902545 
07902548 

Q79Q ? ^ 5j 



0046*3 
0047*3 
00-1*? 



T4<l4 OR CT<**30 AND ( T2*B , C 30 \\2 3 )^F ID ) > AlO*T2# Al j*5lZ» 
AH5«-.T2»M.Fi[,#Al2*T2*IF J THEN A.C18U53 EL»E K* 
Al3+ST_*If 1PAR) ; 



07902554 T 
07902557 T 
Q79Q 2 56 Q T 



0058*0 
0062*0 

0066*2 



Begin ds«-hlit"<-data e rr #«; si>lqc j; si*sj;+7> os«-chr J 

DS«-2LlT«* "; VCNASCA4,a5,a55); A2(DS*t,lT «k" )} A3C0S*LlT 
"*")J SULOC CO; SUSI + Afei 0S»CHR; NAStA7>Aa»A8s) ; 



07902563 
07902566 
079Q 25 6 8, 



0073*0 
0075*3 



0085*2 
0091*0 
009_*9 



A9(DS*-LIT»,«; NAS(A10*A11* Allb)); DS*-4LIT" *> »} jUmP OUT 
TO LD' DS*-7L1T"FMT IS •»; Lj* S1*L0C Al2' DS*Ai3 DEC ; 
A2(QS«-blT"K"3; A 3 C US»L IT" s" ) ; Sl»LOC Kj Si»SI+7; pS»CHR ; 



07902569 
07902572 

0790 2575 



o$«-fi dec; f3<os*lU"."; $i*lqc o; ds*F2 dec); ds*6lit 
* typ«"; ,si*loc N3; si»si*f; dSochR; os«-6UT"# c ol#" J 
os»c o&c; ps*6lit"» chr«»; si*buff; si»si-i; ps«-chr ; 



07902578 T 
07902581 T 
07902584 T 



0097*1 
0099*3 

qiq mo 



___ 



0S«-6LjT", REC*"' 

end qf stream ; 
wrapup ; 



SULCC Ri; qS*R DEC' DS*3LlT M « *■» ; 



07V02587 T 
0790259*0 T 
07902593 t 



0108*3 
0113*0 
0115*3 



011910 
0121*3 
0124>2 



ALFA* 1 1 *2531625.143242300 ; 

OCt* I w PxTADLJ M i DC 1*11 t?3127262524230000> 

G095*«« 4095 ; 



07902596 
07902599 
07902602 



DC2»»» "(VOOQ" t 



07902605 
07902606 
079Q2607 



0126*3 
0129*1 
0129*2 



0130*0 
013110 
01*4*0 



n 

2 
3 
A 
5 



9 

10 
11 
12 
13 
14 

' S . 
16 



19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



31 
32 
33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

♦5 

46 

47 

(8 

49 

SO 

51 



52 
53 
54 

55 



IF 



end ; 

C0DE = (-<O 
BEG IN 



THEN 



07902608 
07902610 
07902M4 



0i35'0 
0135*0 
013MQ 



XF.C0DE.C2HJ THEN 
BEGIN 
STREAWCTPAR?! 



PS»241.IT W -UMNITIALIZE0 POINTER!*'* ; 



07902615 
07902616 
079Q 2»1 7 



013612 
013711 
0137*3 



go wrapup ; 
end ; 
streamctpar); ds+32lit"' 



BINARY TAPE REC HAS < 3 W0hQS»» w '» 



07902618 
07902619 
07902620 



0142*1 
0142*3 
01^2*3 



GO WRAPUP i 
ENB ; 
IF C0D£ g (»5) THEN 



07902625 
07902630 
07902A31 



01481 1 
0146*3 

Q14BM 



BEGIN T3.*6i CQ0E*H i 

IF D«2 THEN BEGIN C0DE*30; IF *Hi>63 OR WH l <i0 THEN D*l2 END i 

IF A.C1*53<5 THEN BEGIN A. [61 123»A. C 18 1 123 1 R+SaVW; d»iO END ; 



07902632 
07902633 
07902634 



0149*3 
0151*3 
0156*3 



IF D>9 THEN 

BEGIN FIB«-P(CFIBC133*CFX»SFB)«5C8*38*103; FIBC0J«-0 j 
BuFF»CCBllFF»E(jlTlT(Fln»FlB.[33ll5 3,n,2,HH2iMHm.C33ll5f» 



07902635 
07902636 
07 9Q2637 



0163*1 
0163*0 
0107 11 



MD)x8+BUFF. L30*33 
END i 
F I D»(MF I0«-P (FU9 5 )?-1 '* 



07902638 
07902639 
07 90 26 4 



IND«-C0DE>14 AND CC0DEX3Q OR A. t 30 1 12 JsFIO) J 
$TKEAM(Ai«.FiB#A2«.(T5«-A AND 15)»12 OR T5«8# A3«.T5»12 OR T5«4, 
A4»T2»A.C6: 123»a5»StZxT5»T3X1* A55»T?«MFyn*A6»fT4» A .t 1153 



07902641 
07902642 

0790 26 43 



01731.1 
0175*3 
0175*3 



0177*2 
0l8i«i 
13 6 * 2 



)-2#A7«-T2*A,Ciaii2],A8*.SlZx (T«X29 AND T4*3 AND T4M 
ANU CT4X30 OR 1 1* FID) AND CT4/9 Or T2X0 } )» A85*CT2* 
MFIE) i A 9»T4 ^ U A N D T4S14 O R (T4s30 A N O C T 2 » At C 3 \ 1 2 3 ) 



07902645 
07902647 

07902650 



i FlD)#AlO*T2#AH*'SiZ#Ail5«.T2BMfriD*Al2*T4*3 AND A,[4l*l3 

»RlO*D»lO,R*DXlQ»Ri«-T2*R,R2*SlZxT5# 
tfl? t Qm?iV>/ t n83 AND WHi#3t»W*P>2 ANn P*i2 » 



07902655 
07902660 
07902665 



019111 
0197*0 
2 0211 



V1*C.0DE-2#SkP.W0*C0.D.E*3. OR C0DE«29 OR C.C0DE"30 AND 
SAVW* FID). OR CQDE'ii OR (C0DEs9 AND 5AVW«Q"WM«'Dsl4' 
H»n*U»hH»SAVW*Flp»W5»SAVWHFlnjSKPp»C0nF 



07902670 
07902672 
07902675 



0205*1 
0210*2 

oais»g 



0219*3 

0223*0 

0228*0 



<11 OR INO»016*0»16, 0*0X16, 00* 

SAVD»FID'05«-SAVD«MFI0*0i«'T2*'SAV0»02*SlZ»Wl*T2*SAVw* 
W2»Sl7.wHi.Ai3»aUFF.rn»Pfrm.crn.>ptrDi),R5» 0, 



079q268o 
07902683 

Q79Q269Q 



0230*1 
0233*0 
0236 *1 



CD2*P(CD2)» TPAR) ; 
BEGIN 0S«-16LIT"-VAHBL FMT ERR* 
NAS(A4»A5»A55)J A 2( DS«L I T"K" ) ; 



"; A12(DS«. L IT H - M ) 
A3(QS» UT W » W ) f 



; 



7902692 
07902695 
07902700 



0239*1 
0240*1 
0243*3 



SJ*L0C CD; SI*SI*A6; 0S»CHR; NAS(A7f A8'A85) i 
A9CDS+UT M . n ; NASCA10*A11#AH5)); OSMLIT" ■> " i 
Al2(DS*tlT w » w )j CQ5(Ri0,R,R1,R2jR5)I A2(0S»L IT W K" W 



A3CnS» 



07902705 
07902710 
07902720 



0248*? 
0251*3 
0256*0 



u I t •♦ * " j ; ccssc vi2 )> vcsi«-toc cd; si*si+vi; os*chr>; wcos* 
lit"<"; si*lqc khi; si*si*7; ds*chr; d3*ut"> w );skpwD(jump 

OUT TO XX);WW(nS«-llLTT w <M T S3TNq H> w l SKPQ(JUMP OUT g TU XX 



07902725 
07902730 
0790 2735 



0264*2 
0270*0 
027 2*2 



)J 0I*0l-»U DS*7HT W ANO D> M IJUWP OUT TO XX); CD5<Wl4,W f Wl 
#W2,W5); qQ XVI XXI GO xt; XVI 5KP0(JuMP OUT 1 TO XT"'. 'OS'* 
LIT".*; DD(DS»llLlT«<MlSSING 0>"; JUMP OUT 1 TO XT) ; 



07902740 
07902745 
07902750 



027612 
0279*1 
028 6* ? 



_Gi 



CD5(Dl6,0,Dl>02»05); 
END OK STREAM ; 
WRAPUP ; 



XT« DS + 3UT" ««•' 



07902755 
07902760 
079Q2 76 5 



0290*0 

0296*1 
0296>? 



F095*l* 
CD*** 



4095 ; 

*pktaQU"; 

EN Q J 



C01**» #3127262524230000; CD2*«* "<VOQO M ; 



iJLL 



if coot<io Then 

GO TO S*2CCQDE ' 



GO SWnC00£3 

1 10 3; 



07902770 
07902771 

079Q 277 !a 



0297*0 
0298*0 
030l»Q 



; 



07902780 
07902800 
079Q2900 



STREAMC»I1*Q»P2 
BEGIN 

os ♦ 14 y 



* CTP.ARC0J3); 

gRROR-»J- 



0301*0 
0306*3 
0319*3 



07903000 T 
07903100 T 

07903200 T 



03l9t3 
0321*1 
03 2 1 *1 



# • 



1 



Pi ♦ oi; 
end; 

BJFF t ?}, 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



GO to i.x; 

Lit % 

ST«gAM{Bl*OtD » CTPARCQJ])! 



07903300 
07903400 
Q79Q350C3 



07903600 
07903700 
07903H00 



0323 
0323 
32 3 



0324 
0324 
Q324 



BEGIN 



OS «■ 16 LIT H -NAH&tlST ERROR "j 

Pi » 1 / 



07903900 
07904000 
Q7904 100 



0326 
0326 
Q328 



end; 

BUFF ♦ p; 
GO TO I, Hi 



07904200 
07904300 
0710*400 



0328 
0329 
0329 



L2* % 

ST«EAM((H*0«D ♦..ET.PAR.COJ.Df 

BEGIN 



07904500 
07904600 
07904700 



330 
0330 
0331 



13 
14 
15 
16 
17 
18 
19 
20 
21 



OS ♦ 12 LIT "-TYPE ERROR »i 

pi * on 



cnq; 



07904800 
07904900 
07905000 



0331 
0333 
0333 



LX» 



BUFF «- Pi 
C. E TF I LE* 



07905i00 
07 9 05200 
079 05 300 



0333 

0334 

-0*34- 



STREAM(MFID*FID*8>BUFF>; 
BEGIN 
nitBUFF; nSfflLlT"UM FILE w 



07905400 
07905500 
07905600 



335 
0336 
0336 



22 
23 
24 
25 
26 
27 
28 
29 



si * loc mfid; si * si + i; ds «- ? chr; us *■ lit v»j 

SH-LOC FID* Sl«-Sl + l; US*-7CHR; OWLlT"* REC #" ', 

si t loc b; ds t q dec; ds *■ ?,. lit w »+ m ; 



07905700 
07905800 

790^900 



0336 
0339 

-03J14- 



end; 

go to wRapup; 



-L-3-*- 



07906000 
07906100 
07906j a 00 



0342 
0342 

3 4 3 



30 
31 " 
32 
33 



sT.ei 

os * i8 lit "-data stmt error***; 

GO TO WgAPtlP? 



7906300 
07*06500 
07*06700 



34 3 
0344 
0346 



L4I 



STREAM(*1*0ID«-CTPARC0] J }; 
BEGIN 



07906710 
07906720 
07906730 



0347 
0347 
0348 



34 
35 
36 

37 " 
38 



% VOID 



ps*26LiT"-MiXEp f^t/unfmt Tape i/o " ; 

p i » pi; 



07906740 
07906750 
07906760 



0348 
0352 

0352 



end; 
buff «• p; 

GO TO L*J 



07906770 
07906780 
07906790 T 



0352 
0352 
353 



40 
41 
42 
43 



L5« 



STREAM(Pl*0«D*tTPARtO]]JJ 
BE GIN 



07906800 T 
07906810 T 
07906620 T 



0353 
0353 

0355 



DS ♦ 18 LIT "-LIST SjZE ERROR * M ; 

pi * on 



45 

46 
47 



end; 



07906830 T 0355 
07906840 T 0357 
079Q685P T 0358 



»8 
•9 
SO 
51 



BUFF ♦• P; GU 70 LX> 

L6« sto; % 

DS «• 21 LIT "-INVALID ANG CDNCAT»»"; 



07906860 T 0358 

07906861 T 0359 

07906862 T 0360 



go to wRAPyP; 
cplr» sto; x jo 

PS g 31 LIT "-EXPRESSION COMPILATION ERRQRt» w ; 



52 
53 



>4 

56 



go to figeh; 
xtou sto; x 
pS *■ 21 LI1 "-negative base xtoh«- m ; 



11 



07906863 T 0363 
07906890 T 0364 
07906900 T 036S 



07907000 T 0369 
07907100 T 0370 
07907200 T 0371 



56 



cssct 



go to f; 

ST©# *.- 12 

DS > 24 LIT "-COMPLEX EXPONENT XTOP» w J 



07907300 T 0374 
07907400 T 0374 
07907500 T 0375 



ff 

2 
3 
4 
5 
S 
7 



GO TO FIGEH> 
DMOD* STO; * 
05 i 2 LI T "-ZEHQ MO DU L US DHQD*> W J 



13 



07907600 T 
07907700 T 
07907600 T 



0379*1 
0379*3 
0380*3 



go to figer; 

DEXP* ST2J * 
ns » 6 LTT "nrxP »»; 



14 



07907900 T 
07908000 f 
07908100 T. 



0383*3 
038411 
0385*1 



GO TO MAXNi 
CEXP* ST2; *. 
Uii <• 6 LIT "CEXP + "; 



15 



07908200 T 
7908 300 T 
0790 , , 6a 00 T 



038612 
0387»0 
388 »0 



GO TO maxn; 
OLSZI BUFF * TRUE) 
OLfiMt &I2J 1 



16 



-l 



07908500 T 
07908600 T 



0389»l 
638913 
07908780 T 0390 1 8 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

»7 

18 

49 

50 

51 

52 

53 

54 

56 

56 



ClQ(i* 



DS «■ 6 LIT M DLQGU"J 

IF BUFF THEN GO TO ZERO ELSE GO TO NGTV) 

ST?i 1 IB- 



07908800 T Q39l»2 
07908900 t 0392 t 3 
079Q9Q00 T 3 9 4* 



ALjZt 



DS * 6 LIT H CLOG*«-«) 

GO TO zero; 

RUrr » TRUE) | . 



-USL 



07909JOO T 
07909200 T 
Q7909300 T 



0395*0 
0396*1 
0396*3 



ALTM1 ST2) * 

OS > 8 LIT "ALOGIOJ*-"; 
TF BUFF THbN GO TO ZERO EL SE GH TH NGTWi 



20 



07909400 T 0397*2 
07909500 T 0398*2 
079Q96 T Q4 Q Q8Q 



OLTZ* BUFF * TRUE; X 
DLTM* ST2; % 
OS <• ft LIT "Ot.QGinti-»J 



21 
22 



07909700 T 
07909800 T 
07909900 T 



0401*1 
0402*0 
0403*0 



IF BUFF TH£N GO Tg ZERU ELSE GO To NGTV; 
CSIN* ST2; * 23 

ps «■ 6 li t "cs i n*+"; . 



07910000 T 
07910100 T 
07910200 T 



0404*2 
0405*3 
0406*3 



GO TO MftXN/ 

ccos* sTg; * 

pS » 6 LTT "^nStfi 



24 



07910300 T 
07»i0400 T 
07910500 f 



0408 * 
0408*2 
0409*2 



go to maxn; 
acqs* buff <• true/ % 

ASIN* STR£AM(B t ^UFF^P, t LlEABXflJLUi X_ 



25 
2&- 



07910600 T 
07910700 T 
Q791Q800 T 



0410*3 
0411*1 
0412*0 



BEGIN DS * 19 LIT "-ABS(ARG) »GT, t AR"; 
SI ♦ LOC B) SI ♦ SI ♦ 71 
TF SC « »1» THrN OS » 5 LTT "EPS!*" 



07910900 T 
07911000 T 
Q791110Q T 



0413*1 
0416*0 
0416*2 



end; 

GO TO 



ELSE OS «■ 5 LIT "SIN**") 



FIGERJ 



07911200 T 
07911400 T 
079U50Q T 



0418*0 
0419*1 
04 19* 2 



OSOR* 
NGTV* 



ST2J 
DS <• 



7 LIT "DSORT**-"; 



27 



079U600 T 
07911700 T 
079llfl0Q T 



0420*0 
0421*0 
042 2 ? ? 



GAMA* 



l)s «- 16 lit "-negatve ahqmnt "/ 
go to figek; 
sT g; * 



_2J_ 



07911900 T 
07912000 T 
079 1 2^00 T 



0423*2 

0426*0 
04 26*? 



40 

41 < 

42 

43 

44 ( 

45 

46 

47 < 

48 

49 

50< 

51 

52 

534 

54 

55 

56* 

57, 



SINH* 



OS «• 7 lit "gamma**"; 
go to maxn; 
.1121 »_ 



_29_ 



07912200 T 
07912300 T 
0791 240Q T 



0427*2 
0429*0 
Q4 2 9? 2 



COSH* 



OS «• 6 LIT "SlNH** M ) 

GO TO maxn; 

ST2; < 



30 



0791 
0791 
079 1 



2500 T 
2600 T 
2700 T 



0430*2 
0431*3 
9432' 1 



maxn* 



ds «• 

ST8) 

DS » 



6 LIT "COSH**-; 

16 LIT "-ARGMT .GT. MAX «) 



0791 
0791 
7 9 1 



2800 T 
2900 T 
3QQQ T 



043111 
0434*2 
0435*? 



ALGZ* 
ALGM* 



GU TO 
BUFF 
ST 2; 



figeh; 

■ TRULj 
X 



31 



0791 

0791 

-QX9- 



3100 T 
3200 T 
T 



1340- 



0438*0 
0438*2 
0439*1 



ZERO* 



DS * 
IF 



8 LIT "ALGAMAI*.''! 

_ B«JFF THEN 00 WJ NGTV) 



0791 
0791 
0791 



3400 T 
3500 T 
3600 T 



0440*1 
044H3 

flftflg* a 



• • 



2 

3 



OS «• lo LIT "-ZERO ARGUMENT 
WRAPUP! FIGEH8 
PUTPARtOUtrajM'iJ* 34> C0H» 



07913700 
07913800 
07913900 



04^3 * 2 

0446^0 



END FORTERR; 



PROCEDURE MAXJ 



* U5 



07914000 T 044?»J> 

S]ZE« 0448 WORDS 
08000000 T 0000*0 



COMMENT MAX INTRINSIC RETURNING INTEGERS* X PF JuLY 67 
BEGIN REAL X « "If rtCW 5 + 0» SIZE. " tlf JUNK s + ?; 



START QF REL 



segment; disk 
oaoooioo 

06000200 



ADDRESS « 00551 
T 0000 JO 
J 000010 



9 

10 

11 

12 

13 

14 

16 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

SO 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 " 



P(0>RCW#FCX*CRCwJ IN* NOT INX Q»XCH, SUB^O'X )J 

WHILE (SIZE * SIZE * 1) > DO 

BFGIN P(m,lP)l ; 



08000300 
08000400 

nenoosoo 



t 0000*0 

T 0003*1 

1 — ooos* a 



enpj 



JUNK «• *CPC.X) + SIZE); 

IF p < JUNK THEN .P.COEL#DUP-M 



08000600 
080007-00 
0800080» 



0005 13. 
0007 « 1 

0009*3 



P<i*D!V»RTN)J' 
END I-MAXJ 



O8OOO9OO 
08001000 



T 0009*1 
T 0010*0 
SIZE* ''OH WORDS 



PROCEDURE MINI 

COMMENT MIN INTRINSIC RETURNING INTEGERS/ 



X 136 

% PF JULY 67 



START OF REL 



BEGIN REAL X ■ "l» KCW » *Q# SIZE • *1# JUN* » *2J 
P(0#RCW#FCX#tRCw3 INX NOT INX 0,XCH#SUB>0*X ); 

While fSizg » SiZe ; l) > no 



08100000 

segment; disk 

Q8H.Q10Q 



T 0000*0 

ADDRESS m 

J 000 0*0 



00552 



08100200 
0|lOO300 
8100 4 00 



0000*0 
0000*0 
QQ Q 3 M 



BEGIN PCDUP)> 

JUNK «• *<P(,X) + SIZE); 

T F P > JU N K THEN P( DFL»nuP?; 



O8IOO5OO 
08100600 
Q81007Q0 



T .000512 
T 0005*3 
4 0007*1 



end; 

pu#div»rtn); 
end imin; 



08 100 80 
08 IOO9OO 
08101000 



T 0008*3 
T 0009*1 
t QQtOlO 



PROCEDURE IMOO; 



X 137 



STA RT QF RE L 



08200000 
SE GMENT; D I SK 



SlZE» 0011 

T 0000*0 
A DDR ESS a 



WQRDS 
00553 



COMMENT INTEGER SOD INTRINSIC) 
BEGIN INTEGER X • -2* 
V ■ "V 



X PF JULY 67 



08200100 
08200200 
Q82003QQ 



T 0000*0 
T 0000*0 
Jt 0000*0 



PCX MOD Y,1*DIV,RTN); 

END imod; 



08200400 
08200500 



T 0000*0 
T 0001*2 
SlZF» 0002 WORDS 



PROCECURE C8NCAT ; 



X INTRINSIC NUMBER #140. 



BEGIN X FORTRAN CONCATENATE INTRINSIC* CQNCAT»Y&ZC At B*X 3 , 



START OF REL 



08300000 

segment; DISK 

08300100 



T 0000*0 
ADDRESS « 
T 0000*0 



00554 



REAL Y"-5» Z*-H* ERR=24 ; 

INTEGER A«-3» Bs"2» Xs«i ; 

DEFINE R» *005Sbb5570267Q22 9> X NOP/PIA»QPDC Y,QPOC»Z» 



08300200 
08300250 
Ofl3o026Q 



0000*0 
0000*0 
0000*0 



45 

16 
47 
•8 
49 
50 
61 
52 
53 
54 
56 
56 



$* #0055006100650235 »J * NOP* OIB> TRB#RTN ♦ 
IF (A*A3<t OR (B*BXi QR <X*X)<1 OR CP<46*X,0UP><A QR P(XCH)<BJ 
THEN P(MKS,6*ERR? J 



08300270 
08300300 
OB30040Q 



T 0000*0 
T 0000*0 
J 0006*0 



GO PCPCHUCB DlV 0)[12i45:3]&CB MOD 6 U 15191 3 ],p(S ),A mqD 6,Tr8 3, 
P&CA DlV 6)[12*45I3]&X[24I42I6]»,B#«.» ,A»*#'[AJ) ; 

EN D Q F . CQNCAT ; , 



08300500 
08 300600 
08300700 



T 0008*1 
T 0012*3 
J OQU',3 



PROCEDURE F8RTRA«MEMMAN0LER(A>H3fi VALUE H| REAL H; ARRAY AC *3 i MU« 

START OF REL 



08301000 

segment; disk 



SIZE* 0019 
T 0000*0 
ADDRESS m 



WORDS 
00555 



50 ' 
51 
52 
63 ' 
54 
55 
56 ' 
3 



BEGIN X H«0 *> VARYING* H*6 *> FIXED* H*"l *> RELEASE. 

real i ; 

: + AfTQf») ; , , 




08301100 
08301200 
QB301100 



T 0000*0 
T 0000*0 
J 0000*0 



^T:> 



P (A**i£ 3»45l 33* <*2>4CA)t33U8U5}^) 
l*A.tI*10]»l STEP gj UNTIL OQ P( C AC M1»0UP»L0n» 



08101400 
08301500 

QBI0160Q 



T 000 1H 
T 000210 
T 6* Q 



2 
3 



P&H[3l45*3J#XcH#«-) 
ELSE IF P THEN PC A#38,C0M»0El> 

F L SE FUR I »A . rHM03-l . STEP "\ UNT I L Q 00 P( »T AT T 3 Jt 3flr C QM'nEL )i 



END OF fortranmemhanoler ; 
PRncFnURF STSni 



08301700 
083Q1800 
08301900 



001212 
0014 »0 
00 X6 1 3 



1 35 



10 

11 



17 
18 



19 

20 



22 



25 
26 
27 
28 
29 
30 



31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

•2 



46 



47 
48 



49 



51 
52 



55 
56 



BEGIN 
CnMMENT 



START OF REL 



08301930 T 0023*3 

SIZE* OOfS WORDS 

Qeanoonn t onooio 



STRING ISOLATE. INVOKED AS RE AL(PTR.N). N COtiMTS CHARy.; 



OEFINE C3lZe»[3l*023#> COMMENT 
ElQHT»0t#i COMMENT 
INTE6FR 



CHAR-SIZE FIELD OF PTRj 

VALUE OF CSIZE FOR 8 BlTS-CHARj 



SEGMENT* DiSK 
08400200 
O8OOO4QQ 



sqff; 

INTEGER 

PTR 



XfllT OFFSET TO BIT 1 OF S FOR 8-BlT CHAR 



08400600 
08*00800 
QftflQlnQO 



ADDRESS » 00556 
T 000010 
J 0000*0 



000010 

0000*0 
ooontn 



s-3. 



RCW *"2» 

R EA L RrStiLT »PTRi 



xsiso is really a real prqc*vAlue in pth 



08401200 
0840UOO 

Qsaouoo 



ARRAY 

STRlNGC*3* 

NAME 



XUNlNDEXED DD FOR SQU«CE CHARS 



m«2; 

IF PTR*0 THEN P(WKS»INTcaLLC(-4)«1£2I*47*13#fORTeRRI)) 
TF PTR.fOl*011 THEN 



P(M&iH4l47»01]»PTR, t 09l22J+(PTR,C33li5]^0)*Ch5»COC»OEl)i 
STRING*BCPTR]i 
K»ABSfN)i 



IF 



THEN 



PTR.CSIZE*EIGHT 
BEGIN 

IF N>6 THEN P0LlSH(tSTRlNfl)16[0ei38i'103»N»CDC»DELn 

S0FF«-0&PTRC32ll8ll3JJ N*0&Nt 09 J 12 t 363 * COMMENT BIT INDICES* 
P0LlSH(CSTRlNG[(SUFF*N-8) DIV 4833/QELj; 
STREA M(RESUlT*-0»S*-CSTRIMGLSQFF HIV 483 J, SKS»( SOFF»sOFF MOD 48) 



SK0«-48*N#N); 
BEGIN 

Si»s; 



dialog result; 
nc if sb then ds*1 

end ; 



skip SKS sb; 



skip skd db; 
set llse ds«-1 reset; 



SKIP 1 sb); 



RtSULT 
END ELSE 
BEGIN 



*» PCDUP); 



X SAVE IT 



COMMENT SOURCE HAS 6 BlTS/CHAR; 

IF N>8 THEN PJLISH((STkING)<j.8I;08»38»10],N#CDC»DEL); 
P QLlSH(CSTRlNG[CPTR.ClB*l33»N-p.[35llQ3 1],DFL)i 



STREAMCRESULT*OiS*CSTRINGtPTR,C18«tO3 3 3#SKS*pTR.C28»03]» 

n#skd*8-n); 

BEGIN , 



SI* Si 

DItLPc RESULTS 

Ofl»N CHRJ, 



3i*Sl+5KS; 
Dl*Dl+SKo; 



Etfo; 

RESULT 
ENn; 



i« P(OUP); 



X SAVE IT 



IF NOT (PCTQPJ) THEN 



END S ;, 5 Q 1 



X IT IS BAD 
PURCW]&l[8»3&»lQ3#0,COC);x FLAG It 



PBOCCDURE SCAN(UPDPDO*PTR*UPDCOO#HlScOUNTfCASECOOE#CHAR); 



08401800 

08402000 
08 4 02010 



0000 1.0 
0000*0 
0000*0 



08402200 
08402400 

08 00 2600 



0000*0 

0000*0 
0000*0 



08*02800 
08402900 
08402925 



08402950 
08403000 
08403100 



0000 10 
0000*0 
OOO Q tQ 



0000*0 
0000*0 

0005*0 



0005*3 

0010*2 
0012*0 



08403200 
08403400 
08 40 3600 



08*0.3flQ.Q 
08404000 
0R404300 



0013*0 
0014*1 
0014*1 



00l8*l 
0021*3 
0Q24;Q 



08404400 
08404600 
0flA04fl00 



0027*0 
0028*1 
0028*1 



08405000 
Q84Q5200 
0B4()5^OQ 



08405600 
0840S800 



0029*0 
0029*3 
0032*0 



08406200 
OR406400 
Qw4Q<SA0n 



0032*1 
0033*0 
003 310 



08406800 
08407000 



0033*2 
0033*2 
00 37*0 



0039*3 
0042*1 
0043 *2 



08407400 
08407600 

08407800 



08408000 
08408200 
840840 n 



004312 
0044*1 
0045*0 



08408500 
08408510 
06408600 



0045*2 

0045*3 

-0.046*2 



0046*2 
0047*0 
0049*1 



START OF RFL 



SIZE« 0050 WOROS 
08410000 T 000010 
SEflMFNT* DISK ADQRPSS ,» Q0558 



57| 



• • 



rT 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

Z5 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 



VALUE PTR, HlSCLUNT* CASECOQL, CHAR; 

NAME uPDPDD* UPDCDD; 

IKTF.G6.R PTHt hISCntlNTf CAfiECUDE* CHAR? 



BEGIN 
C OMME NT 



REl ATldN 



xHTl f 



UNTTL 



084 
084 

oaa 



084 
084 
0*4 



0050 T 
0100 T 
0150 T 



0200 T 
0250 T 
Q3QQ T 



0000«0 
0000*0 

oocoto 

000010 

ooooto 




4 



20 
16 

-U- 



084 
064 
084 



350 T 
0400 T 
0450 T 



ooooto 

000010 
QQGOtO 



s 
< 
> 



16 
JiO_ 



8 

4 

J3_ 



084 
084 
084 



0500 T 
0550 T 
0600 T 



0000 »0 
0000»0 

ooonto 



IN ALPHA 



24 



29 



084 
084 
064 



0650 T 
0700 T 
0750 T 



OOOO'O 
0000»0 
QQOOtO 



NAME MS2* 

ARRAY STRING0ESCC*3J 

INTEGER OURCOUNT* WOFSET/ 



ChQFSpT* N» N_jj JUNK»^7J 



084 

084 
Q84 



0800 T 
0850 7 
0900 T 



000010 
0000*0 

ooooto 



BOOLEAN 
DEFINE 



more; 

pws[i8Ji0]#» 



PCeC28t033#» ... C.5.I ZE> [ 31 5 02^ »» 
ALQNE«g777777»»FQFSETE[iati3l»; 



084 

08« 

0H4 



0950 T 
1000 T. 
1050 T 



0000*0 

ooooto 
ooootn 



SUBROUTINE 
BEGIN? 



charscan? 



084 
084 
084 



ilOO T 
U50 T 
1200 T 



ooooto 
ooooto 

QQQUO 



comment scan f 
streamcn* chof 

00*CSTRlN 



INGQ 



OR CON pi 
SET' ChA 
FSCCWOFS 



T10NS OTHER THAN ALPHA MEMBERSHIP,? 
H t DD1*C5TRIN60ES.CC0]], casecode, 
FT 3 J 3 > 



084 

084 

-084. 



1250 T OOOltO 
1300 T OOOltO 
13 50 T 03*0 



BEGIN 

si*do; 

DI»Lnc CHARj 



si*si*chofset? 
oifrOi+ft; 



084 
084 
084 



1400 T 
1450 T 
1S00 T 



0003t3 

0003t3 
0004 tg 



ci*ci+casecoue? 

go to le; 
go ro GC; 



j- 



*oo 
*Qi 



08" 
084 
084 



1550 T 
1600 T 
165 T 



0005t0 
0005t2 

0005*3 



GO 
GO 



TO 
TO 



NE 

EQ 

_LS 



*02 
X03 
*0fl 



084 
084 
084 



1700 T 
1750 T 
1800 T 



0006t0 
0006*1 
000 6*2 



*GQ TO G 
GRJNCIP SCS 



r; 

DC THEN 
DC THEN 



*P5 

jump out 
jump out 



TO 
10. 



XX? 
JQLL 



DUDI-i)? 

di+oi- i >; 



GO 



TO 
10. 



xy; 
xy? 



084 

084 

-0-8J. 



1850 T 
1900 T 
1950 T 



0006t3 

0006t3 
0Q09tQ 



EfltNClF Sc* 
NEtNCIF SCs 

Q £*NUF SC < 



DC THEN JUMP OUT TO XX? 01*01-1)? GO TO XY; 
DC THEN JUMP OUT TO XX? 01*01-1 )? GO TO XY? 
DC THEN JUMP OUT TO XX? QI>DI»l); GO TO XY? 



064 
084 

0H4 



2000 T 
2050 f 
2100 T 



0011*1 
001312 

Q1 5? 3 



LEtNUF SC>DC THEiN 
XY»TALLY«-1? 
XX»N»TAL,L.t; 



jump out to 
si«-si*i; 

SI»$I*li 



XX? DI*DI-1>? 
CHAR + SW 



GO TO XY? 



084 

084 
0h4 



2150 T 
2200 T 
225 T 



0015*0 

0Q20ti 
QQ20»3 



45 
46 
47 
48 
49 
50 
51 
52 
S3 
54 
55 
56 



SI*DOl? CHQFSET4.SI? 

end; 

CHQFSET*PQLlSH(SUB,0uP),U8ti53? 



084 

084 

_0_M 



2300 T 
2350 T 
24 00 T 



0021*2 
0022t0 
QQ 22«1 



*HE ONLY NEED 
^OPTIMIZE ll8t 

wqfsf.t*pqiish> 



[30.Q33> 
15] TO A 
[33*153 j 



BUT R£ST QF FIELD 
N "FTC" OPERATOR. 



IS AND ESPOL KNQ^S TO 



064 

SLhA 



2 450 T 
2500 T 
2550 1 



002410 
0024*0 
0024tQ 



M0RE*P0LISH? 
END OHARSCAN? 



084 
064 
064 



2600 T 
2650 T 
2700 T 



0025*0 
0025*2 
0025*3 



SUBROUTINE 
BEGIN? 
COMMENT 



ALFSCAN? 

WHILE IN ALPHA, UNTIL IN ALPHA? 



084 
084 



2750 T 
2800 T 

285 T 



0025*3 
0026*0 
002610 



STRCAMtCHQFSET, S*ITCHER*CaSeCOOE* 
DD*£ ST81NG0E SCt WOFSET 3 J)? 



N t D01*CSTRlNGDESCC033* 



084 

084 
084 



2900 T 
2950 T 
3000 T 



0026t0 
0027*3 
00 28 *2 



ft 



si*dd; 

ci^ci+swiicher; 
G O TO ftA L r; 



b X*SI + CHQF3ET J 



08« 
084 
084 



3050 
3lOO 
AjL5-Q- 



T 0028 
T 0029 

j — Q-flza 



2 

3 

4 

6 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

« 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 "" 

38 

39 

40 

41 

42 

43 



UALf'NUF S»C«ALPHA THEN jUMP OUT TO XX ELSE !>I*SJ + 1>; 

GO TO XYJ 

WALMNCIF Sc»ALPHA THFN ST»ST»1 FLSE JUMP OUT TO XX 1 1 



084 

08« 
Q»4 



3200 

3250 
3300 



T 0030 

T 0032 
J 0J112. 



XYiTAlLV«-i; 

xx!n«-tally; 

SI»0Dlf 



switcher«-Si; 



ChUFSFT»SU 



084 
084 
084 



3350 
3400 
3q50 



T 0034 
T 0035 

-T 00 35 



END) 
M0RE«.P0LI*H> 
CHQFS£T»PQHSH(SU8,0UP).Cl8n53J*0PTlMIZED r^OlOa] ISOLATE, 



084 
084 
Q»4 



3500 
3550 
3ft0Q 



T 00 36 
T 0036 
J QQ36 



W0rSET<-P0Ll^H.C33: 153J 

end alfscan; 



084 
084 
Q84 



3650 
3700 
3750 



00 38 
00 39 
0039 



IF PTR»« THEN P<MKS>lNTCALU<»4)&iC2l47lU#FQRTERRI)> > 
IF PTR.C0l»0n THEN 

PtMUtl4|47l0n,PTR.C09i22l + (PTR.[33ll5 3«0),CHSjCDC,DEL )J 



08* 
084 
084 



3 755 

3760 
3770 



T 0039 
T 0046 
T QQ47 



if ptr.cSiZe'six the n 
stringdesc«-mcptrj; 

IF tOuRCOUNT»0&({»TRTNfiDESC)r3S<nflliQ3"PTR 



POL iShCM^iC 141 47«0l3# 8686* CDC DE*-i ; 

PQFSET? <Q THfcN 



084 
08 4 

084 



3800 
3850 
3900 T 



T 0051 

T 0055 

0057 



P0UISH(CSTRING0ESCCPTR,P0FSET3 3); 
IF HISC8UNT S THEN 
REGTN Upn<-DnC03«.Q;UPnpnnt03»PTB-»0itWQFSFTrtfll3sll3];pCXrT)fFK|p; 



084 
084 



3950 
3960 
3JL7. 



970 T 



T 0060 
T 0062 
Q .0 . 6 



1062 



IF SHI8.C0UNT*.<J.uNK*hISCDUNN«[33ll5j><QURCQ0NT 

ourcount«-hiscuunt; 
wofsft»ptr«pw; chqfsft»ptr,pci 



THEN 



08 4 
084 
084 



4000 
4050 



100 T 



T 0Q66 
T Q068 
042 



mux 



char«.0&char[36«42j06 3; 

n«.nuourcount; 

if CASFcnnF> , i then 



CASEcOOE*CASEcODE.C43*033i 
M0RE*TRUEi 



084 

084 

-0#4- 



4150 
4200 



0072 
00?5 



4 250 T OO-Wt 



BEGIN 

CASEC.0DE>CASE000E«7; 
IF N l> 63 THE N 



084 
084 
084 



4300 
4350 
4400 



T 0078 
T 0078 
J OQflO 



BEGIN 
N*63; 
OtJ ALFSCAN 



UNTIL fNl»M»63)*63 OR MOT MHRF1 



084 
084 

084 



4450 T 0080 
4500 T 0081 
4550 T — 0062 



N*Nl> 

end; 

IF N>Q AND 



HQRF THFN Al FSCA.Ni 



084 
084 
084 



4600 

4650 



T 0086 
T 0086 



4700 T 0086 



END ELSE 

BEGIN 

IF N1>63 THFN 



084 
084 

084 



4750 
4800 



T 0090 
T 0090 



4850 T — 0092 



BEGIN 

N*63; 

DO CHARSCAN 



UNTIL (M«-M"63)<63 OH NOT MORE; 



084 

084 
Qfl4 



4900 

4950 
50QQ 



T 0092 
T 0093 
T QQ94 



45 
46 
47 
18 
49 
SO 



N*NH 

end; 

IF N>0 AND 



MORE THEN CHAHSCANJ 



084 
084 

084 



5050 
5100 
5150 



T 0098 
T 0098 
I 098 



51 
52 
53 
54 



55 

56 
57 



end; 

IF HISCQUNT>OU»COUNT ANQ MURE THEN 

PQl.lSH(CSTRlNfaDESCCCHQFSETav<nFSET[30l33ll5n 



3_LL 



IF POLiSH(.U^OP0U,tOD,RFB*.UPDCDD*L0D#RF8^OR)^0 THEN 
BEGIN 
H0FSET»CH8FSEUw0FSETC30r33U53«PTR.Cl8ll33; 



UPDCDDC03 »>HlScaONT"WOF3ET; 
UPDPDDC03*PTR+O&wOFSET[l8»35jl3 3; 



END SCAN; 
P R QC F DURE B EPLii 



084 

084 

JLBA 



5200 
5250 
53Q0 



T 0102 
T 0102 

1 Q1Q3 



084 
084 



5350 
5400 
«U10_ 



T 0105 
T 0107 
I QlQfl 



084 

oe* 

084 



5500 
555Q 
54*00- 



08415650 
084200Q0 



T OHO 
T 0112 

4 «UU 



S 



T 0114 
IZE» 01 

$ tmosx 



l 

5 WORDS 

h 



• • 



ft 



9 
10 



11 
12 
13 
14 
IS 



16 
17 
18 
19 
20 
21 



22 
23 
24 
25 
26 
27 



29 
90 



31 
32 



33 
34 



35 

36 

37 " 

38 

39 

40 

41 

42 

43 



45 
46 
47 
49 



49 
50 



51 

52 



53 
54 



BEGIN 
COMMENT 



START QF KEL 



STRING REPLACE INTRINSIC FOR B5500 TS ALGOL 



MARCH 1968, KATCHFORD 
8-BIT CHARS* WORD XFERS 
D EF INE 



segment; disk 

08420020 

fl4 ? Q040 



& UNCONDITIONAL XFER AODED APRIL 1968 HJR; 



CS iZe* C 31 *02J*^ £IGHT = 01*> TC0ND*45#* DOT* [ 18 » 1 31 *» 

0ECNVRT=(-32)## 

AMPERsfla*35»13J** 



P0TZ*IF 
ARRAY 
SORCf*] 



PEST C * 3 

NAME 
UPUPDD 



S8 THEN OS*l SET ELSE 0S«-1 RESET; SKIP 1 Se*#i 
l COMMENT OESC FOR SOURCE STRINIfli 



UPSPOD 
UPCTOO 

M 



; comment data qesc for destination string; 

'■08/ COMMENT DESC FOR UPDATE HEfiT PnlmTERl 



»"06# COMMENT OESC FOR UPQATE SOURCE POINTERS 
»*04, COMMENT DESC FOR UPDATE COyNT VARIABLE* 



INTEGER 

QPTH 

SpTR 



*-07' COMMENT DESTINATION POINTERS 

3 'Q^ C O MMENT SOURCE POTNTFR OR- 1 IX ) 8 LI T E R AL CHRS, 



8 ONLY IF LITERAL IS ARITHMETIC; 
HISCNT a»03» COMMENT CALLER M S IDEA OF HqW BIG M A XcoUNT JS; 
RF L ATION s«n2, criMMFNT SteTTCH TKinFy FDR sf/ih rnnF. T wr l^ n F v 



values are supposed to 
anu scan. relation is 

A LITERAI ANn ys >o jr 



BE THE SAME FOR Rf.PL 
<0 IF THE SOURCE IS 
SOURCE IS A PQIN Te^ 



char 
chari 



CHAR.N 
SQPCL 
DFSTL 



COMMENT COMPARE uSES THE SAME VALUES OF rElAT; 
•01* COMMENT THE WHILE/UNTIL COMPARISON ChAR; 

COMMENT SQAftFoRMAT ADPR OF 1ST XFERRED cHAH; 



SWI»CHARI' 
OURCNT 



f COMMENT SPA FORMAT AODR OF LAST X f "ERHED CHAR; 
■CHAH1#C.QMMENT LENGTH OF SOURCE CALCULATED BY U a ; 
= CHAHN. COMMENT RFMAIMMf, CHARS Ik. DE.ST STRTh.fi! 

OWlacHARN# IT£HC# 

> COMMENT SAFE MAX LENGTH FOR REPLACE, 
FOR POlNTFR-SOURrP* M TNf HIsr.N T.SQRr.L. n F STL ), 



SOFF 
_S_S_IZ£_ 



DOFF 

OSU£ 

UPPTOG 



FOR LITERAL SOURCE* MIN( DESTL'H I 5CNT ); 
t COMMENT CHARACTER OFFSET IN SOURCE; 
aSpFF^CHMMENT SOhHCF CHAR S IZE (rt HR 8 BJJ^/£HjgilJ 



JUNK 
TOGL 
REFETCH 



* comment character offset in destination; 
sd0ff#c0mment dest char sue; 

> COMMENT TRUE IF ANY UPDATED) REQUESTED; 



= 17i 



INITIAL 
BOOLEAN MORe; 

ARRAY NAMF 



COMMENT USED FQR BUILDING CONCATENATED LI T RU; 
> COMMENT "TOGGLE" FOR REPLACE WHlLE/UNTIL;- 
s TqgL*CQMMlnT THE "INVALIDATQR" FOR REpL UnTIL; 
-TOGlKQMMENT LOCAL 4 USE BY REPl FROM LITERAL; 
^CONDITIONAL REPLACE ISN"T DONE YETt 



SORCI 
DESTl 

SUBROUTINE 



-50RCC0MMENT INDEXED DESC 

=uest;comment INCEXED data 
crepl; 



FOR PQINTtR-SQURcE^ 
DESC FOR OEST STRING; 



begin; 
stream(doff*cha«,soff«it£hc#mj)re«.oi 

01»CDEST[Qn*St»t30RCt03 3*RELATlON>T»Q»S2»lSQRCCSwi3 3» 

D2*-[0ESTCUrtl] J ); 

BEGIN 

Di»DH-DriFK; o2»ui; oi»luc char; 



DI*0I+6J , 

:..'..,-:lIBrC(ClVcX*li 



t*dj; 



Si*S£; 



ADDRESS * 

T 0000*0 

J- QQQQ*0 



00562 



08420060 
08420080 



000010 
0000^0 
QQQQtn 



08^20120 
08^20130 



0000 '0 
0000 *0 
Q00Q»0 



08420160 

08420180 
08420300 



000010 
0000*0 

QQQQtQ 



08420220 
08420240 
084 ?Q?6Q 



0000*0 
0000*0 

ooootn 



08420280 
08420300 
08420320 



08420340 
08<*?0360 

06420380 



000010 

ooooto 
000010 



0000*0 
0000 JO 
QCCOtO 



06420400 
08420420 
Q842Q44Q 



08420460 
08420480 

o eoz nsoc 



0000*0 

0000*0 
0000*0 



0000*0 
0000*0 

0000*0 



08420520 
08420540 
08420560 



0000*0 
0000*0 

onon 1 



08420580 
08420600 

06 4 20.62Q- 



08420630 
08420640 
QR42066Q 



0000*0 
0000*0 
0000*0 



0000*0 
0000*0 
QQO QJO 



08420680 
08A20700 
084^0720 



08420740 
08420760 
Q R4 2Q78 Q 



0000:0 
0000*0 
0000*0 



0000*0 
0000*0 
QQQ QiQ 



08420800 
08420820 
084206<i0 



0000*0 
0000*0 
0000*0 



084208*0 
08420870 
0fl430flBQ 



08420900 
08420920 

84 2 092 1 



000010 

ooooto 

0000*0 



08420922 
08420923 
08420924 



0000*0 
0000*0 

ooooto 



08420925 
08420926 
08420927 



ooono 
000 no 

0002*2 



0004* 3 
0005*? 
0005*2 



08420928 
08420929 

08420930 



0006*2 
0007*1 
0007*3 



2< 

3 

4 

si 



6 

7 

a 
9 
10 
11 ' 
12 

13 

14 1" 

15 

16 

,7l 

IB 

19 

20 ( 

21 

22 

23 1 

24 

25 

26 ( 

27 

28 

29 \ 

30 

31 

32 \ 

33 

34 

35 { 

36 

37 

*>< 

39 

40 

41 4 

42 



45 

46 

47 < 

48 

49 

50 i 

51 

52 

53* 

54 

55 



GO 

GO 
j£0_ 



TQ 
TO 

ILL 



u; 
Gt; 

ise; 



08^20931 T 
08^20932 T 
08420933 T 



0008«3 
0009*0 
000911 



GO TO £8; 
GO TO Li»; 

tan to gr; 



08420934 T 

08420935 T 
08 4 309 36 T 



0009»2 
0009*3 
OQlQlQ 



9 
10 
11 
12 



griif scsoc then; gu to xx; 
ls»i.f sc>uc then; go tg xx; 
EQ.UF SC'DC THEN? GQ TO XXi 



ne*if sc»oc then; go to xx; 
GEUf sc«oc then; go to xx; 

IF1TF Sr>£)C THEM *GU Tn XVI 



08420937 T 

08420938 T 
Q642Q93V T 



0010*0 
001053 
00 11 '2 



08*20940 T 

08420941 T 

08420942 T 



0012*1 
001310 
00IBI3 



XXMF TOGGLE 

s.itsi-i;. 

02*0Ii 



THEN JUMP OUT TO 

. 0l.*02i. 
lll±U 



XY; 



DS*chr; 



08420943 T 
"08420 944 T 
08420945 T 



00141 1 
0.01510 
00 1 5*3 



13 
14 



15 
16 
17 
18 



); 

TALLY«-U 
XY*MORF»TALLY* 



susj + i; 



CHAR»SU 



00420946 T 
08420947 T 
08430948 T 



0016* 1 
0016*2 
0017*0 



si*s.u... 
iterc>oi; 

XJsUU 



DQFF*Si; 

di«-oi; 



01*02; 
soff*di; 



08420949 T 

08 420950 T 
08 4 3 951 T 



0017*3 
0018*2 
19 * 1 



19 

20 



21 
22 



more*polish; 
ooff+polish(sub#dup).[ 18* 153; 

DWl»F0HSH.C3Htlb1; 



^OPTIMIZED [30*03! ISOLATE. 



08420952 T 0019*2 

08420953 T 0020*0 

0842095 4 T 0021*3 



23 
24 



S0FF*P0LISH(i08»DUP).tl8*lb.]; 

J>Wl«-POLlSH.,C33»lb3; 

E N D C OND I T I ONA L REP LA C E; 



08420955 T 

08420956 T 

08 4 209 5 7 j 



0022 J 3 
0024«2 
0025*2 



25 

26 



27 
28 
29 
30 



SUBROUTINE CRa; 

BEGIN; COMMENT CONDITIONAL REP 
STHfAM(OnrfjTl«,n,SOFr'TTFHC.MQRF . 



LACE-ALPHA TEST; 
«fOt 



08420958 T 0025*3 

08420959 T 0026*0 

84209 6 T 026*0 



Di*COESTCOn#Sl«.!;SQRC.CO]3.,RELATlON*S2»ISORCtS>nJ# 

02«-COESTtOWI.]]J; 

HFGTN 



08420961 T 

08420962 T 

08420963 T 



0027*2 

0029*2 
0030*1 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 



di*oi+dqff; sus2i 

iterc<ci*ci+relatiqn; 

go to whileinalpha; 



SX + SUSOFFJ 



084209*4 T 
08420965 1 
084P0966 T 



0030*1 
0031*2 

003?*? 



UNTJLJNALPHA* |F SC : 
rtHlLEINALPHAHF SC 

xxtpb4-CHR); 



•ALPhA THEN 
(ALPHA THEN 



JUMP OUT TO XY' GO TO XX' 
ELSE JUMP OUT TC XY; 



08420967 T 

08420968 T 

08420969 T 



00 32*3 
0034*0 

0035*1 



tally*i; 
xy*mqre*tally; 
Si»Si; 



iterc*si 
soff»si i 



u*oi; 
di»qi; 



08420970 T 

08420971 T 
0fta30973 T 



0035*3 
0036*0 
0036*3 



40 

41 



42 
43 



DOFF*Dli 

end; 
more-polish; 



S0FF«-P0LlSH<SUB#DUP).tie*153; 
SWI*PQLISH. £33*153; 
DnrF«.PnLlSHCSUBjDUP).MfHlS3J 



08420973 T 

08420974 T 

08420975 T 



0037*2 
0037*3 
0038*0 



45 

46 
47 
18 
49 
50 
51 
52 
S3 
54 



08420976 T 

08420977 T 
08420078 T 



0038*2 
0040*1 

QOflU 1 



.IE. 



0WI*PQLISH. [33*153; 
END CONDITIONAL ALPHA 
DPTR. [01*013 THEN 



replace; 



08420979 T 

08420980 T 
08420961 T 



0043*0 
0044*0 



P(M41Cl4t47l0l3#DPTR. 
IF (SPTR»0 ANO RELATION. 
THEN P(MKS*INTCALL( 



[09*22 3+ COP 

U»l3»Q) OR 
C-4)M[2»47 



TR # E33»15 3X0)#CHS»C0C*0EL); 

OPTR'O 
m^FORTERRI)) ; 



08420982 T 

08420983 T 

08 4 2 0984 t 



004812 
00531 1 
00 5 51 3 



56 

5. 



DEST*M[QPTRj; 

DSIZE*IF DPT8,CilZE«EIGH 



-I 



SSlZEMF 9PTHtC9l2E*E 
ELSE SSI 2E«6* 
IF TQ flL A NO DS IZ L/SSIZF 



T THEN 8 ELSE 6; 
3 = 0? TH E N 



IGHT THEN 8 

COMMENT 
THEN 



ELSE 6 
LITERAL OR AEXP SOURCE; 



08420985 T 
08420990 T 

08420995 T 



0060*1 
0061*3 

0065*0 



08421000 T 
08*21020 T 
08421040 T 



0066 1 3 
0069*3 
0O7U3 



• • 



> 



1 

2 

3 

4 
5 

a 

7 
8 
9 
10 
11 
12 
13 
14 
15 



16 
17 
18 
19 

I 20 
21 
22 

I 23 
24 
25 

! 26 
27 
28 

i 29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 

te 

49 
50 
51 
52 
S3 
54 
55 
56 



POL I SH ( 0EST& 1 C08 * 38*10] #6-86, CDC* DEL >* 
UPDTOG* 

pnLisH( t u PnRHD» , . L r i ntRFB* . uPsPDnt u on > HF i i»>nR< > upcTnn» L un> RFH» oh ^of 



IF HISCNT SO THEN 

BEGIN UPCTODt03*o;UPOPDD£O3 
IF DSl Z gae THEN 



•dptr;upspdd[oi*sptr;p<xit);end; 



BEGIN 

COMMENT ...CHAR-SI2E OF DEST SIRING IS 6 

IF HH AriON.[4?tQ6 irf-rcnMU OB -EJ^XlilN 



BITS/CHAR' 
jQECNVRT THEN 



PQLISh(0EST&i£08«38I10 3»7777»CDC#DEL); 

comment only unconditional xfers allowed for 8-bit chars; 

if art ATiON.rAmnn*! thfn 



BEGIN 

COMMENT SOME KIND OF ...NURD- TRANSFER;. 

npTR < nnT,«-ftx(D [ jFF»{npThtnnT»5) o i v 6) ? 



%FOR UPDATE , 



COMMENT DOFF.OEST INDEX, ROUNDED UP TO NEXT WD BNDRy; 
OURcNT*HISCNT,C38U03; COMMENT # WORDS TO TRANSFER; 
IF (DnFF»0>,iRCNT)>(PFSTUrQflnn3 THEN 



POklSH(tDESTC£U£ST.C8ilOl}J3); 
COMMENT WE CAN"! uSE AUTO-lNDEXlNG TO CHECK THAT THE LAST 
CHAR IS STILL r NSTOt ThE ARRAY ROW, BECAUSE T7 H S OK F UR 



(DOFF+OURCNT) TO * SIZE(DEST). USING AUTQ-InDEX ING WUULO 
PRODUCE AN INVINX UN REFERENCES TO THE LAST CHAR OR WORD; 
COMMENT INDEX CHECK FnR L_ST«TRA>_SFFRHrn nnnni 



IF TQGL THEN 

BEGIN 
CUMMENT HflRD-XFFR 



FRQM POINTER SQURCFJ 



IF SPTR.tO 1*0 13 THEN 

PCN&l CH* 47 :OU,SPTR.C09$22 3 + £SPTR,C33t 153^0 ),CHS, CDC); 
s_Rr..Mr_PTtn> 



5PTR,_flT*6x.C.5_FE>C>fcTR..D.QT*5) UIV 6); 
IF (SOFF+0tRCNT)>(SORC) f 10B»103 THEN 
PpLlSHttSQRcCCSLiH C. C8t 103)3 3); 



comment index check for last word of source; 
if ou«cnt>o Then 

STBEAM( SOURCE* CSQHCtSOFF 3 3> 



Nl«-QURCNT,N*«-0URCNT i [38JO4 3#OESTAD«-tDEi>T[DOFF3 3 ); 
BEGIN 

Sl»SUURCEi 



DS*Ni wds; 

eno; 

END ELSE 



N2£2(DS«-32 WDS?); 



8EGIN 

COMMENT WQHD XfER FROM 

S0RCL»Hl5CNT,Cl8: 1 b 1 i 



LITERAL^AEXR SOURCE; 



if sqrcl*o then sorcl*hiscnt; 
initial*if ourcnt>0 then 1 else 
ourcnt»Uurcnt-initial; 



o; 



If INITIAL>0 THEN 
STREAM (ST ART «-SPTR# SURcL* 
S0FSET»8-SQRCL,IN1*£JLjNK»8 



IN IT IALtNi*0URCNT#N2*0URCNT.C 381043^ 
OESTA0*COE$TCDQFF33,LOCL*CJUNK3); 

BE__3M 



DIV SQRCL)*In2»8»JuNKx<;UBCI * 



si«-loc start; -usi+sqfset; 

S0FSET4-SI; 

IN1C0S»SUHCL _HRi ST«-SDrS_T); 



ad; 



»■■■-'-- ■■■- ' -•■■■ 



DSTNXflAL wds; 



08421060 
08421080 

oa « 2 i ioo 



08421120 
08*21130 
8 4311 ^ 



00/3 ! 

0075*3 
0Q/ .J 3 



08421160 
08421180 
QR4?1g00 



08*21220 
08421240 

08421260 



0079»2 
0080*1 
83M 



00 8 k 1 
0084.12 
0064*2 



08*121280 
8423-300 
_a_2-l___- 



0087*0 
008913 

nneo»3 



009110 

009112 
Q093 »2 



08421340 
08421360 

08 4 2 1 3 8 



08421400 
06421420 

06421440 



0842H60 
08 #2 1480 
06421500 



009513 
0095*3 
009710 



009910 

0100*3 

__i__l3- 



0100*3 

0100*3 
010 0*3 



06421520 
08421540 
Qfl^Pl^-Q 



08421570 
08421571 

08421580 



0100*3 
0101*0 
01 01 12 



08421600 
08421620 
08421640 



OlOl*2 
0l02*i 

0106* 3 



0108*1 
0112*2 
0114*P 



08421660 
08421670 
08421680 



08421700 

08421/20 
6 4.1 /40 



08421760 
08421780 
08421600 



0116*1 
0116*1 
0117*0 



0118*1 
0120*0 

01 20*0 



Oi20*l 
0122*1 
0122'2 



06421820 
06421840 
08421860 



08421880 

08421900 
QB4_1920 



08421930 
08421940 
08421960 



0122*2 
0125*0 
0125*0 



0126*1 

0126*1 
0131*0 



08421980 
06422000 

06422020 



0132*1 
0133*0 
0134*1 



08422040 
08422060 

08422080 



0137*2 
0138*3 
0139*3 



08422100 
08422120 
08422140 



0139*3 
0140*2 
01 4Q* 3 



0142U 

014213 
9WM 



2< 

3 
4 
5< 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 

14 



IS 
IS 



17 
IS 
19 

20 



21 
22 
23 
24 
26 
26 
27 



28 
29 



30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

« 

44 

45 

46 

»7 

IS 

49 

50 

51 

52 

53 

54 

55 

56 



si«-uestad; 

N2C2CDS+32 

XNJli 



0S*N1 



KD3. 



JJL 



ourcnt«-ourcnt+ initial; XNECESSARY 

CN0JXOF LITERAL/AEXP SOURCE* WORD 
nPnTnr. Turn c.HLR+nuHrnj*A i 



FOR UPDATE CAl.CS* 
XFER 



END ELSE X*QRD XFER.TO 8 BITS/CHAR DEST IS DONE 

BEGIN 

COMMENT CHAR XFER TO R BlTS/ThAH HF&T* 



D0FF*0t0PTRC3a»18U3j; *8IT"0FFS£T In OEST STRING 
0oRCN*»0iHlSCN?Cl2«35U3); ILEN6T* OF XFER IN BITS 

if (nQFF+oUHCNT)>(oeST) , t08 U oi*aa THtN 



JLL 



POLiSHCXDESTCtOEST.XaHOl)]]); 

COMMENT SIZE FIELD IS IN HdS* INDEX 

TQflL THEN 



IN 8-BI1 CHARS; 



BEGIN 

COMMENT SOURCE IS ALSO 

TF 3PTR.rO.IQl1 TWPN 



AN 8 BIT/CHAR POINTER; 



P(M&l(:i« U7s0 n^PfR,C09;i;2] + (SpTR t [33li5]/0 3,CHS,CDC); 
S0RC«,M[SPTR3; SOFF«.OSSPTRt32»i8»i33; *BiT OFFSET 
If (S0FF-»nuRcwn>f5QRni T r0R iioiKa8 Tur N 



POLISH CESQRCCcSURC.teUCOn 3); 

togl*sqff oiv U&i 

IF OURCNT>0 THF-N 



JUNK*D0FF DIV 481 



STRCAM(5TA.fiT*SnFF - TU&Lx48#FlNl5H«-00FF"J0NKxfte> 

SOURCE*[SOR.CCTOGLJJ, 
Nl»0UHcNT»Ng»0URcNT.r37lO5]»N3»0URr:NT,[3gl05Ji> 



OESTAD*CDESTCJUNKJ))i 
BEGIN 

si*suurce; skip start 



_S_BJ_ 



Nl(FUT2); N2(2(32(P0TZ))); 
COMMENT ANY <L0CAL>*0I WILL ROUND 
N3(2(32C32(P0TZ)))1* 



SKIP FINISH Qb; 



bit index to cha« ; 



end; 

END ELSE 
BEGIN 



COMMENT LITENAi./AEXr (6-BIT) SOURCE* 8-BIT OEST; 
S0RCL*HlSCNT,tl8» 15J; 

IF sqrclsQ Then sqrcl+hiscnT; 



initial*if 0urcnt*46 then 
ourcnt*ourcnt-initial; 
if initial>0 then 



48 ELSE OURCNT; 



IF INITIALSSORCL THEN 
BEGIN 

JUNK»DQFF DfV 48* 



ST«EAM(SPTR#S0RCL,S0FSET*8-S0RCL# OURCNT* INITIAL* 
00FSET*D0FF-JUNKX48#D*£0ESTf.JWNKn); 
&LSkJH ; 



SKIP DOFSET Db; 

si«-si+SQFSEr; 



si*loc sptr; 
qurcntcpqtz); 



END ELSE 
STREAM<START*SPTRrFlNlSH*SQRCL> 

SQFSET»a«S0RCLjlNl»tJUNK<.8 DIV SnRCLi*IN2»8-JuNKxSQRCL* 



lN.lTlAL#Nt*0URCNT*N2*0UBCNT»C3/|05 3,N3*OURCNT.C32iO5 3# 
UESTAD*tOESTCUUi\^<-DOFF DIV 4833* 

DQf^T , »P0rF-JlNK»4a»SET n; »U U NKl)l 



BEGIN 

M»t«C START J Sl*9l*S8*Srr J 



S0FSET*SI, 



08422160 
06422180 
08422200 



08422220 
08422240 

QB42t?2ftO 



014313 

0144*2 
0146*0 



08422280 
08422300 
08422 32 



0146*1 
014712 
014718 



08422340 
08*22360 

"8 1 32380 



08422400 
08422420 
CL8iL2Z4iL0 



014912 
014952 
015080 



0150«0 
0l5i*3 
Ol53 » g 



08*22460 
08422480 
n%ztgffiiOn 



01-56*0 
015713 

01i>7t 3 



08422491 
08422500 

08422520 



015810 
015812 

0158*2 



08422540 
08422550 
08422555 



0842256Q 
08422580 
0842^600 



0159* 1 

.01.6.31.3 
Ql67'0 



0169*2 
0171*1 
017311 



08422620 
08422640 
0fl4g266Q 



Ol74»2 
0.177 « 3 
0l78'l 



0180*0 

0l80»3 
0180*3 



08422680 
08422700 
08422720 



08422740 
08422760 
0fl4?27B0 



0182*0 
0187*2 

Q187*? 



08422800 
08422820 
08422840 



0191H 
0191*2 
Q 1 9 1 f ? 



0.192*0. 
0i92*0 
0193* 1 



084 22860 
08422880 

Qaigaaas 



08422890 
08422891 
0fl4?2R9? 



0195*1 
0198*0 
Q 1 99M 



08422893 
08422694 
Oflt4??ft9S 



0200*0 
0201*1 
0?0l»3 



08422896 
08422897 
0842?89Q 



0203*0 
0204*3 
0206 *3 



08422899 

08422900 
0W492Q20 



0206*3 
0207*2 
0210*1 



021011 
021012 
0211*3 



08422^40 
08422960 
08422980 



0215*0 
0217*0 

218 * 2 



08423000 T 0220*1 
08423020 T 0220*1 
08423040 T 0221*1 



"•"!• 



M 

3 
4 

H 

6 



9 
10 
" I 
12 
13 
14 I 
15 
16 



17 1 

18 

19 

20 ( 

21 

22 

23| 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 { 

33 

34 

35 ( 

36 

37 

38 4 

39 

40 

41 i 

42 

43 

44 % 

45 

46 

47*3 

48 

49 

50 f 

51 

52 

53 I 

54 

56 

57. 



• • 



>T 



as*iN2 chr; 

SKIP DORSET DB; 
IMT1AHPQT7)> 



SUSETUH 



di*destad; 



si^oestad; skip dofset sb; 

NHPOT2); N2C2(32(P0TZ)))i 
N 3C2 C 32(3? (PQ T Z? > )) J 



08423060 
08^23080 
0,8*23100 



08423120 T 
m 23 i 40 f 
QR42316Q T 



022213 
0223'3 
Q2?q*l 



022612 
0227*1 

Qaaan 



end; 
ourcnt*uurcnt+initiau^ 

E NDJltpF Q -b IT C H AR FPQh LI T/AFXP, 



08423180 T 02361? 
08423200 T 02361.3 
Qfi4?3220 T Q23R'0 



CHA«*flURCNT.EG9*36J> *0URCNT DIV 8 
END %QF 8-BIT CHAR XF£R 
END ELSE X 8«B lT P E ST FIMS HEn 



08*23240 T 0238*0 
08423260 T 023911 
QR42328Q T Q23911 



10 

11 

12 



COMMENT IF WE GET THIS F AN* DSJZE/EIGHT 

SPTR CAW. 7. BE 8 BITS/CHAR; 
IF REl.ATlBN,f4?»n61«UnNS Th£N 



& SSiZe*IJSUE' SO 



08423300 T 0239*1 
08423320 T 0239*1 
Q8423340 T 0239*1 



13 

14 
15 
16 
17 
18 



BEGIN 

COMMENT UNCONDITIONAL XFER 

IF RELATION. tOOlOllsl THEN 



OF 6-BIT CHARS OR nORDS; 



08423360 T 0241*0 
08423380 T 024l*2 
0W4a3A0Q T 09409 



BEGIN 

COMMENT WORD TRANSFER; 

bPfatD0t»0d(DQFF»(0tDPrRC35'tiflli3]»7)«C35llO3)C35l3ailon 



0URCNT*HlScNT,£38*l0 3i 

IF <00FF + 0uRCNT)>C0fcST)t£08a0) T 

gQLlSHC[DESTC(DEST.C8»103)33); 

mr.i t u r m 



08423420 T 
08423440 T 
08^23460 T 



0242*3 
0243*1 
024 3 M 



19 
20 
21 



HEN 



08423480 T 
08423500 t 
84 2 3520 T 



0248*2 
024913 
0251*3 



22 
23 
24 
26 
26 
27 



IF TQGl THEN 
BEGIN 
IF SPTR .[Qi: Qn 



THFN 



08423540 j 0253*2 
08423560 T 0253*3 
08423570 T 0254*1 



PCM&i[ift:«7>t0i3#SPTR.CO9t223 + (SPTR f t33*l53*0)#cH3# 

cdc*oed; 
comment pointer source; 



0842357* T 
08423572 T 

08423580 T 



255*0 
0259*1 
0JL5J LL 3 



28 
29 

ao 



SGHC*"MrSPTH3 " 

SPTRtbbT*0*CSOFF*(b&SPTRt35ll8:l3] + 7'),[35Uo3)C35i3B|lo3; 
IF caOFF*bURCNT)>CSORCi T [08t,l03 THEN 



08423600 T 
q842362q t 
984 23 640 T 



0259*3 
02*111 
0266 8 ? 



31 

32 

33 

34 

35 

36 

37* 

38 



P0LISHaS0RCC(50RC.C8*10J)3 3)J 

if ourcnt>o then 

STREAM C50URcr»[SQRCr SOFFIT 



08423660 t 0268*2 
08423670 T 0270*1 
0B 42 368Q T 271 * 



NU0liRCNT*N2*0uRCNT, [381043* 
(jESTAU«-tOESTLUOFF3 3); 



08423700 T 0272*1 
08423720 T 02?3«1 
084P374Q T 02/4*0 



susourcej 

US*Nl WDSi 
E N D* 



N2C2(0S*32 WDSJM 



08423760 T 0274*0 
08423780 T 0274*1 
Qflfl93fl0n y 037*11 



40 
41 



END ELSE %6-BIT POINTER SOURCE FINISHED FOH WD XF£R 

BEGIN 

COMMENT LITfRAL/AEXP SOURCE; 



08423820 T 
08423840 T 
Qfi4?3fl6Q T 



0276:? 
0276*2 
0277*0 



SQRCL«.HI5CNT,U8<153; 

IF SORCL*0 THEN S0RCL*HlSCNT ; 

INITIAL»IF OURCNT>0 THEN 1 ELSE 



o; 



08423880 T 
08423900 T 
0fl4?3920 T 



0277*0 
0278*1 
0280*1 



♦7 



QURCNT4.QURCNT- initial; 

STREAMC START «-SPTR#SORCL* INITIAL* 
S"FSE J» 8-S0RC L*I N 1«.( ^UNK»8 Q l V SURC L )* 



08423940 T 
08423960 T 
0B493980 T 



0283*0 
0284*1 
285*1 



49 
50 



IN2*«*JUNKxSQRCL*N;*0URCNT#N2*0URCNT.C38|04 3, 

oestao*cdestcdoffJ3* 

SETOI^tJUNKJjJ ., 



08424000 T 0287 11 
08424020 T 0289*2 
08424040 T 0290*0 



53 
54 



55 
56 



*1 



BEGIN 

SI*LOC START; 

SUFSET»Sli 



si«-si+sofset; 



IN1(DS*S0RCL chr; 
DS*1N2 CHRI SUSETDU 
S,TART»DU 



Sl*SOFSET)i 
OUDESTAO; 



08424060 
08424080 
08424100 



0290«2 
0290*2 
0291*1 



08424120 
08424140 
OB424160 



0291*2 
0293*0 

Q, 29 a «o 



55 
56* 

57 



n 

2 
3 
4 
5 
6 
7 



Di*INITIAL 

t-Np; 



wos; 

i\_(2(DS<-32 



si«-start; 



wDS)); 



08424180 T 
08424200 T 
Qaa?49?o t 



0294*i 
0295:0 
o?97in 



auRCNT«-OURCNT*lNlTlAt; 

ENOJXOF WORO-XFEW FROM LlT-AEXP SOURCE 

IF UPQTOG THEM CHAR»0_0URCNTC321351 l33f 



END ELSE fcwQRD TRANSFER DONE 

BE.IN 

COMMENT CHAR XfER FROM 6-BIT SOURCES; 



0842*240 T 
08424260 T 
OB434980 T 



0297*1 
0298*2 
2 9ft *? 



08*24300 T 
08424320 T 
0R4?434_ t 



0301*0 
301 VO 

3 1 1 2 



9 

10 
11 
12 

13 

14 

'*_ 
16 
17 
18 



DOFF*0PTR.0QTi QURCNT*HlSCNT , t 351 133 i 
IF (DQFF*0ttRCNT)>Q«<DESTH35i0aU0j THEN 
pdl iSHtrneSTrfnEST. rano] )3])i 



IF TQGL THEN 
BEGIN 
COMMENT SOURCE 



is a pointer; 



08424360 T 
08424380 T 
QB4244QQ T 



030l»2 
0304*0 

0306 1 2 



08424420 T 
08424440 T 
08424460 T 



308 * 1 
308*2 
0309*0 



10 
12 

13 

-*( 

15 

16 

t7( 

18 

19 

20 ( 

21 

22 

23 I 

24 

25 

26 ( 

27 

26 

29 4 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

4,1 

42 

43 

44 1 

45 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 i 

54 

55 

56* 



IF SPTR.COltOU THEN 

PCM&iri4»47l0i3#SPTR,CQ9*22]+CSpTR,C33ti5l*0)# C HS* 
CDCtDrLW , 



oorc«-m[Sptri; 

50FF«-QSSPTRC35ll8ll3i; . 
F (,^QFF tQURcNT>>,0&,(S,QRcU35<Qa» iM THEN 



-I 



08424470 T 

08424471 T 
0842447? T 



0309*0 
309 1 3 

31 ti I Q 



08424480 T 
08424500 J 
0842«520 T 



031452 
0316»0 
3 17*3 



19 
20 
21 



P0LlSH(£ s 0RCt(S0HC. [8*103)3]); 

IF 0URCNT>0 THEN 

5 TBE;AMC5 T ART»SPTR.raa*Q3 3«FINl5H»OPTR.faB»Q3 3* 



08424540 T 
0842«550 T 
08424560 T 



0320*1 
0322*0 
03 2 2*3 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 



lU«-QURCNT>N2*UURCNT.[37i05J>N3«-OuRCNT.t 35*02 3* 

S0URCE*CSQRC[.SPTR.C18»103 3 3» 

n E .S T a 1- C Q E S T T [3 P T K . C 1 b * 1 Q 1 1 3 ) * 



08424580 T 
08M24600 T 
fl 4 2 4( S2 



0-4 04 



0325*0 
326*3 
_XU- 



BEGIN 

si*source; si*si+start; 
huoi+finish; 



08424640 T 
08424660 j 
08484680 T 



0329*0 
0329*0 
329*3 



QS*N1 CHRi Is2C2(_S<-32 CHR)); 
•Mi(2l32(QS*32 CHR))); 
-EJ1DJ 



08424700 T 
08424720 T 
08424740 T 



330*1 
0332* 1 
3 3 4 * 



Ir- 



ENO ELSE XPOINTER SOURCE FINISHED 

BEGIN 

COMMENT LITFRAL/AEXP SOURCE* UNCQND XFER* 6-BIT DrST; 



08424760 T 
08424780 T 



0334*2 
0334*2 
033SIO 



34 
35 



36 
37" 



SQKCL+HISCNT. [18*15); 

IF SQRCL»0 THEN SORCL*H I SCNT; 

INITIAL+IF 0URCNT>7 THFN B FL.F QURrNT 



08424820 T 
08424840 T 
08424860 T 



335*0 
03361.1 
338*1 



38 
39 
40 
41 
42 
43 



0URCNT*0URCNT- INITIAL; 

IF INITIAL>0 THEN 

IF INIT IAL- S QRCL TH F N 



08424880 T 
08424885 T 
QR424a9Q T 



0341*0 
0342*1 
0343*0 



STREAMCINITIAL'SPTR'SSKP* 8'S 

D0FSET*DPTR.C28l0jJ,DttDES 

BEGIN . 



ORCL* 
TCDpTR,tl8«lO]))); 



08424891 T 
084248.92 T 
08424 8 9 3 T 



0344*1 
0346*1 
0348*1 



45 

46 

47 

•a 

«9 
50 
51 
52 
53 
54 
55 
56 



di+di+oof-ET; 
si*si+sskpj 

ENO ELSE 



si*loc sptr; 
0s*initial chr; 



08424894 T 

08424895 T 

08424896 T 



0348*1 
349*0 
3^0*0 



STREAM<START«-SPTR*5QRCL» INITIAL* 
iOFSET*8-S0RcL# INI *• C JUNK<-8 .01 
lN2»6«JUN KxS Q HCL »Nl»QURCNT»N 2 



V SQRcD..- 
»QUP CNT. C3y*0 5 3> 



08421900 t 
08424920 T 

084g494U T 



350 11 
0351*3 

0353*3 



N3<.0URCNT.C35*023*00FSETi-0PTR 
OESTaO*COESTCOPTr.C18*10 3 3 3#S 

BEGIN 



,C28»Q33> 
ETDI*C,UNK3); 



08424960 T 
08424980 T 
QWttJSOOO T 



035610 
0337*2 
038.910 



suluc start; 

SOFSET*Si; iNl(DS*SORCL CHR; 
US-IN ^CHR; _i_--- -J U i 



oi*_i*b_rs_Ti 

0#*INITIAL chR; 

0S»N1 CHRi N2C2CDS+32 CHR))* 



si*si+sofset; 
si*sofset); 
ox_ji______j 



08425020 T 
08425040 T 
QS «g SQ60 T 



0359*0 
0359*3 
030^*2 



STARTfOi; 
SI*ST*RTI 



08425080 T 
06425100 T 
064251 20 T 



036212 
0363*1 
364*Q 



IP 



• • 



>T 



Ni(2C32(DS«-32 CHR))); 

end; 

QU WCNT»QUR C NTt IhlTlAL* 



eno;*qf literal/aexp 6-8it source 
char*ourcnt; 

FNO X QF 6-BIT UMCUNDlTinNAl VFFR 



08425140 
08425160 



08425200 
084^5220 
08425240 



0366*0 

0368*0 
368?! 



036912 
036912 
370 It 



END ELSE* UNCONDITIONAL 
IF RELATlONaOECNVRT THEN 
BEGIN 



XFE.R FINISHED 



08425260 T 
084.2526* T 
84 252 65 T 



03 70 ll 
0370 » 1 
37l»3 



0OFF*0PTR,C28?O3 3; 0« I*DPTR. C 18 » 10 3; 

IF (HISCNT* (JUNK* H1SCNT ) ♦ C 33* 153 )>8 THEN 
PaLlSHCM*8C08!3ail03>HISCMT»CDC»OELH 



08425266 T 

08425267 T 
080 252 68 T 



037211 
937413 
3 7710 



10 

11 

12 



if (o&cdest) [35»08i10j-dptr.oot)-hiscnt<0 then 
polish(cdestcdptr.dot+hiScnt]]*del); 

5PTR<-SPTR ; STRE,AM(SPTRyOO"rF > HlSCNT>D»[DESTCninU])f 



084?5269 T 
08425270 T 
D8425271 T 



0379*2 
0383*0 
Q385M 



13 
14 
IS 



BEGIN 

dj>-dj ♦ ooff; 
ns»HiscNT qfc; 



SI* lOC SPTR* 



08425272 T 

08425273 T 
084,25274 T 



0387*3 
0387*3 
388 »2 



16 
17 
18 



end; 
char«-hiscnt; 

END FI.SE 



08425275 T 038910 

08425276 T 0389*1 

08425277 T 0390*0- 



19 

20 

21 



BEGIN 
COMMENT 

IF SPTR, 



CONDITIONAL XFER "/ 
CQltOll THFN 



SOURCE & OEST BOTH 6-BlT POlNTfRS; 



0842S280 T 
08425300 T 



0390*0 
0390*2 

0fl42531? T 3 90*2 



22 
23 
24 



P(M&l[14«4^*0l]»SPTR f C 09 * 223 + CSPTR, [33*15]X0)* CHS* CD C'DE 1 -); 
S0RC*MXSPTR1# 
&QRCI.*tl&c5QRC>[3.5*0P*l0 3-3PTR 



■ onTi 



08425314 T 
08425320 T 



039i*i 
0396*0 
0842 5 340 T 3 97* g- 



26 
27 
28 
29 
30 



DESTL*0&(0£St>t35*08*l0]»QPTR.0QTJ 
0URCNT*IF SORCL>OESTL THEN 
C IF HlScNT>Q£STt. THEN DESTl. EuS£ HISCNT) ELSE 



08425360 t 0400*2 
08425380 T 0403*2 
08425400 T 0404*1 



IF HlSCNT>isORCL 
S0FF*SpTR t [2e*03j; 
$m,»SPTft»ClflM03.J 



THEN . SUHC.L ELSE HISCNT' 
DOFF«-DPTR,C28*03J; 
O^I,*,OPTR.[l8M03/ 



08425420 T. 0407*2 
08425440 T 0410*1 
08425460 T 0412*3 



31 
32 
33 



more*true; 

IF (RELAtlON*RELATI0N.t43*033)i6 THEN 

— BEfiiN : 



08425480 T 0415*1 
08425500 T 0«l6«0 
08425520 T 04 17* 3 



34 
35 
36 
37 " 
38 



RELATI0N*HELATI0N=7; 

IF CI.TERC*0.URcNT)>63 

REfilN 



THEN 



08425540 T 0418*1 
08425560 T 0419*2 
08425580 T 0420*3 



tqgl*oorcnt; iterc*63; 

DO CRA UNTIL <T0GL*T0Gl-63)S63 OR NOT MQREi 

iterc»tqgl; ■ 



08425600 T 0421*1 
08425620 T 0422*3 
08425640 T 0427*0 



40 
41 
42 



end; 

IF MORE AimD 

end else 



ITERO0 ThEN CRA; 



08425660 T 
08425680 T 
08425700 T 



0427*3 
0427*3 
0431*0 



45 

4S 
♦7 
48 
49 
50 
51 
52 
53 
54 
55 
56 



BEGIN 

CHAR*Q4CHAR[36*42*063; 

IF (,1t£RC»QURGNT3>63 THEN 



08425720 T 0431*0 
08425740 T 0431*2 
08425760 T 0433H 



BEGIN 

tqgl«-quRcnt; ITERC*63; 
DU CREPL UNTIL ,(TPGL»T0si-63)$63 OR NOT MQR F ' 



08425780 T 0434*2 
08425800 T 0435*0 
08 4 2 58 20 T 0436*2 



iterc*tqgl; 
enoj 

IF MORE AND ; ITERC>0 T}itH CREPL* 



08425840 T 
08425860 T 
08425880 T 



0441*0 
0441*3 
0441*3 



end; 
if more ano h1scnt>0urcnt then 

POLl SH C t DE ST t DOFF fcPW 1 C 3 I 3 3" 1 1 5 3 3 3 » DEL » 



08425900 T 
08425920 T 
0842594Q T 



0445*0 
0445*0 
0446*1 



[SqRCCSOFFtSMt 
IF UPDTQG 

MM* 



Jt33»l5333#OEL>; 
F#*0«I£30i33|l5 3-0PTR.D0T; 
OF 6"8IT CHARS DONE 



08425960 T 0*48*2 
08425980 T 045011 
08427840 T 0453*3 



55 

56' 
57, 



• • 



9 
10 
11 
12 
13 
14 
IB 
16 
17 
18 
19 
20 
21 



22 
23 
24 
2B 
26 
27 



28 
29 



30 

31 " 

32 

33 

34 

35 

36 

37 ' 

38 



40 
41 
42 
43 



45 

46 

47 

«8 

49" 

50 

51 



52 

53 



54 
55 



IF UPDTUG THIN 
BEGIN 

upc.Tbn[QJ»Hifif;NT. 



35* i JI-ChABi, 



u!*dp0dto3«-uptr&c optr.dot+char jamperj 
upspd0£03*sptr&( sptr .dot+char )amper; 

end; 



08427860 

08A?7eec 
oa*27900 



end re.pl; 
PRncrnURr r.n^tfjtn 



08427920 
08*279*0 
08*27960 



0453*3 
04S4»0 

04,S,*J,2,. 



0456*1 

045910 
Q46U3 



%Qbi 



08*27980 T 04.61 » 3 

size* 0462 koros 
Q643Qonn t onoorp 



START OF REL SEGMENT* DISK ADDRESS » 00578 
B E Q IN 08*30020 T 000010 
COMHENT STRING/PO I NTER COMPAR I SON INT R I NSIC FflR Bssnn TS iir.n L . n g^nQ^ T n 000 t 



MARCH 1968. POINTER UPDATES ADDED FOR STRING CMPR JUN E 1966. 
MAJOR REwRITt TO CORriECT BAD ALGGRI THM--GCT 69. 

ratchfcird; 



comment there are four flavors of string/pointer cqmparei 

1. <AEXP> IN ALPHA, AEXP IS j:N £42»Q63 Op f"7, RELATi0n»29. 
? . <PEXPl>a<PEXP2> QM <p£XPU * rfpEXP2>. ; 



RELATI0N = 65 FOR = .& 66 F "DR ..J. 
3. <PUP1>?<P£.XP1> <RElATIQn> <PUP2> J<PEXP2> FOR <CQUnT> 
q. <PFXP1> <KFLATION> <llTFHAl> FDR <r.riUMT> f 



VALUE'S OF <R£tATlQN> ARE Same AS FOR SCAN S REPLACE* 
F-FIELD Of F-2 is LENGTh OF LITERAL STRING & C-FIELD 
Qf <QQUiMT> TN SDuRrr STMT fH t Qp if nM T TT EP? , 



FOR M» 
IS VA L OE 



RELATION HAS SIGN-BIT=1 FOR CASE #4. 



O EF I N E 



D0T»tl8Sl33#* 

AMPER=C18*35S13J*# 

CSlZE*£3U023*, 



SlXmQQtf: 



INTEGER 

RELATION ■•01* 

H I5 CNT =-02, 



XSAME COOES AS FOR 
HENftTH QF LITFRAL 



SCAN/REPLACE. 
IN F-rirLr.t 



P2 



3* 



03, 



LITERAL 

PI 
CHAR 



*P.2 > 
«-07# 
*\ > 



R1C 
R2C» 



R1W# 
R2W# 



*P2.MA.X BE A LITERAL OF l->8 ChARS, 
JLOC»N OF CHAR FOR "CHAN IN ALPH A" 



XCHAR & WORO OFFSET FOR PI 

^LENGTH OF COMPARE FOR CURRENT CALL OF 



LOOP'COUNT 
JUNK 



= P2» 

AIL 



UIND1T. 
*USED FOR 



LITERAL COMPARISONS 



REAL RJUNK»JUNKi 
BOOLEAN 

RESULT »Pl, 



DON;E; 
NAME 

UPP2DD 



•04* 



UPP1DD 
H 
ARRAY 



a-05* 
f 02; 



^SOMETIMES MEANS WE FOUND SOME X CHAKS, 
SPD FOR UPDATE OF P2 POINTER. 



R0Wlt*3> ROW«C*Jj 
SUBROUTINE FlNOIi; SFIND 



*ARRAY ROWS 
BLOCK OF 64 



REFERENCED 
CONTAINING 



BY P1/P2, 
1ST * CHARS, 



STREAM(M|?lC*R2C#Hl*CRQWltRlH]]tR2*CROW2CR2W)3)i 
BEGIN 



08430060 
08430062 
08 * 30080 



08430100 
08430J20 
08*301*0 



0000?0 
0000 JO 

o oooio 



06^*30160 
08*30180 

6 4 3 2 Q C 



0000*0 

000010 

000 » 



08*30220 
08*302*0 
08*30260 



08430280 
08430300 



ocoo to 

000050 
00C0 » 



000010 

0000 1 
0000 1 



084303*0 
08430360 
Q8A3Q380 



OOCCiO 
0000*0 
0000*0 



m>ooo*o 

0000*0 

ooonio 



XLENGTH OF COMPARE In C-FIELD* 
X30URCE STMT IS "Pi RELATION P 2 F 0R 
*HISCNT" 



08430400 
08*30420 
Qfl430**0 



08*30460 
08*30480 



0000*0 
0000»0 

Qoon*o 



OOOOlO 

0000*0 



06*3.0.520. 
06430540 
0R430S6Q 



0000»0 
000050 
00QQ5 P 



08*30580 
08*30600 
08*3-0620 



*THIS-IS ALSO ONE OF THE POINTER ARGS. 



08430640 
08430600 
084-10680 



000010 
0000*0 

000*0 



06430690 
08*30700 
0*430720 



0000*0 
0000*0 
0000*0 



0000*0 
0000*0 
0000«f) 



08430740 
08430760 
08 43 0760 



08430800 
Ofl«30B20 
084 30a * p 



08430860 
084308HQ 
06430890 



0000*0 

0000*0 

0000*0 



08430900 
08430910 
Qfl4^QQ?fl 



000010 

000010 

0000*0 



0000*0 

0000*0 

000150 



OOOHO 
OOO3I 2 
000^*2 



3 

4 

6 

7 



9 
10 

<M 
12 

13 

14 I 

15 
16 

"< 

18 
19 
20 ( 

21 



22 

23 | 

24 

25 

26 { 

27 

28 

29 ( 

30 

31 

.'■:'■«< 
33 

34 

35 { 

36 

37 

38 { 

39 

40 

41 ( 

42 

43 

44 I 

45 

46 

47 I 

48 

49 

50 { 

51 

52 

53 i 

54 

55 

56 I 

5? 



• • 



1 

2 

3 

4 

5 

6 

7 

6 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

iO 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 " 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



ui«-di+r?c; 

if n scxdc then tally«-1* 

n+tally; 



08430930 T 
06430940 T 
084309 e i0 T 



00041 1 
000413 
QOOV 3 



ENDJ 
IF NOT CDBNE*P0LISH) THEN 
BEGIN »S£T UP WORD S. CHAR OFFSET FOR NEXT CALL, 



0Q430960 T 
08430970 T 
14 30980 



000610 

0006M 

08430060 T OOOTlQ 



RlC«-PQLl$HCRlG&RlW [35*38: 10 3 +N*DUP).[45* 03 3; 
RlW+PallSH,[35*10J; 
R2CfPnLlShtR?Cg.R2hn5}3RU0 3tNfDUP)»U t >*0 33; 



084 309 90 T 
08431000 T 
06431010 T 



0007 » 2 
001012 
QQU>2 



R2W*P0LISH, [35*103; 

end update of char ano word indices; 
end findit; l, 



08431020 T 

08431030 T 
00431040 T 



00*4*2 

0015*2 
001512 



SUBROUTINE CQHP; fcCOMPARE 2 * CHARS FOR < OR >. 

. ..begin; 

STREAM( RELATION «PK>H2C>Rl»CR0Wl[RlW3 3/pR2»ERnwg[R2w 3 })} 



Q8431q5q T 
08431060 T 
84 31 Q7Q T 



0015 13 

0016*0 
0016*0 



BEGIN 
SI*RU 

ni»ni*B2c; 



$i*si*ric; 



08*31080 T 
08431090 T 
0843 1 100 T 



0018 '2 
0018*2 
0019*1 



COMMENT CQMP SHQUtO QNuY BE CALLED IF FINDIT FINDS 2 *■ CHARS.; 
63<IF 5.CAQ.C THEN JUMP gmj.; 

sifSi-i; oi»ai-ii — ; : 



08431110 T 
08431120 T 
8 43 1 130 T 



0019*3 
0019*3 
002l*4r- 



ci*ci+relation; 
oo or; 

%aa lsa 



08431140 T 
08431*50 T 
084311*0 T 



0021*3 
0022*1 
0022*2 



Us*. II- $c<fl.C THEN ,.... U° AX> 

(ihUf. sc>uc then , % mU ax; 

XX*IF TOGGIF THFN TALLY + U 



0d43U70 T 
084iH80 T 
0843U9Q T 



0022 «2 
0023*1 
00 23 *3 



reuation«-tally; 
end collating seq compare; 
odmeopoltsh; ; 



08431200 T 
08431210 T 
Q843122Q T 



0024*1 
0024*2 
0024*3 



END CO mp; 



IF REIA1IQN-29 THEN 



08431230 T 
08431520 T 
QH431140 T 



0.025.* 1 
0025*2 
0025*2 



begin; 

COMMENT CHAR IN ALPHA TEST; 
STREAMCTALLIE«-0»CHAR); 



08431560 T 
08431580 T 
QB4316QQ T 



0028*3 
0029*1 
0029*1 



BEGIN 

Sl«-LOC CHAR; Sl«-Si + 7; 

IF SC = ALPHA THEN EEGIN JJU JLlt iJ 



TA L U E + TA l LY E N Di 



08431620 T 
08431640 T 
08431660 T 



0030*2 
00 30*2 
0031*0 



end; 
result*pqlish; 

£NP FLSE 



08431680 T 
08431700 T 
08431720 T 



0032*0 
0032*1 
QQ32*1 



IF RELAU.0N>64 Th£N 

comment p1»p2 qr p 1 xp2 jcump are the absolute addresses thay the 
2 pointers Reference mthQuI looking at the contents of the^e 



08431740 T 
08431760 j 
084 31780 T 



0032*3 
0034 10 

0034*0 



LOCATIONS. NOTE THAT UNINITIALIZED POINTERS COMPARE EQUAL.' 
RE5ULT*(RELATI0N«65) £QV CP 1 , U8* 3G3*P2, 1 18/* 303 > ELS E 
B EGIN 



COMMENT A RELATIONAL COMPARISON OF TWO STRINGS,; ~ ' — 

COMMENT NOTE ThAT'THE 5500 SIMULATIONS USE ThE BCL COLLATING 
SEQUENCE FOR RELATIONAL COMPARISONS* WHEREAS THE 6500 WILL 



08431800 t 
08431820 T 
08431840 T 



0034*0 
0034*0 
0037*3 



08431860 T 
O84318B0 T 

OB 4 3J 900 T 



0038* t 
0038*1 

0QJ8»1 



COMPARE THE MAGNITUDES OF THE TWq CHARACTERS AS 4- 6- OR 8-8IT 

integers, the 5500 simulation also only allohs 6*b**t bcl chars* 

IF (P2»0 AND RELATION. tl*13«0) OR Pl«0 __ 



0«431920 T 
08431940 T 
08431945 T 



0038*1 
0038*1 
0038*1 



THEN P(MK5,INTCALL(C-4>41C2J47»13#F'0RTERRI>> ; 
IF Pi. [01*013 THEN 

P(M&Ul4U7:Qi3, Pi. [09: 22] + (PI. [33*153/0), CHS, CDC DEL); 



0843194ft y 
08431930 T 
08431951 T 



0040* 3 
0045*1 
0046*0 



Pt.csrZEXsix 

RO*i**tPt)#. 

<■■-{, 



..»,;». 



tl£44*47«0i3#8686*C0C»DEL); 
Rt*J*Pi*t?t#*03 31 
HlSCNT+AfifStHlgCNTH , 



08431960 T 
084 31980 T 
R 4 32 QQ Q T 




>r 



IF (JUNK«-HlSCNT.C3b: l3] + Pl.L)QT)>0&CR0hl>[35«QBU0J 

P0LISH(lR0Wl[JUNKJ3*0tL)J 
IF RELATION. rUiam ]?0 THEN 



THEN 



BEGIN 

COMMENT BOTH PUP2 ARE POINTERS; 

IF P2.LO1I013 THEN 



08432020 
O0432U4O 

o e*32 Q60 



00*32080 
08432100 



005952 
0063*2 
g 6 <i I 3 



006610 
006611 
QQ66*2 



PCMS1U4»47*013>P2.L09:223+{P2,[33J153/Q)'CHS'CDC>0El>* 
IF P2.CSI2EXSIX ThEN 

P0LTSHfMAiriaifl7i0U« ffftflft, cpr«QFl r ); 



Q84321U T 0067*1 
08432120 T 0072 
08432140 T 00/ 3 ! 



10 

11 

12 
13 

14 

IB 



R6W2*MtP2j; R2OP2.C28I033; 

R2W+P2. [18*103* 

IF (HTSrNT+P3.Dn-M>0&fKn M 3lf 3580ftl?tn THF 

P0UISH(tRaw2LhlScNT-»-P2.D0T3]*DEL3; 
IF (JUWK«-Hli>CNT)>63 THEN 

mm* 



N*63* 

00 FIND1T 

end* 



UNTIL C(JUNK«.JUNK-63)S63) OR DONE* 



08432160 
08*32180 

00432200 y 



T 0075 

T 0078 

Q079 



08432220 T 0.082 
084 32240 T 0085 
084 <?2ft0 T 0086 



08432280 
08*32300 
Q8432320 T 



T 0Q86 

T 0087 

0091 



16 
17 
18 



19 
20 
21 
22 
23 
24 
25 
26 
27 
2B 
29 



30 

31 



32 
33 
34 

39 

36 

37" 

38 

39 

♦0 

41 

42 

43 ~ 



46 
46 
47 
•8 



49 
50 
51 
52 
53 
54 
55 
56 
67 



IF (NOT DONE) 
END El.Se 
BLG1N,, 



AND CN«-vlUNK)XO THEN F 1NDI T J 1 



COMMENT P2 IS A LITERAL STRING* 

IF CN*HI5CNT.U8U53)*Q THEN N«-HISCNT* 

RJUNK*Ppf : . ROW3*rRjuNKT& u .7* *7tfH 3; 



R P W 4- * 

COMMENT JF H ISCN T . [ 18 * 15 3 *0 THEN [ 16 * 153 = 5TR ING LENGTH & 
C33U53sEXpUCn LENGT H Q F COMPA RE'. nTHFRWlSE, f33t i5 



BOTH LENGTH OF 
IF (HISCNT+HISCNT 
BEGIN 



COMPARE AND LENGTH OF LITERAL.* 
C33»153)SN THEN 



15] IS 



cgmm£nt length of 
have to repeat 
r^c»8-n; 



ENO ELSE 

BEGIN* 

COMMENT LITERAL 



COMPARE IS <; 
THE LITERAL* 
FlN OTTi 



LENGTH OF LITERAL* *E UUN"T 



STREAM ^^SUFF^S: 
D«-[ JUNK J ); 
BEGIN 



MUST BE DUPLICATED TO FILL 8 CHARS 



N/Nii-8 OIV N/N2«-(JUINK«.8 MQD N)» 



SI+LQC P2* 
N1(0S«-N CHR* 
0S»N2 CHR* 



3I#-Sl+S0FF* 

; S1*.0;>*.' ■'..■.... 



D*SI* 



end; 
n«-if hiscnts8 then. hiscnt else 8* 
i anPcauiMT»hisr.wT-N; 



R2C»Q? 



FINDIT* 
IF NOT OONE 
BEGIN 



THEN 



.f*2C*Pl, 128*033* 

»0^2<-RQwl* 

IF L,QDPCPtJNT>d 3 



R2W«-P1, [18*103* 



TH EN 



BEGIN 
N«-63* 
DO F IN QTT 



UNTIL DONE OR C LQOPCOUNT + LOOPCQUNT^jJSft ** 



END* 
IF (NOT 

END/ 



done) and (N*LnuPcauNT)*o then findit, 



END 
CNO* 

BFGTN 



08432340 T 0091 
084i2380 T 0095 
08432400 T Q0 9 5 



08432420 
084 32440 
08432460 



0097 
0097 
OlOO 



08432480 
08432481 
08 4 3 24 8 2 



0102 
0.1.0 3 
0103 



08*32483 T Ql03 
08432500 T 0103 
08432520 T 0105 



08432540 
08432560 
084 32580 



08432600 
08432620 

08432640 



P.1.Q.5 
0105 
Q1Q5 



0108 
0108 
0108 



06432660 
08432680 
08432700 



oiue 
0112*0 

0112*2 



08432720 
08432740 
Q04 327 6 Q 



011212 
0113*2 
onstn 



08432780 
08432800 
064 32620 



0115*2 
0115*3 

0118*2 



00432840 
08432860 
08432880 



08432900 
08432920 
08*329*0 



012012 
012210 
0122*2 



08432960 
08*32960 
QB * 33 00 



0123*0 
0125*2 
D U6 I2 



0J27»1 
^27 I 3 
Ql28»2 



00433020 
084 33040 
084 33Q6Q,, 



08433120 
08433140 
004 331*1 



0132*3 
0132*3 
0136*0 



0136*0 
0136*0 
0136*0 



56 1 
57. 



• • 



k 

2 
3 
4 
6 
6 
7 
8 
9 
10 
11 
12 
13 
14 
16 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
30 

31 " 
32 
33 
34 
35 
36 
37 ~ 
38 



.!£- 



JPP1DDI0J *■ PI ♦04HISCNTL18I3SU33J 
UPP2DD103 * P2 +04HISCNTC18I35»13]J END; 
CtiFLATinN^AR.SfFiFl.ATinNn^a TH£N Rh'Slil. TtCNQT IH1NE > » U7 . 01 J ELSE 



IF REL*TI0'N»12 THEN RESULT*QONE ELSE 
IF OflNE THEN 
»f6TN atFTNfllT n1Sr.QVFR F n A * rHAR TN TuF TWfl STRyWaS 



06433142 T 
08433143 T 
084-3144-3 T 



0136*0 
0l36»l 
QHCI2 



08433147 
08*133149 

Qfl fl .3 3 15.; 



■33lM T 



01431? 
0146*2 
014711 



REUUBN«-hfc.lATlQN.C45f0l]; %Q & 

comp; hesui_t«-dune; 

ENP ELSE 



16 TEST >, 4 & 20 TEST < 



08433153 
084 33 lib 

08433157 



0147 « 3 
0149.1.0 
015Q»3 



COMMENT STRINGS WERE * AND RELATION IS NOT « OR * . PLUCK THE 

"« m HAlF OF "S" OR *k* OUT OF RELATION./ 
RFSULT»RELATIQN.Cfl^tOlJJ 



08433159 
08433161 
08433163 



T 0l50«3 

T 015013 

J. 015013 



END. COLLATING SEQUENCE .CCJMP.ahES; 
END COMPARt; 



08433320 
084 33 34 



T 0152 J 2 
T 01 52* 2 
SIZE? 0153 WORDS 



PROCEDURE BASICPRINT(TYPE); 
VALUF typf; 



START Of PEL 



08500000 

segment; disk 

OflSQQlQQ 



T 000010 

ado r ess * 
J ooontn 



00584 



REAL 



type; 



BEGIN HEAL A L GULwHlTE = 12* 



08500200 
08500300 
OflSOOfflOO 



T 0000? 
T 000Q»0 
T QQ OQ*0 



ALGOLSELECT * 
REAL RCW a *o; 
ARRAY : POT * 25C*3; 



14, 



08500450 
08500500 
08500600 



T 0000«0 
T 0000*0 
1 0000*0 



NAME 
REAL 



M a 2 i 
T> 

JHOjl . 



08500700 

08500800 

08*300900 



T 0000*0 

T 0000«0 

4 0000*0 



BOOLEAN 
INTEG ER 



»<h2; 
thistype; 

8SIZE* 



08501000 
08501100 
Q85012Q0 



T 0000*0 

T 0000*0 

J 0000*0 



bufflgad* 

C QL * 



08501300 
085C1400 
QS^CISOO 



T 0000*0 

T 0000*0 

J 0000*0 



COUNTER* 

E# 
ESIGN, 



08501600 
085C1700 
Q R 5 Q18QQ 



T 0000*0 

T 0000*0 
T OQQOtn 



EXPC.HR* 

1* 
ITEMS, 



08501900 
08502000 
08502100 



T 0000*0 

T. 0000*0 

J 0000*0 



NUMChR* 
NUMROWS, 

RnW* 



08502200 
08502300 
08502400 



T 0000*0 
T 0000*0 
J. 000 0*0 



♦0 
41 
42 
43 



rowlength*. 

S I G N * 
SKIP* 



06502500 
08502600 
08502700 



T 0000*0 
T 0000*0 
T 0000*0 



NjM£ 



TAB* 

writestmt; 

P Q I N .T E . fi; 



08502800 
08502810 
0a502900 



T 0000*0 
T 0000*0 
J 0000*0 



46 
•7 
48 
49 
50 
61 



NAME 
NAME 
A R R AY 



FI 

bT 

XI 



lx; 

RING s 

B i; * ] » 



t; 



08502950 
08503000 
QR5Q310Q 



0.000 10 
0000*0 
Q0QQ»O 



MATRIXt*3# 
MATRlXROWt*}; 
_BJlflL£AU OATACQH; 



08103200 
08503300 
08603.325 



T 0000*0 
T 0000*0 
1 QOQO*n 



52 
53 



LABEL 



CQ 

LO 
ill 



MMQM* 
GEIGHT* 

X I NT* 



08503400 
06103500 
08503600 



T 0000*0 
T. 0000*0 
T ,0,0,00*0 



55 
56 



■ ■■ ■<-• ■' ■'■>■ ■• ■■'-'" ■ 







06503100 

■0550 3800 
flflMJ 9Q0 



T 0006 10 
T OQOO 10 
T 00 10 



CONVEhTED* 

NORMAL' 



duhhylabel; 



08504000 T 
06504100 T 
Qfl5Q4?QQ T 



0000*0 
0000*0 
Q000»0 



DEFINE LOGS ■ PCLOGEIGHT )## 

MAX * P(MAXINT) *> 

DFLTA* PtMlNVALUElt, 



OFF INF 



TEN6 * PCTENSJX) ** 
TEN7 = P(TENSEVEM** 
COMMA « Ljtl 



08504300 
08504400 
Qft3Q4«S00 



ooooto 

000010 
000010 



08504600 
08504700 



0000*0 

oooo«o 
onno*o 



SEMICOLON * £*# 
ENpUNE « 31 )■:■■ 



06504900 T 000010 
08503000 T 0000*0 

oeiQMflQ T 000010 



10 

11 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 



REAL SUBROUTINE GETNEXT; 
BEGIN THISTYPE ♦ (TYPE » 



0*T'YPEC6t7l4o]).[6il]j 



ITEMS ♦ ITEMS-II TAB ♦ 
PCtPOIhiTtR)* POINTER «■ 
G ETNEXT ♦ POL ISH 



*<1 INX POINTER)) 
2 INX POINTER* 



END GETNEXT; 

BOOLEAN SUBROUTINE DIMENSION* 

BFGIN COMMENT TRUE FOR SINGlE 



di m ens i on e d (Includ es strin gs ) ;; 



STREAMCT*POLISH(XCH# 0» CDC)*A*Q); 
BEGIN SI*Ti OI*T; Sl«-Si-i6; SKIP 2 Sfl* 
: IF SB THFN ELSE T4U.Y»ll T » TALLY! 



08505200 
08505300 
085q54QQ 



0000*0 
0000*0 
OOOl'O 



08505500 
06905600 
0fla05700 



000313 
0006*2 
QQQBtl 



06505800 
08505900 
0H506O00 



0008*1 
0008*3 

QQ Q9»0 



08506100 T 
08506200 T 

8 50 6 300 T 



0009*0 
0010*3 
Q 1 U 3 



22 
23 
24 
26 
26 



END 



eno stream; 

dimension * 
di mfns iq n ; 



THISTYPE QH POLISH; 



08506400 T 
08506500 T 
08506600 T 



0013*0 
0013*1 
0014*0 



27 
28 
29 



subroutine setupandexit* 
begin if oatacom then 

;F COUNTER NFfl ThEN 



-V 



08506700 T 
08506800 T 
08906810 T 



0014*1 
0015*0 
0015*1 



BEG IN* STREAM (BUFF); DS»*LlT .."«■"* 
PQLISHCMKS* 16# 0* 0# BSlZE* 
BUFF »* - C »F 1 1 Xl.CCFl; 



FILX# ALGOL^RITE); 



08506820 T 
08506830 T 
08506850 T 



0016*2 
0018*2 
00 2 0*1 



31 
32 



ENe; 

FIBC20J* 
POI, TSH 



an 



8uFF&COUNTERC3l33tl538,BSIZEU8*38»lOniC29*47*l3* 
lAi 



08506860 T 0022*0 
08506900 T 002210 
08507000 T 0026*1 



34 

35 



end setup andex ..i i.j! 
subroutine print; 

BEGIN P(rtKS<l jQiOtBSlZE + ((M.T D A T ACQM ) . f 47 t 1 ] ) >F I LXj AlSQLWR ITE > i 



08507100 T 
0850/200 T 
08507300 T 



0026*2 
0026*3 
0027*0 



37 
38 
39 

40 
41 
42 

43 " 



IF NOT OATACOM THEN 

ST9EAMCA**"lO"#B*«tFlBCQJJ); 

BFfllN SIH.LQC Al n.Sl^fl ADO* ENO STREAM* 



08507310 T 
08507320 T 
08507 3 3,0 T 



0030*0 
0030*2 
0032*1 



routine; 
clean; 

RE6lNJ&TREAHCA»&STZE*,ltPATACUM»D»*riLXJ< 



end print 
subroutine 

ilNiSTl 



08507340 T 
0850/400 T 
08507450 T 



0033*0 
0033*1 

0034*0 



45 
46 
»7 
18 
•9 
50 
51 



END 



BEGIN D5l*8 LIT . *» w * SIlaDJ 0S»»A 
buffi*poLish* 8UFFL0A0*»BSI2Ex8; 
clear routine; 



wos* on«o; At«oi; end; 



08507500 T 
08507550 T 
0fl5n7600 T 



0036*2 

0039*0 
Q 041 1 



45 

46 

47' 

48 

49 

50 I 

51 

52 

53 \ 

54 

55 

56^ 

3 



subroutine checkpresence; 

begin fibc26j*(*pc0up))«(c0untew*0)[3i33i15 j| 

BS iZE»P(MK$ i ,ifO*Qf( »l)»FrlX,,ALQQUHPlTE>J 



08507700 T 
08507800 T 
08507825 T 



0041*1 
0042*0 
QQ45«0 



IF OATAC0M«.FI8C43.t8*4]«lO OR FIBC4J. £8*4 J«l 3 THEN 
BSIZE ♦ 9 ELSE 
BEGIN B$UE»BSIZ£»i; 



08507850 T 

08507855 T 
0ftS07fl6Q T 



0047*2 

0051H 
009319 



52 
S3 



54 

56 

56 

52. 



STREAM(A«-FI6C03#B«-BSIZE INX (*FILX))J 
BEGIN SULQC A; DS«-kDS* END; 



lnd; 



0054*1 
0056*1 

flpMfl T 0057 >Q 



08507870 T 
08507880 T 

LSI 



-ip-7r 



CLEAR! 
ENO CKECKPRE«ENCCJ 
SU BRQ UT INE -PW I NTSX I TI. 



08907899 T 

08507100 T 
QHSQflflQQ T 



009710 
0098*0 
0058 It 



• • 



H 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

) M 
15 
16 

I « 

18 

19 
) 20 

21 

22 
i 23 

24 

25 

26 

27 

28 

29 

JO 

31 ~ 

32 



BEGIN PRINT; 

COUNTER «• Oi 

srrupANnrxm 



end printexit; 
subroutine printreturn; 

flfftTN PBTMTt 

CHECKPRt.SENCE; 

end printreturn; 

SUBROUTTNF FlNOEi 



BEGIN COMMENT DETERMINE THE EXPONENT OF A REAL NUMBER, THE NUMBER 
IS POSITIVE AND PASSED IN T, WHEN DONE* STORE THE 
EXPONENT IN E. AMn RnuqP f TO m»A ST < 1 n*yi 



E ♦ C(0*Tt«2i3.:6]4T[l«iH3+12)xLOQ8j+0,5; 
WHILE T < C.I F E*Q THEN PQTCE] ELSE 1/PUT!>EJ) DO E 
T <■ IF (6*f)>n THFN Tx PUTfft - M Fl S r T /PPT f £ » a 1 . 
FIND EXPONENT AND ROUND NUMBER; 



E-l 



END 
SUBROUTINE 
-BEGIN 



convert; 



IF THISTYPE THLN 

BEGIN; STHtAMCA«-OiS*STMlNG); 
BFGTN jt»s; si.-srtisi OUUIC 



IF CI * PQLISH + 6)>15 THEN I «• I 
NUMCHR I* I * 3 x WRITESTMT; 
IFCCOUNTFR ♦ MJMPHtn ctb anr rLnin tufm 



a; m»nT*7» tLS*ChiU FNpf 



stream ci ; string* write stmt* buff ); 
begin substring; wrhestmtcqs«-lit 

nHTTF.STMTfnS»LlT """; ng>| i T 



2 0j 

PRINTRFTURNI 



fi « ti 



); dS*i chR; 



LOGEIGHTj J: 

EUO. 



EN.Q stream; 
buff *• polish; 

TFfNUMC H rt GfR 12 

GO TO CQNVERTlD; 

Pll57l6303a/61674; 

STRING HANnLTMM 



'»")l l + Qlt 



COUNTER 
AND tAR 



»« COUNTER ♦ 

« <;FM T cm nm 



numchr; 

ThEN TAB 



»= comma? 



COMMENT THAT WAS EASY — NOW 
ESIGN * EXPCHR * SIGN •■ SKIP 
SIGN » T*tT » ABSfTHl 



FOR THE NUMERICAL STUFF; 
♦ NUMCHR *• Oi 



IF T<MaX THEN 

IF (IF T^O T HEN TRUE ELSE CAB5CCCJ ♦ T )"T )/T )<DELTA ) ) 
3 e GTN; KQM MFnT ToiTfrfR* nR nfar F Mnn G M; 



THEN 



STHEAMCI*! ♦ TlficwHlJ); 
BEGIN SI«-LQC i; DS*8 DEC; Sl*-Tl 
Mil SC*» Q« THfK &l±Sl±±±j T»Sp 

end stream; 
numchr *■ 8-cskip «• 
GU TQ common; 



P(XCH).[30I3])J 



END INTEGER CaSe; 

t ♦ i»o«t; finoe; 

IF (I t lMl£M THFN 



begin i <• ten6; e «• e+i; end; ~~ 
if e<0 anu £>(-7) then 

IF ! = ((! JIV (T «■ PQTCAB3CE+1 )]))xT) 



THEN 



BEGIN I ♦ I OXV TI 

$TREAMCPt«.0iP2«.p(ABSCE*l)#0Up}> 

Pi*7-P(XCH)*P4*.P(0UP)-JfP5«-I#P6«-CWH13)l 

"" p2cds «■ lit m 0"); ~ 
dec; pi*ui; di«-P6; 
Then jump out; 



BEGIN US*2 LIT "0."; 

SULOC P5; DS + P3 
SUSl-i; P ^ c I F SC*"0" 



si«-pi; 



pwally; 
end stream; 



TALLY«-fALtV + i; si*si-n; 



08508100 
0B5Q8200 

oe^oaaou 



08108400 
08308500 
08508600 



0059*0 
0060*0 
0060 i 3, 



08508700 
08308300 
Q85Q890Q 



0062*0 
0062H 

006310 



08509000 
08509100 
08509200 



006o 1.0 
.Q065.»0 
0065*1 



08909300 
Q85094Q0 
08509500 



0066*0 
0066*0 
QOftfttO 



08509600 
08509700 
08109800 



0066*0 
00^0*1 

oorgio 



08509900 
08510000 
OQSmiQQ 



0063*3 
0084*0 
008/1*0 



08S10200 

08510250 
0«HlOinn 



0084*0 
0084*1 
0086*0- 



0087*2 
0090*3 

0092*2 



08510400 
08510500 
04540-550 



08510575 
08510600 
08510650 



0095*0 
0096*3 
0098*3 



0851Q70G 
08510750 
08510800 



0100*3 
0101*0 
0102*3 



08510900 
08511000 

oaa 1 1 1 no 



0105*3 
0l06«l 
0108*0 



08811200 
08511300 

0851 unu 



08511500. 
085H600 
0851170Q 



0108*0 
0108*0 
0110*3 



0112*3 
0113*2 
Qua *2 



0119*0 
0120*3 
Ol2l»3 



08511800 
085) 1900 
08512000 



08512100 
08512200 
08512300 



0123*0 
0123*1 
0125*2 



08512400 
085J2500 
08512600 



0126*0 
0126*0 
0128*0 



T 
T 
I 



08512700 
08512800 
08312900 



0129*1 

0131*3 
0133*3 



08513000 
08513100 
08513200 
08513300 
08513400 



013/12 
Ol39fl 
0H1*1 



0143*2 
0H5«1 
0146*3 



0148 »2 
0149*1 
0H9I2 



i 

2 

3 

4 

6 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 



40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

67 



• • 



h 



7 
8 
9 
10 



12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
90 
31 
32 
33 
34 
35 
36 
97 ~ 



38 
39 



40 
41 
42 



43 
44 
45 
46 
47 
•8 
49 
SO 



51 
52 
53 
54 



55 

56 



END 



numchk * 9-pcxch)/ 
go to common; 

F TYPE STUFF/ 



IF E_Q AND E<7 THEN 

BEGIN COMMENT THE OTHER HALF OF f •FORMATTING; I 
STREAMCPO*Ql Pl+PCE+1, QtJP). 



P2*-7-P(XCH)» P3*I# P4*C^H1J); 
BEGIN 0I»DI + 1# 5I«-LQC.P3; DS«-7 DEC; 

13 L_e _i — _l__L_i si-si+i; os+P] thr; 



ds*liT «.«♦! Si«.si+P2; si*si-n 

P2CIF SC*"0 M THEN JUMP OUT; 

TALI Y»TALl.Y + t } SUSlMH pQ»Tai i Yi 



FN I) 



end stream; 

numchh «• 8-pcxch)/ go to common; 

OTHER HALF FnRMATTfNfi; 



STREAM(t?l«-ABS(E)»Pa*I*P3«.CEl»P4*CWHl3); 
BEGIN DI*DI*1I Sl*LOC H2; DS«-7 DEC; 0I«-p4; 
SJL»&I±li DS + CHRJ DS+LTT "/J s^M- 1 " 



Sj«-p4; 



EiiU 



6(iF sc*»0" Then jump out; si<-si-i; Tally*tally + d; 
oi*P3.i si*-iQc ph 01*01 + 6; ds>2 dec; putally; 

STREAM? 



EXPCHR «■ 1 + CABS(E)>9); ESIGN «• E<0; NUMCHR ♦ 8*PCXCH); 
COMMON** T ♦ i*NUMCHR + EXpcHR-K(EXpCHR/0> + P(0UP))*WRlT6STMT; 
TF CrQiiNTER + -n>BuFn QA_ IH O PR* m?rf thrnii 



STREAM cPl*5MPi.NgMcHR»SlGN*£XP.CHP*P2tPCDUP)^0* 

ESlGN#P3*[ldihlJ#P.4l*CE.]#.wai.USTM.T*BUF.F)'J 
BEGIN nS-UT !! "; STflNtnT»nT»t; Q_utl_L_ "-"" 



Sl*P3; si«-si+pu ds*numchr chr; 

P2(0S»2 -LIT «E*«J ESiQN(0I*DI-i; D$*LlT 

_j____J _1__U__1__ ST>S^PKPfHB^ ftS_p_p^u R 



WRITE5TMTC0S*LIT "* M ); Pl«.Di; 

END STREAM* 

BUFF <• polish; counter 



H ); 

CHR )j 



CUUNfERfT; 



MAXINT 



go to converted; 

"I 9104575360377*000; 



MINVALUE:: * 
TENSgVEN: * J 
TENSTX *>* 



P1256353762465363; 
Pl05a6U320000000; 
gl0fl364ll00000000; 



CONVERTED' 

END CONVERT; 
SUBROUTINE TABCGNTROL; 



BEGIN COMMENT DOES ROUTINE TABBING OPERATIONS; 

IF TAB<0 THEN COMMENT TAB CONTROL GIVEN EXPLICITLY; 
BEGIN IF(TABI«(ABS(TAB)-1)MQD HUFFLOAO) lSS COUNTER THFM 

printreturn; 
if tab gtr-0 then 

BEilN COMMENT SPACE FwQi_ 



STREAMc a »»BUFF«TA8'*TAB- counter* 

T»*PCDUP),C36*6}>;* 

BEGIN SH-A; T(Sl4»Sl + 32; si> a si + 3g); 



Slt*Sl + TAB; AI«SIU 

end stream;* 

6UFFt«PQLlSH; CO-NTERtsTARiX 



END 



END SPACE FWD THRU BUFFER;* 
ELSE BEGIN COMMENT NORMAL TAB CONTROL FUNCTION; 

If T.Ab-SMMNE, ThjjN printexit; . 

IF WBHTcitMf • THEN BEQlN 
IF TAB»COM*A THEN 
■■ T * COUNT£R»<CQUNTER * fCCOUNTFR*l«) DTV lSlxtO 



08513600 
08513/00 
QB51 3800 



0149 13 

0151SQ 
0151*0 



08513810 t 
08513820 T 
0fl5i3«3Q t 



0133*0 
015413 
Q155M 



08513840 
08513845 
QH5.13850 



08513855 
08913860 

Qa5naft5 



157*0 
Q158J2 

Ql99*i 



08513870 
08513880 
08513890 



016012 
0l6i»3 
QlftHl 



08913900 
085^4000 
08514100 



0164*1 
Q 164*2 
0166 ; t 



08514200 
0851 4 300 
8 5.14 4 00.. 



0166*1 
0168*1 

-4_a__a 



08514500 
08514600 
08514700 



017053 

172 I 3 

Ql 7/ 1 *0 



08514800 
08514900 
06915000 



0174*1 
0178*3 
0182*3 



0186 S 
0188*1 

o i fiqy 3 



08515100 
08915200 
08915300 



0191 * 3 
0l93*0 
01951 2 



08515400 
08515500 
08915600 



0197*1 
.0.19.8*3 
0199*0 



08515700 
08515800 



08516000 
085l6i00 
085l6?00 



0200*3 
0201*1 
Q?Ql'l 



020310 
0204*0 
0205*0 



08516300 
08516400 
Q851650Q 



08516600 
08516700 
Q851 68Q Q 



0206*0 
0206*0 
03-ft»t 



08516900 
08516910 
08517000 



0207*0 
0207 j o 

2 07*3 



0210*3 
0212*0 
0212*3 



08517050 
08517060 
06 5l7]00 



08917200 
08517300 
08517-00 



0213*1 
0214*3 
0215*3 



08S17410 
08517500 

08517601 



0217*1 
0218*0 
Q.lflft 



17600 T 
08917690 T 
06517700 T 
Q85t7flQQ>T 



0219*2 
0219*2 

022010 



0222*0 
0223U 

022 4 * 



• • 



h 



10 



13 



16 
17 
18 

19 
20 



22 
23 
24 
26 
28 
27 
28 



90 
J1~ 
92 
33 



M 
35 
36 

37 ~ 

38 

39 



40 
41 
42 



•3 
44 
45 
46 
47 
18 
49 



51 
52 
53 
54 



55 
56 



ELSE IF TABbSLMICCLON THEN 

T != COUNTEH-(CQUNTER * * ( ( COUNTER+5 ) OIV 
I F COUNTER>fiUFF l,g An TH E N PRINTRFTURN E t. S E 



3) x 3); 



IF TAB*0 THEN BEGIN; 
STREAMtBUFFlT); 
RESIN Si»BUf.n 



08517900 
08518000 

OS'iiaiOQ 



BUFF ..«■ fulish; 

END END END END TABCQNTHQl; 
CQMMENT»*»«»*ft*»STftRT OF CQQE*«»«»^i 



S_UhMU BUFF«rSH ENO* 



08f 18200 
08518300 
08518400 



0226*1 
0229*0 

023.2*3 



ITEMS «■ TYPE.t|l6}J WRlTESTMT * TYPE.U6*l3; 

POINTER * 1 INX <tRCH3*RC*£FTC3)J 

FTL* t tPQINTERJ FTLXTNOT At «• »C1 TNX POINTER); 



08516500 
08518600 
08518700 



0235»0 
0236*3 

0238*0 



POINTER ♦ 2 INX POINTER* 

FIB * FILXlNQT 21; 

IF FItU53,[43MJ THEN P(MKS> 



08518800 
08518900 
B 51691 



0239*1 
0239 .1.3 
2401 



0/ Q> FILXt U ALgQLSeLecTU. 



IF FIBC0J»0 THEN BEGIN F IBCO 1 « «»1000»; TNI STYPE1 -TRUE; EnO* 

OATACOM ♦ FIBC41.C8143 * 10 OR F IBC43 . C8 » 43 ■ 13* 

IF (COUNTER » (T » FTBC2Qn.C3ll5l>«0 THFN EHFCKPRFSF MrF LlSE 



08518920 
08519000 

Qa^J9 jton 



0240*0 
0249*2 
Q25ttl 



0254*3 
025610 

0257*3 



BEGIN BUFF «■ I.C3QU83J BUFFLGAD * 8x(B$IZE * 1,118*103) END* 
IF THISTYPE AND FIBC43 . C8I 4 3»4 THEN 

P,(«[FIBCHl1> 7 »CDCtWSSM»Xr.HfSTn)* 



085i9i50 
08ll«l75 
QB5192QQ 



IF OATACOM THEN CLEAR 

tLSE IF FIBC213 NEQ THEN P(FILX> 8# U>COM ); 
TAB » *PnlNTERj PnlNiTER » 1 TuX PfllKiTFRI TABcn N TRn L i 



08519 300 
08519 320 
08519330 



0260*3 
0264*1 
026 8*0 



IF iTEMSsO THEN SETUPANOEXn; 

IF NOT TYPE THEN GO TO NORMAL; 

DO BEGIN COMMENT MATRIX PRINT ROUTINE* 



0851V350 

085*9360 
08919600 



0272*0 
0277*2 
0279*2- 



0282*1 

0283* 3 
0267*0 



POUShCMATRlX ♦• GETNEXT); 

IF P(TAB# OUP)a£NDLlNE THEN TAB «• COMMA; 

IT niMEN SlQN THFN 



08519500 
08519600 
0851970D 



P(XCH); 



BEGIN CQl *■ ThlSTrPE+i; ROWlENGTh «• MATKIX , t 8 « 10 J ; 
DO BEGIN 

T «■ [MATR'lX[CQLJ3; 



08519800 
08519900 

08520000 



0290*0 
0292*0 

0292»3 



0292*3 
029<H2 

0297*0 



convert; tabcontrdl; 

END UNTIL (COL > CQL+ThISTYPE+1 )«ROWlENOTH; 
IF (TAB » PQLlSHlsENOLlKE THEN PRlNTFXlT; 



0852OJ00 
08520200 
08530300 



0298*0 
0301*1 
301 *1 



END EL^E B£GIl\ 

NUMROWS «• 
hOWLF.Nr.TH 



08520400 
08520500 
n 8 52n55n 



00 BEGIN 

MATRIXRQW 

DO BEGIN 



MATRIX, [8*10]; 
«- (*[MaTRlX[ROW 



1 33 ). [ 8»1 0J* 



08520600 
08520700 

0fl5?0flQ0. 



0302*1 
0304*0 
03n6l3 



* *CMATRlX[ROW33J COL '♦ \* 



END 



t «• [matrixrowicol33j 
convert; tabcontrol; 

jJNTK CCOL » CQL»1)»R0WLENGTH; 



08120900 
08521000 
08B2H0O 



0309*0 
309*2 
031 1*0 



end; 

END UNTIL (POINTER 
SETUPANDEXlT; 



IF COUNTERS THEN PRINTRETURNJ 
END UNTIL (ROW * RQW+1 >»NUMRQWS* 
IF (TAB «• FOHSH)*ENQLINE THEN SETUP ANDEX IT; 



08521200 
08521300 
08521400 



0313*1 
0313*1 
0315*1 



08521450 

08521500 
0852 1600 



INX 0)=[TYPEJ,[CFJ* 



NORMAL* DO BEGIN T * GETNEXT; 

CONVERT; TABCONTROL; 
ENO UNTIL (POINTER INX 0)«[ TYPE 3 . CCF3; 



08521700 
08521800 
08521900 



0315*1 
316*1 
03l8»0 



0320*1 
0323*0 
03i? 5»l 



SETUPANDEXlT; 
ENO BASIC PRINT ROUTINE; 



08522000 
08122100 

Oflt2 2 2 0Q 



0328*0 
0328*0 
0330*1 



0331*0 
0332*2 

O 33 5» 



.PROCEDURE REAOATACTIPE); 



08522300 T 0337*1 
06522400 T 0338*0 

SlZ£» 0339 WORDS 



START OF REL 



,„'.. 



08800000 
SEGMENT! 




10 
» 00596 

OQo ai o 



9 
10 
11 
12 
13 
14 
15 
16 
17 

ia 



19 
20 
21 



23 
24 
25 
26 



27 
28 



29 

10 



32 
33 

34 
35 

36 

37 " 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 
49 
SO 
51 



52 
53 

54 
55 
56 



REAL 
BEGIN 
ARRAY 



type; 



DATA = ?i [»1, 



COMPANION 9 22C*3; 
INTEGER PTR * 23* 
ENDATA * 24J 



INTEGER 



COL* 
COUNT* 
JLi 



NUMROWS* 
R* 



BO OLEAN 



RQWLENGTh* 

t; 

thistype; 



ARRAY MATRIX03* 

MATRIxR0w[*3f 
DATAROWr+1* 



ca*PRuw[*3; 

NAME NJ 
LABEL NORMA L* 



REAL SUBROUTINE GETNEXT; 
BEGIN COMMENT GET NEXT ITEM FROM STACK* AND 00 
SOME ROUTINE HOUSEKEEPING OPERATIONS; 



P(*(PC.TYPt)+CCUNT))* 

THISTYPE «• (TYPE <• Q4TYPEC6 17 UQJ ) . [6 1 1 J J 

G fc TNFXT » PULTSH 



END GETNEXT I, 

BOOLEAN SUBROUTINE DIMENSION* 

BEGIN COMMENT TRUE FOR SInGlE DIMENSIONED ClNCiUPES STRlNfiSm 



STREAM(T*POLiSH(XCh* 0* CDC)»A*0>* 

BEGIN SIfT, DI«-T; Sl*Sj-i6j SKIP 2 SB; 

IF SB THEN ELSE TALLV-1J T «■ TALLY; 



END 



END stream; 

DIMENSION * 

dtmfnsion; 



THISTYPE OR POLISH; 



subroutine put* 

begin csmment gets anu store* 

IF CRX256 + D)=EN0aTA THEN 



IF DATARQW»0 THEN 

BEGIN DATARQW <• *CDATA[H33; 

COMPRQW » »rCDMPANlONrRn; 



NEXT DATUM; 
PQLlSHCC-48)* 



26* COM); 



end; 

STREAM (A *T.t«3i5i»B*CCOMPRow['T.UO«3]3]); 
BEGIN 5I<-6* Sl+Sl+2; SKIP 4 SB) SKIP A 



IF SB THEN 

ENO stream; 

IF POLTSH+THISTYPF 



TALLY*!* A*TALLYj 

THEN P(f<4)i 7b, chm->; 



-3JLL 



IF THISTYPE THEN 
BEGIN COMMENT STRING*; 

STREAMCS»fDATAROWfU33.N*; 



BEGIN »I«-S; 0S*2 ^DS; END; 
END ELSE COMMENT NUMERICAL STUFF (OR 
PtPATARQHtm«tM1.»H 



WE ARE IN TROUBLE J* 



IK CD *■ D + THISTYPE+D2256 THEN 

BEGIN COMMENT ROW OVERFLOW; 

B ** H+1 i T >* 0, >■ QATAROW 



ENU ELSE T ♦ T + li 

ENO put; 

SllBRntiTt Mf fXjTl 



*? o; 



08600200 
08600300 
0860Qi,0Q, 



08600500 
08600600 
QR600700 



000050 

0000*0 
noooto 



0000*0 
0000*0 

ooo o*n 



08600800 
08600900 
08601000 



0860U00 
08601200 
086 130Q 



0000*0 
000050 
0000*0 



08601400 
08601500 

0ft6ol6Q0 



OOOOJO 
0000*0 
0000*0 



08601700 
08601800 
08601900 



0000 '0 
0000 5 

0000,50 



08602000 
086 02100 
086 22 



0000*0 
000010 

0000*0 



08602300 
08602400 
860 3 500 



0000*0 
OOOOJO 

0000*0 



0000*0 
0001*0 

0001 to 



08602600 
086o2700 
06602800 



08602900 
08603000 
QR 60 310 Q 



000150 
0002*0 
0000* 3 



T 
T 

JL 



0004*3 
0005*1 
QQOft'O 



08603200 
08603300 
06603400 



08603500 
06603600 
08603700 



0006*0 
000753 
000*^3 



08603800 
08603900 
08604000 



00 1 * 
0010*1 

oomn 



0.01.1*1 

0012*0 
00 1 2* 



08604100 
08604200 

08604300 



0860 4 400 
08604500 
860 46 00 



0015*1 
0016*1 
0018* fl 



08604700 
08604800 
0*604900 



0019*1 
0019»l 
0021*3 



0023*0 
0024*0 



08605000 
08605100 
08605200 



0026*1 
0026*2 
0027*0 



08605300 
08605400 
08605500 



0028*1 
0029*0 
002910 



08605600 
08605700 

08 605800 



08605900 
08606000 
08606100 



0030*2 
0032*3 
OQ 3 3U 



0036*1 
0038*0 
00 3 8*1 



li 



# • 



n 

2 

3 
4 
5 
6 
7 



BEGIN COMMENT FuTZ UP PTR AND GO 
PTR «- R&DtCTr'J4T[9;39t9J; 

pm.TSHcxn^ 



BACK TO THE REAL WQRLD; 



08606200 
08606300 
0860M0O 



0039*0 
0039*0 
0QU1 81 



END EXIT* 

COWMEMT**********START OF CQDE**********J 
rQUNT «. TYPE. man ; ; 



06606500 
00606600 



004J»2 
0041 13 

nnaH3 



R «• PTRttCFi; D ♦• PTR.tFF]; T . «• PTR.C9I9U 

IF NOT TYPE THEN GO 10 NORMAL* 

DO RESIN,, 



08606800 
08606900 
Q8607Q00 



T 0046 

T 00.50 

-X Q-05 



*3 
•2 
L 



4-U 



9 

10 
11 



PQUSHCMATRIX * GETNEXT); 

IF DIMENSION THEN 

BFGIN CQL » THlSTYPE+j; RQHLENGTH » MATHI X . [ fll j 11 



08607100 
08607200 
06607300 



T 0051 
T 0052 
J QXL&4 



*1 

*2 

10- 



12 

13 

14 

15 

16 

17 

18 

IS 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

•2 

«3 



00 BEGIN 

N. «• CMATBi.XC.COU 31 
PJHJ 



08607400 
08607500 
08607600 



0057 
0057 
0058 



U 

u 

U- 



END UNTIL (COL * CQL + THISTYP£*1 )«ROKtLENGTH; 
ENO ELSE BEGIN 
MJMftnWS » yiTRtHJMMnil 



08 6 07700 
06607800 
06607900 



0059 
006J 
0062 



*0 
*3 



..RQ.HLEN.filH *• (*CMATRIXXRQW *.. 1)13 ,18* i0 3^ 
DO BEGIN 

MAT* IXRg* t *[MA.TBMT,KQH3]J QOl «• 1' 



08608000 
08608100 

08608200 



T 006 3 
T 0066 
J 0066 



?3 

«0 
iO_ 



DO BEGIN 

N * £MATRlXRO**|COLn; 

P-iiXJ ; : 



08608300 
08606400 
06608500 



T 0068 
T 0068 

-I — aa$-a 



10 
»0 
LO- 



ENQ UNTIL (COL ♦ CUL+n«ROWLENGTH; 
E^D UNTIL (ROW ♦ RQ.K + l.)aN.gMRQH5; 



XNOX 



08608600 
08608700 
O86088Q0, 



T 0070 
T 0072 
T 0074 



;o 
•i 

i-2- 



END UNTIL (COUNT *> COUNT-i) a Oi 

exit; 

NORMAL* _ 



06608900 
06609000 
n«xsn9iQ0 



T 0074 
T 0076 



»2 
«3 

L0_ 



DO BEGIN 

n «■ getnext; put; 

END UNTI L (CQUM «• CQUN7-i?»Qj 



08609200 
08609300 
P 86Q9 4Q Q 



0078 
0078 
0Q 81 



»0 
*0 
*JL 



EXIT; 

END reaoata; 



06609500 
08609600 



T 0083 
T 0084 



n 

10 

65_ 



WORDS 



PROCEDURE BASIC INPUT (TYPES); 

valu f type s; 



08700000 T 0000*0 
START OF REL SEGMENT; DISK ADDRESS « 00599 
08700100 I 0000*0 



REAL 



flESlM RFAL RCW » +0, 



08700200 
06700300 
06700400 



T 0000 
T 0000 

j aojLo. 



>0 
10 
ISL 



ARRAY 



AL60L.Hfc.AQ . * 13* 
ALG0L3ELECT = im 
P O T = ?5 T* 3 ; 



0870O5OQ 
08700600 
08700700 



T 0000 
T 0000 
J. QOOO 



*0 

to 

in 



INTEGER 



45 
46 
«7 
48 
49 
50 
51 
52 
S3 
54 
55 
56 



6SIZE* 

BUFF* 
CHAR/ 



06700800 
08700900 

08701000 



T 0000 
T 0000 
T QOOO 



»0 
«0 

to_ 



CQL* 

COUNT* 

COUNTER* 



08*01100 
08701200 
08/01300 



T 0000 
T 0000 
J 00,00 



«0 

*o 

*_CL 



DECADE5, 



08701400 
08701500 
67016 



T 0000 
T QOffQ 
1 UMfl 



10 

10 

io_. 



NUMBER* 

NgMROwS# 

RQH» 



08701700 
08*01800 

08/01900 



T 0000 
T 0000 
T 0000 



*0 
'0 

io_ 



.i,>r t,,;,,;, .(i.-,;..!,^-. ,i 



B O OLEA N 






08702000 
08702 100 



T 0000 
T 0#00 

»<T 0000 



fco 

LSL 



m m 



RLAUMMT* 

STQG* 

THTSTYPr; 



08702250 T 
08702300 T 
QB702fitin T 



0000:0 
0000*0 

Qtiunio 



ARRAY n&t*}» 

MATRIX C*3* 
M&T»fxRnwr»it 



08702500 T 0000*0 
00702600 T 000010 
08*02700 T — 000010 



NAME 



aoqress, 

FILX* 
POINTS, 



Q87028Q0 T 0000*0 
08702850 T 0000*0 
06702900 T 0000*0 



STRING ■ ADDRESS; 
LABEL LOOK* 
STGNEO* 



08703000 T 0000*0 
08703100 T OffcOiO 
08703200 T QOOOfO 



10 
11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

90 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

♦3 

44 

♦5 

»6 

47 

48 

•9 

SO 

51 

52 

53 

54 

55 

56 



past point* 

AT' 
EXPSIGNED* 



08703300 T 
08703400 I 
08703500 T 



0000*0 
0000*0 
0000*0 



DECIMAL, 

ERROR* 

STRUN6* 



08*03600 T 
08709700 T 
08*03800 T 



000010 

0000*0 
0000*0 



QUOTEQ^TRING, 
SETCOUNT* 
NORMAL* 



08703810 T. 
08 70 3820 T 
QP7039Q0 T 



0000*0 
0000*0 

Qoon'n 



EXIT* 



RFAL SUBROUTINE GETNEXT; 



DUMMYLA8EL; 



08704000 T 
O0fO4jOO T 
08704200 T 



0000*0 
0000*0 
0000*0 



BEGIN COUNT «- CUUNT.-li 

PC*POlNTER)i POINTER «• 1 INX POINTER; 
T rUSTY-PL * UXPJLS «• Q&TTPKS C 6J 7*393 ).[6'l 3 



08704300 T 
08704400 T 
08704500 T 



0001*0 
0002*1 
0004*0 



getnext * polish 
end getnext; 

BOOLEAN SUBROUTINE niMfwSTQmi 



08704600 T 0006*3 
08*04700 T 0006*3 
08704800 T 0007*1 



BEGIN COMMENT TRUE FOR SINGLE DIMENSIONED 

STREAMCT«-PULISHCXCH* 0* C0C)*A«-0); 
BEGIN SUTi pJLtli SI*SI^6; SKIP 2 



(included strings?;; 

sb; 



08704900 T 
08705000 T 
Q8705100 T 



0008 * 
0008*0 
0009*3 



IF SB THEN ELSE TALLYoli T «• TALLY; 
END STREAM* 
DIMENSION * THISTYPF OR POLISH* 



08*05200 T 
08*05300 T 
08705400 T 



0010*3 
0012*0 
0012*1 



end dimension; 
subroutine checkpresence; 
bfgin comment call algo. read 



Intrinsic to 



087 05500 T 
08705600 T 
08705700. T 



OQ13:o 
0013*1 

Q014*0 



ArtAlT TOP BUFFER BEING PRESENT; 
BSlZE «■ P0LISM(MKS# 0* l» FILX* ALGOLREAO); 
TF UMJklxlMAlZlSl THEN BStZE » 9 ELSE BSI2E 



» BS1ZE-.1J 



08705800 T 
08705900 T 
087 Q 595 Q T 



0014*0 
0014*0 
PJ U 5 U 



BSlZ 

END CHECK 

SUBR OUT INE 



E «■ bsi^exb; buff * 

PRESENCE BIT; 
R EA C H* . 



(*FILX), [CF3| 



08706000 T 
08706100 T 

0870620 T 



0020*1 
0023*0 
0023*1 



POLISHCIKS* 0* 0* FlLX* ALGOLREAO)! 

SUBROUTINE setupandexit; 

BFGIN FTBt2l3t<BUFr*BSI7FrtBl3ail0lAirg9l87Hll 



ptxiT); end; 



08706300 T 
08706310 T 
08706^20 T 



002410 
0025*2 

0026 tO 



SUBROUTINE SCAN; 

BEGIN COMMENT GENERAL-PURPOSE SCANNER — CHARACTER AT A TIME* 

LOOK: IF BSIZE«Q, THEN BFGIN READITJ C H ECKPR e Se NC k ; E&ELi 



08706400 T 
087Q6500 T 

Q8706600 T 



0029*3 
0030*0 
0030*0 



GNCi 



DFBLANK< 



STREAMCU»1*BUFF*N*-IF BSIZE<63 THEN BSIZE ELSE 63*ST06)J 
BEGIN SltBuFF; CI*CI*lTOG; GO TO DE8LANK1 
COMMENT SWITCH ON WHETHER WITHIN STRING UR KiQTJ 



tally«-tally+i; di*loc i j ds«-lit 
di^oi+6; ds«-cwk; gq to exit; 

NUF • ;?cy" , * THEN JUMP OUT .TOL.fiNCI, 



M o"; 



08706700 T 
08706800 T 
QB 70 6 9 QQ T 



0033*0 
003710 
QQjfllQ 



08*07000 T 0038*0 
087Q7100 T 0039*0 
8 707 ,20 T — 00 3. 9 1 3 



TALLY*TALLY*11 U*Sl + lK7 
EXlTl N«-TALL*J BUFF*5U 
-_ . FN B S J L& E A&L , , .. 



06*0*300 T 
08*0*400 T 
Q670*Sfr Q T 



004111 
0042*0 
0042*2 



• • 



ft 

2 
3 
4 
5 
6 
7 



BSIZE «• BSUE-P(xCh); COMMENT 
BUFF <- ROLISh; COMMENT 

If P(OljPi<0 THEN CQMMFNT 



UPDATE COUNT* 
UPDATE PQINTEK; 
ONLY FUUND BLANKS* 



BEGIN PCDEL); 

IF (BSlZEaO) 
rNBf 



AND GUTOIGIT THEN PC",") ELSE GO TO LOOK' 



08707600 T 
06707700 T 
6 /07800 T 



0042*3 
004«;o 
0044* 2 



08707900 T 
08707920 T 
0R 707940 T 



004511 
004610 
004.8 10 



char «■ polish; 
end scan routine; 
boole an subroutine testcdllfct i comment puts current char 



087080QO T 
08708100 T 
08706110 T 



0048 s 
0048 * 2 

0048*3 



9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

26 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

90 

51 

52 

53 

54 

55 

56 

57 



BEGIN 



INTO STRING AND UPDATES CHaR COUNTER^ALSO DETECTS OVERFED*; 
J 
STREAM(CHAR* N*«C0UNTEH*»CQUNTER+1> STRING);* 



08708J15 T 
08708120 T 
0870612 5 T 



0049*0 
004910 
QQ49*Q 



BEGIN SI * a LOG N> SI « = 5 I.- If* 

oi ..i*. di+n; d & i= chr;* 

END STREAM/* . 



08708130 T 
08708135 T 
08708140 T 



0051*1 
.005.1*3. 
0052*2 



TESTC0LLECT»"C0UNTER»i5;a! 
END TESTCOLLECTiX 

subroutine frffreao; 



08708145 T 
08708150 T 
08708300 T 



005213 
0053*3 
005 4 *0 



BEGIN COMMENT REAqS AND STORES NEXT DATUM, DOING APPROPRIATE 

CONVERSIONS. HANDLES STRINGS AND NUMBERS* AND 
ACCEPTS A VARIETY OF FORMATSi 



08708300 T 
08708400 T 
08708500 T 



0054*0 
0054*0 
Q054».Q- 



DECAOES <• E 
IF CHAR«"#" 
IF THISTYPF. 



* ESI6N 
THEN GO 
THEN GO 



<• GOTDIGIT 

to exit; 
to strung; 



«• NUMBER «■ STOG ♦ Of SCAN' 



08708600 T 
08708700 T 
06708800 T 



0054t0 
0058*0 
005911 



GOTDIGIT ..< 
IF (SUN « 
IF CHARi>9 



i; 

CHAR*"-") OR 
1HFN GO TO ntr C 



ChAR» n +" OR CHARs'V* THEN SCAN; 

i Mai, ; 



08708850 T 0060*1 
08708900 T 0061*0 
06 7 090 00 T 06 6* 



DO BEGIN NUMBER «■ lOxNUMflER+CHAR; SCAN; 

END UNTIL CHAR>9; 
IF CHAR*"." THEN 



BEGIN SCAN/ 
PASTPOINT** WHILE CHAR<9 00 
BEGIN NUMBER t IQxhUMbFR+CHARi 



08709j00 T 0067*1 
08709200 T 00/0*0 
06709300 T 007 lM 



08709«00 T 
08709500 T 
08709600 T 



0072*0 
0074*0 
007 5 *1 



DECADES 

end End; 

TF CHARs-g" OR CHAR*"E" 



DECAOES+t; scan; 
THFN 



08709700 T 
08709800 T 
flfr-yftooflfl.- T 



0077*0 
0079*0 
QQ7 9I? 



AT* * BEGIN SCAN; 

IF CEijlGN «■ CHAR = "- 
iF C E fr C H AR)>9 THE 



M ) OR CHARa"*" OR CHARs"&" THEN S^AN; 
N fiU T Q F . RRQRf $£ A N ; 



06710000 T 
08710100 T 
Q87102QQ T 



ooeiM 

0083»o 
0Q8fl*Q 



WHILE CHARS9 DO 
IF ESIGN THEN E 



begin e * ioxe+char; scan; end; 



fnd; 



08F10300 T 
08710400 T 
08710500 T 



0091*0 
0095*2 
097*1 



WHILE CHAR/%" DO SCAN/ 
PCNUM3ER, e-decades, P(jT 
IF PCDUP)*0 THEN PtDEL* 



cabscpcdup))]* xch); 

DEjuJ , 



08710600 T 
08710700 T 

00710 800 T 



0097*1 
0100*2 

01 P 2»2 



ELSE IF P<0 THEN PC/ > 
IF SIGN THEN PCCHS); PC 

fip to exit; 



ELSE PCx)j 
tADDRESS3# «•); 



08710900 T 
087H000 T 
08711100 T 



104 » 1 
0106*3 
108*1 



decimal** if chah*»." then be 
if chaR<9 then go t 

____ NUMBFR t \i 



gin scan; 

PaSTPUINT ELSE GO TO ERHUR; ENU; 



0871 
0871 

08 71 



1200 T 
1300 T 

1 400 T 



0108*3 
0111*0 
112*3 



IF CHAR*»|" OR CHAR» M E" 
ERROR* COMMENT ER80R TERMINA 
P0LISH(C* , 4U# £6> COM);* 



THEN GO TO AT; 

TE * INVALIO INPUT DATUMiX 



0871 
08*1 



1500 T 
1600 T 
1610 T 



0113*2 

0116*0 
0116*0 



STRUNG** COMMENT COLLECT STRI 
C0UNTER»<=-CST0G* = 1);* 
STREAM(STRING); DSJM6 L 



NG item;* 

IT" "; % BLANK STRING 



0871 
0871 

0871 



1700 T 
1800 T 
1900 T 



0117*0 
0117*0 
0118*2 



IF CHAR * 



MM* 



THEN GO quqtedstring;* 



WHILE (CHAR NEG " " AND CHAR NEQ "*"} 

00 If TESTCQLLECT THEN GQ ERROR ELSE SQAN;x 



0871 
0871 
0871 



2000 T 
2100 T 
2200 T 



0121*3 
0123*0 
0124*1 



• • 



N 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



gu to setcgunt;* 
guotedstrjng* : 

SCAN/ IF CMAH* THF1S ,GQ .&FTrC3liNT i % 



08/ 
087 

Jiaz 



2210 T 0128 
2300 T 0129 
2400 T 0129 



IF TES 
SFTC OU NTI 



TCQLLECT THEN GO ERROR ELSE GO QUOTEOSTRING; * 
T CONVERT COUNTER TO COLLATING SEQUENCE;* 



0©7 

0Q7 
087 



2500 
2600 
2700 



T 0131 
T 0133 

x — am 



IF COU 
ELSE I 
CUM..MEN 



NTER LSS 
F (COUNT 
T PUT IN 



ThEN GO fcKRQR % NULL STRING 
ER««C0UNTER-5> LSS THEN COUNTER * ■CDUNTER+20; i 
CHAR COUNT REQUIRED BY BASIC STH jNGVARB;* 



087 
087 
087 



2800 
2810 
•24UX0- 



T 0133 

T 0133 

4 — Q-W 



STREAM( COUNTER, STRING)** 

•BEGIN SIt«LOC STRING; SII«5X"11 

nn»ni+i5t dsiichr;* 



087 
087 

087 



2920 
3000 
3010 



0137 
0138 



END ST 
GUT DIG 
IF CHAR NFfJ 



ream;* 
it**i; 



iIUG»»O.J* 

■ H THEN 00 SCAN UNTIL CHARs"*"** 



087 
087 



3020 
3100 
3-U 



T 
T 



HO T 04-4-1 



0139 
0140 

a. 



EXIT! I 

END FREE FI 
rOUNT 



ELD READ ROUTINE; 

«. TYPES. M16H REAQSTMT » TYPfS , f Aft t 1 3 I 



087 
087 
087 



3200 
3300 
3400 



0145 
0145 
01 46 



F.ILX .. * *(PUlNTER ...» 1 .. INX ( [ RCW 3&RCWC FTC 3 ) ) ; 
FILXCNOT 4J .«■ *(1 INX POINTER); FlB .* FILXCNQT 23; 

pointer » a inx pointer; 



08 7 
087 



3500 
3510 



T 0155 
T 0158 
4 — Q4AZ 



IF FIB 

IF (E» 

FUSE 



t53.t«3* 
IF FIBT 



23*2 THEN P(MKS» 0» 2» FiLX* 1» ALGOLSELECT ) ; 

(8:433*10 OR E*13 THEN FIBC203«»0 

203 NEQ THEN P(F U,Xt 8» 1 1<CQM )* 



087 

087 

-0*7- 



3600 
3610 



Ql63 
0167 



3620 T Q-iJLfc 



22 
23 
24 
25 
26 
27 



IF CBU 
THEN 
F NOT 



4 



FF <• (E <■ FIBC2U J.C30I1BJ) 3 
CHECKPRESENCE EuSE BSlZE *■ E.Cl8llO]l 
1 YPE^» THEN GO TO NflRHALi 



087 

087 

-04-7- 



3700 
3710 
3 800 T 1 6 0? 3 



T 0174 

T 0176 

JX 



DO BEG 
P 



IN 

OLISHCMA 
F DI ME NS 



TRIX * GETNEXT); 
IQ N T HF N 



087 
087 
087 



3900 
4000 
MOO 



T 0181* 
T 0l8i: 

4 0_L8-U 



28 
29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 



IEGIN COL «• THlSTYHE+i; ROWLEN.GTh * MATH IX , 18 * 103 /' 

DQ BEGIN 
ADDRESS t LMATRUCCnUi; 



06? 

087 

JXU 



4200 
4 300 
4rflOQ 



T 0185* 
T 0188* 

4 — o i a e i 



freeread; 
end until (col ♦ cgl+thistype+ 1 )*r0*lengthj 
end else begin 



087 

087 

_QB_7_ 



4500 
4600 

0700 



T 01891 
T 0190* 
J Qt9?« 



NUMRUWS..* MATRIX. C8» 103; 

HOWLENGTH «- (*[MaTRIX[ROW «- 133). [8:103; 

DO BEGIN 



Q87 
087 



4 800 

4900 

5000 



0193 * 
Ol9«! 

Q197< 



MATRIXROW «■ *CMATRIXCR0W33; COL «• \i 
DO BEGIN 
ADDRESS ♦ [MATRlXRQWtCOL33; 



081 

087 

JL8JL 



5100 
5200 
53QQ 



0197* 
0199* 
Q199* 



40 
41 
42 
43 



END 



freeread; 
end until (col *• col+ 1 )sr0wlength; 

UNTIL (ROW » ROW-»l)aNUMROWS; 



087 
08* 

M 



5«00 
5500 

5600 



T 0200* 
T 0201* 
T 0203 * 



end; 
end until count»0; 
setupanpexit; 



087 
087 



5700 
5800 
590Q 



T 0205« 
T 0205* 
J 0206* 



46 
47 
48 
49 
SO 
51 



NORMAL* 
DO 



BEGIN 

ADDRESS 4. 



getnext; 



087 
087 

0R7 



6Q00 
6100 
6200 



0208* 
0208* 
02 08 * 



freeread; 
end until c0unt»0; 

SETUPANPEXIT; 



087 

08? 

JJfil 



6300 
6400 
64 9Q 



T Q209I 

T 0211* 

J Q212t 



52 
53 
54 



END BASIC INPUT ROUTINE; 

%****************** ******************************** t******************** 
PROCEDURE MATrIXDIDOIERU* B* C> TYp£)j* MAT ARITH INTRINSIC 



08716500 T 0213*0 

SIZE* 0214 WORDS 
flJLQ- 



08(100000 

08800010 

segment; DISK 
QasnoiflQ 



55 
56 



VALUE 



k, X RESULTANT MOM 



START OF REL 



T 00001 

ADDRESS 

JL OOj&Ql 



«. 80607 

XI . 



J0 



• • 



ft 



9 
10 
11 
12 



13 
14 



I 

o 
Q 



• 



IS 
16 

> » 

18 

19 
) 20 

21 

22 
I 23 

24 

2G 
I M 

27 

28 
! 28 

30 

31 ~ 

32 

33 

34 

36 

36 

37"" 

38 

39 

40 



45 

46 
I 47 

18 

49 
I 50 

SI . 

52 

S3 

>4 

55 

56 

57 



Bt X A8G 1 MOM OR SCALAR VALUE 
CI % AKG 2 MOM 

a[*i. flC»3. rr» 1: I 



ARRAY 

INTEGER TYOEi 

X*** ******** ******** ***************** *****v4r****#'* ********##**** ******** 
BFGTN RftU, SCAi r g flf 



INTEGER I* 

J* 
LASTI? 



lastj; 
array arqwc*), 

aflflttlAli 



CRQWUlJ 
BOOLEAN ...SINGLE*.. 
LABEL ERROtir 



DiMERR* 

CHKSI, 

CHKSTZF, 



XX 



DEFINE 



NORMAL* 

scalefactur; 
sf s ctf MQ.3 «.n 



boolean subroutine dimension; x 

BEGIN COMMENT TRUE FOR SINGLY-DIMENSIONED MATRIX;; 



BEGIN . SLlSTi.. DIUTJ SI :«SI- 1 6> SKIP 2 SBJXX 
IF SB THEN ELSE TaLLYI«1J TOTALLY; 

end stream; , , _____ 



dimension ;* polish; 
end dimension; 

comment ****** 



* « * * S TART of rone ******* 



I .. »■, JU i; PO.LI.S.HCC.ROW 19 Q)}% 
IF (SiNqLE :» DIMENSION) THEN 
BEGIN COMMENT WOW VECTOR CASEJX 



*; 



LASTI *» 2' LASTJ ** C.SF1X 

IF Nit PSLISHCAROW- t"A* DIMENSION) THEN GO ERROR; X 

If TYPE » 2 THEN fifl CHKSI 1 * 



FRRORi 



IF POLlSHCdRQ* :« B> DIMENSION) THEN 
IF LASTJ = BRQW.SF THEN GO CHKSIJX 
COMMENT NON cQNVqRMaL ARGUHFNTS. ' 



P0LISH(<»50), 26, COM); X 
CHKSH COMMENT CHECK DIMeSiON fiQUNOS; 
IT LASTj GTR A,Sf THEN 



OI.MERRI COMMENT DIMESION SIZE ERROR; 
P0LlSHC(-72)» 2o, CQM)>X 
END ROW VECTOR CASE ELSE 



BEGIN COMMENT MATRIX CASE;* 

LASTI I* CSFJ-' LASTJ *« ( *CCCU 3 ) , SF;X 

IF PO LISH (A* DIMENSION) THEN 60 ERROR;* 



IF TYPE * 2 THEN GO CHKSIZEJX 
IF NOT PQLISHC8, DIMENSION) THEN 
IF LASTI * 9t sF THEN 



if lastj * c*cBcin).sF then go chksiz e ;x 
go to error;* 

CHKSlZEt COMMENT CHEK DIMENSION BQUNpSJX 
IF LAST! GTR A,SF OR 
LASTJ GTR C*CAClJ]),[8»10] THEN XX 

go to dimekr; XX 



MATRIX CiSEjX 






NORMAL! 1 




■ ',.;;• A,-w'- 



tg scalcfagtor; XX 



08800110 
08800120 
08600200 



08800300 
00600310 
O88OO4QO 



OOOO'O 
0000*0 

noooio 



08800500 
08800600 

08aoo7no 



0000*0 

0000*0 

OQOCtC 



0000*0 

0000 to 

Q000»0 



08100800 
08800900 
08801000 



0000*0 
0000*0 

noootp 



08801100 
08801200 

06801300 



08601350 
088C1355 
88 1 3 6 



0000 SO 
000010 

nooo?o 



Q88C140Q 

0-680 lb-00 
06601600 



0000*0 
0000*0 
0000*0 



0000*0 
0000*0 
00C0? -0- 



06801700 
06801800 
8 801900 



08802000 
0.8 8-02100 

06RQ220Q 



06802300 
06802400 
Qftfl025Q0 



0000*0 

0001*0 
0001*0 



0002 13 

0003*3 
00051-0- 



08802600 
0880270 
08802000 



0005»i 
0005*2 
Q0Q5*.3 



06802650 
06802900 
06603000 



0005 « 3 

0010*1 

OQl l'2 



08803050 
088Q310Q 
0W803PQ0 



06803300 
06603310 
08603400 



0012*0 
0014*1 
0016*2 



0017*3 
002QJ0 
00?9*9 



0022*2 
0023*2 
0023*2 



06803500 
08803510 
06603600 



08803610 
08603700 
06603800 



08803900 
08804000 
08604100 



0025*0 
0025*2 
00?6*P 



00*6*2 
0027*0 
0030*1 



06604200 
00604300 
08804310 



0032V3 
0034*0 
0Q36M 



0038*1 
0041*0 
0041*2 



06804400 
08804500 
08604600 



08804700 T 

oe«*44h»o T 

,,'f, 

-—<,Jt. 



004l«2 
0043*0 
0045*0 



it 3 

0045*3 
0007*0 



i 

f 

i 



r 
2 

3 

4 
5 

6 
7 
8 
9 
10 



18 

19 



23 ' 



25 

26 I 

27 

28 

29 I 

30 

31 

32 ( 

33 

34 

35 { 

36 

37 

38 4 

39 



42 
43 



47 

48 



fl 



49 
50 < 



52 
53 ' 
54 
55 

56' 

.3 



h 



00 BEGIN 

IF NOT SINGLE THEN 
BEGIN AROfl t* * t. A C 131 J 



B RQtt 19 t ia um 



08805000 T 0047*0 
08805100 T 0047*0 
88 05300 T 00 4 7 * 2 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



end; 



cftow i* *cct!3]; j is i; 

IF TYPE»Q THFN 



08805300 T 0050*2 
08605400 T 005212 
08805500 T 00^212 



I I 



DO A«QW[U] ...!■ UROWCJJ+PCCROWCJ]* XCH) 
UNTIL (J »= JtDsLASTJ 
FLSE , , 



08805600 T 
08805700 T 



00531 1 

0055*3 

680 5 80 Q T 0057*3 



1 1 



00 A80WCJ3 t» CR0WCJ3-P(8R0WCJ3* XCH) 
UNTIL U I" J4l)«LASTJl 
COMMENT NOTE FANCY WAY O F S AYING AaB-C* 



08805900 T 0058*3 
08806000 T 006|l3 
08806100 T 0064 * 3 



END UNTIL (.1 »» I + l)sLASTi; 
. PCXIT); 
S CA I.EF A CTO RH 



08806200 T 0064*3 
08806 300 T 0067*0 
06 8 06 4 00 T 0067*1 



00 BEGIN 

IF NOT SINGLE THEN 
BE GIN A R QW L» *U Cl 33 ; CROW » w *tc.mi; ENm X_X_ 



08606500 T 
0800*600 T 
QRWQ67QQ T 



0067*1 
0068*0 
0068*2 



BEGI 



if scale ..» 1 then xx 
n; ..stheam(f»»c..cR0w.ci3.j»ni«lastj-.i/ 

T*aP(QUP)iC36lft3>DES > s [ ARUWC 1 ] 3 ) I XX 



08806800 T 0071*2 
08806900 T 0072*1 
08807000 T Q074»l 



BEGIN SH*F* T(DS»*32 WDS; DS»*32 WDS)J XX 

DS *b-n WDS; XX 
end stream; XJ| ; ___ 



08807100 T 0075*3 
08807200 T 0077*1 
08807300 T 0077*3 



END ELSE %% 
BEGIN J t- I/ XX 
±1 . DO AROKtJ] l» CRUWCj3xP(SCALE, NOP# Xf.H? %% 



08807400. T 
08807500 T 
QRfl07600 T 



0078*0 
0078*0 
0Q7V»1 



UNTIL (J »■ J+1)*LASTJJ XX 

end; XX 

END UNTU f I ** Ifl )?LASTTi XJL_ 



08807700 T 
08807800 T 
08807900 T 



008H3 
0084*3 
Q0flq*3 



END MATRIX DIDQLER' %% 



******************************* 



%*** *********** ************ 

PROCEOURE TRANSP0SE(A#B); XXXX MATRIX TRANSPOSE XXXX 



08808000 T 

Si 

08900000 T 



0087*0 
ZE = 0088 WORDS 
0000*0 



VALUE A»B; 



XXXX 



INTRTNlSTC 



START OF REL 



XXX* 



08900010 T 

segment; disk a 

08900100 T 0000*0 



0000*0 
ODRESS s 00610 
L 



ARRAY AC*]/ 

8 1 * 3 ; 

x***» ****** 



X MQM OtSC 

X MQM DEH 

*********** 



FOR 
FOR 



RESULTANT 
ARGUMENT 



MATRIX OR ROW VECTOR 



*********************************** 



089002 00 T 
08900210 T 
08900220 T 



0000*0 
0000*0 
0000*0 



BEGIN LABEL 

INTEGER 
ARRAY R 



ERR50#ERR7 
I»J#LASTI# 

owt*3;x 



2#n0rmal#place'transp0seit;x 
lastj;x 



08900300 T 
08900320 T 
QB9Q Q4 0Q T 



0000*0 
0000*0 
UQQ Q'O 



DEFINE 
COMMENT 
JS 1* 



SF=C8*10]»; 
THERE ARE 



X 

THREE SPECIES 
ROW INTO COLUMN 



OF MATRIX TRANSPOSITION; 



08900405 T 0000*0 
OB900420 T 0000*0 
089004 30 T 0000*0 



X 2. COLUMN INTO ROW 
X 3. MATBIX INTO MATRIX 
-X IN THIS CASE TRANSPOsI T IAN 



MAY BE DOME INI PLACF 



08900440 T 
08900450 T 
08900*700 T 



0000*0 
0000*0 
0000*0 



46 
«7 
•8 
♦9 
SO 
51 
52 
53 
54 



COMMENT 
MATRIX 
THE D IM 



TRANPOSJTI 
DIMENSIONS 
FNSIQNS OF 



ON WILL dE PERFORMED WhEN THE RESULTANT 

ARE LARGE ENOUGH rO ACCOMMODATE 

THE ARGUMENT MATRlX/F V E N THO THE M A TRICE S 



08900501 T 

08900502 T 
Q890Q 



890Q503 T QQOO'O 



0000*0 
OOOQtO 
ILL 



MAY NOT BE MATHEMATICALLY CONFORMABLE;X 
flQOlFAN SUBROUTINE DIMENSION* 



08900504 T 0000*0 

08900505 T 0000*0 

Q890051Q T nonoio 



BEGIN COMMENT TRUE IF SINGLY DIMENSIONED;; 

STHEAM(T»*PQLISHCXCH> 0' CDC)»A*=03; 
B E G IN S H'U DJLUXi 5H« , S I ; , V Si f SK I P 2 Sj; 



0890051b T 
08900520 T 



0001*0 
0001*0 



o a 9 o o .fj.35, , t — og oa u 



IF SB THEN 
END STAIAMJ 
OHiCN&iQN^f 



TALLYl«U TOTALLY; 



08900530 T 
06900535 T 
8 900940 T 



090313 

0005*0 
0009 * 1 



h 



14 



16 
17 
IS 



19 
20 



23 
24 
25 

M 



27 
28 



29 
90 
31 " 



34 
35 
36 

37 " 



39 



41 
42 



45 



47 
48 



49 
50 
51 
52 



54 



55 

56 



*1 



END> 
X*********** START OF CODE ************* 
PCUSHCA.W IF OlMFNSI.nN ThEN* 



BEGIN COMMENT 1*DIM RESULTANT » ALLOW 
PQLlSHCfi); IF DIMENSION THEN * 

BEGIN 6HR^n*F > a*sn)t26»f.nM);t 



2. ONLY; 
ERROR * ROW 



0890054b 
08900549 
08900550 



TO ROW 



IRR7.2 1 PC Cr? 23*26* COM)/* 

end errors;* 

IF (l,A5TI'"r»Cmm),5F> 



08900555 
08900560 

QB90Q60 Q 



0005*2 

0005*3 
0005*3 



IF (LASTJt»8.SF) 

r»»i; rqwi«a;x 
go tramsfqseit;x 



NFO 2 THFN GO FRR'aO?*. 



GTR A.SF THEN GO ERR72;X 



0890060 5 
08900607 
QR9Q0610 



000910 
0009*2 
00 1 1 i 



END 1 DIM RESULTANT EL.S.E 

BEGIN COMMENT 2-DlM RESULTANT* ALLOW 1, OR 3,; 
POUSHfBW tF NOT OIMENSKIN TH EN GO N OR M AL ;* 



08900630 
08900650 
08900700 



0012:2 
0013?2 
QQU*2 



t : 



IF (*CAC133J.SF NEO 2 THEN GO ERR50JX 

IF (LASTj»*B.SF) GTR A«-Sp THEN GO ERR72iX 

00 PQLISH(8tJ3*»[AtJ33*l*CDC,gTD) UNTIL ( J i»J+ 1 )«LASTJi It 



08900710 
08900750 
08900800 



0016^1 
001912 

QQ2 U 1 



POLISH CX IT .).).% 
END 2 U.IM. RESULTANT;* 
NORMAL 8 



08900810 
08900830 
08900fl50 



002113 
0021 » 3 
0022*1 



002412 
0026*3 
003010 



IF (LASTII«(*CBC1]]).SF) GTR A.SF 

OR (LASTJ»»B,SF) GTR (* [A C 1 J 3 ) ,SF THEN 

H'H IP A.CFF3»B.rFF1 THElM GO PLACE; 



08900870 
0&90Q8 90 
8900900 



» : DO BEGIN ,R0Wi«*tACnm 

TransposeiT: j:=i;x 

_U 00 PC*tB[J3]* I. CGC, 



GO ERR72/X 

at trm in p\ ace 



08901000 
08901010 
890102 



00345 1 
0034*2 
QQ34»-2_ 



0034*2 
0036*1 
0041*2 



PLACf!* 



END UNTIL (I *■ I*l)«LASTlJ 

POLISH(XIT)* 

TF LASTI«2 ThFN POLTShfXlTU 



CRQhtJ]J* *•) UNTIL ( J t J*1 3sLAS T. JJ 



08901100 
08901110 
08901200 



** DO BEGIN ROW ...*.. *.[.A.C 13 ]J J'ltl; 
:» DO P(RQW[J3* *[A[JJ3* \, CDC* 

, UNTIL CJ - J+1)*LASTJ* 



08901300 
08901400 
08901500 



00 45*0 
0046*1 
0047*-O- 



0051*1 
0053*2 
0051 it 



DUP* LQD* [R0WU3J* <•* «•> 



END UNTIL (I ♦ I+l)«LASTI-ii 
END TRANSPOSE ROUTINE; 



08901600 
08901700 
0S9Q1BQ0 



0055*2 
0058*2 
0062*1 



***********************************#************************ik********^#* 
PROCEDURE MATRIXMuLTiPLYCA,a/C); "XXX MAjRIX MULTIPLICATION XX* 

START Up REL 



08901900 T 0064*2 
08902000 T 0067*1 

SIZFf 0068 WORDS 



VALUE 
ARRAY 



a*b*c; 

AC* J* X 
R[»1« % 



RESULTANT 
ARG-1 



MAT OR ROW 



XXX INTRINSIC 
VECTOR MOM 



09000000 

09000100 

S EGM ENT ; DISK 



T. 0000*0 
T 0000*0 
ADDRESS * 



00 613 



XXX 



CC*3> * AR8-2 " 

***********************************#*•************#********************* 

BFGIN 



09000200 
09000300 
QoonfliiflQ 



0000*0 
0000*0 
QQonin 



LABEL ERR50#ER«72»D0TPR0DUCT'CR0SSPR0DUCT;X 
ARRAY AR0WC*3* X 
BR0Wf»3. X 



O9OOO5OO 
09000600 
09 0.0 07 Q,0 



crowc*];» 

INTEGER I/J#K*LaSTI*LaSTJ*LASTK;X 

Qff|nf, sf g trtiioiat.y = rrqw»;k 

DEFINE SETT0SAVEBtt(SETTOSAVE8lTU«Sn«SETTOSAVE8lTi; 

sit»si«»i6; Skip 2 sb; if sg then dsi*set else dsi«reset#; 

LABEL RRM*MRM,MMR,MMMi X . 



09000800 
09000900 
QQQOtnQO 



0000*0 

0000*0 

QOQO*0 



0000*0 
0000*0 
0000*0 



09001100 

09001200 

0900 1 3 



SWITCH SWl »sERH50*RRM*ERR72*ERR72*ERR50* 

mrm*mmr*mmm;x 
rfal subroutine dimensions; 



09001400 
09001500 

OVQQlftQQ 



0000*0 

oooo'o 
QOOo»n 



0000*0 
0000*0 
OQOQin 



BEGIN -COMMENT SETS Bit IN StoVAL TO INOICATE MAT;X 

C8WVA*;*OIAl»*£AC0H»fl«»CBtO3a#Cl»»CCCO3 3};X 

...:-if.'W.J^. l . •.,.,.... ,..-.. .. m |.|-.„, ., Iin ....... .. 



0900.17PQ 
09001800 
0900190.0 



09002000 



0000*0 
0000*0 

ooobio 




oooiio 

0001*0 
0001*3 



57J 



# • 



SETTOSAVEBIT(AI); 

END stream;* 

RlHENSir)NS»BFnU3Hf> 



SETTUSAVEBIT(Bl); SETTQS AVEB IT ( C 1) I 



09002300 T 
09002400 T 
09002500 T 



0004*0 
0010*0 

noiou 



end dimensions;* 

boolean subroutine dlmerrj* 

0TMERR*»(LASTI GTR A.SF) OR 



(LASTJ GTR ARQW.SF);* 



09002600 
09002610 
09002620 



T 0010* 
T 0010* 
T OOlll 



COMMENT ********** START OF CODE 
LASTI :=B.SF; LASTJ: = (CR(JWJs*t 
LaSTKi»C.SF; ABOW»»»[AtTI«lJJ 



ch]3),sf; * 

i RR0W»»*rB[113;% 



09002700 
09002710 
qonn?«nn 



T. 0014* 

T 0014* 

J Q0?1* 



7 
8 
9 
10 
11 
12 
13 
14 
15 



60 TO SWLCDIMENSIONSJ;* 
MMM* COMMENT A(A t» A2>«B(B 1#B2) *C CC UC2)*X 
IF LASTK neq brow.sf THEN 



09002900 
09003000 

090Q310Q 



T 0025* 
T 0031* 
J 0031* 



ERR50* COMMENT NUN-C 
PCLISH((-50)'26* 
IF DIMEftR THEN 



onfokmal argument matrices;* 
comj;* 



09003200 
09003300 
Q9003400 



T 0033* 
T 0033* 
J 0034* 



ERR72I COMMENT RS5UL 
P0LISH({-72)»26, 
IF LASTK»2 THEN 



TANT BOUNDS TOO SMALL - DIM ERR;* 

Com sT'i ■ 

60 CRQSSPROOUCT ELSF GO OOTPRODUCTi* 



09003600 

09003700 
00003^00 



T 0036* 
T 00361 
T 0037* 



is 

17 
18 
19 



*: DC BEGIN 

BR0iKls*CB[.l3].; 
DCTPROHUCT* J*"!/* 



ARO^s=*[Atl]];* 



09004000 T 0039*1 
09004100 T 0040*0 
090 04 aOU T 42*3 



20 
21 



*t DO BE 
t* 



GIN 
DO PC* 



polishco);* 

CCEKn*JfCflC>BROWtK]#MUL>ADD) 



09004300 
09004400 
09004500 



T 0043* 
T 0044* 
.1 00451 



22 
23 
24 
25 



UNTIL 
POLISH 
END UNTIL ( 



ck»»k+i)*lastk;* 
c carowcj]]* std)u 

J*sJ+n»lAST^X 



09004600 
09004700 
09004800 



T 0047* 
T 0049* 
J 00 5 0* 



26 

27 

28 

29 

90 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 



END UNTIL 
POLISHCXIT 
RR M* COMM E NT A 



(It*I + U»LASTIJ» 

tAH«a(Bi)»c(ci.C2);«. 



0900*900 
09005000 
Q9QQ51QQ 



T 0052* 
T 0054* 



arowj=a; 
mrm: comment A(A1#A2 
IF LASTK NEQ (BR 



* 
)=BCB1 )*C(C1> 
QW:-B).SF THE 



C2);* 

N QO E RR SQ ^ » 



09005200 
09005400 
Q9Q057Q0 



T 0055' 

T 0056* 

_I QQ56 8 



lasth«2; if oim 

60 to dotproduct 

m m r* . co m mfnt auwa2 



ERR THEN GO TO ERR72;* 

;* 

>«fl(Bl»l )*C(C1 )i% 



09005800 
09005900 

Qqooftinn 



T 0058* 
T 0060* 

x noftii 



4-U- 



IF BRQW.SF 
LaSTJ;=LAS 
CRQm?Ci* 



NEQ 2 THEN GQ TO E 
r«; IF DIMERR THEN 



RR50;* 

GO TO ERR72;* 



09006200 
09006300 
0900660Q 



T 0061* 
T 0063* 
T 0065* 



CROSSpRODUCf ** 

DO BEGIN 
ARaMI»#tAM3ll >lt aj 8 1 



09006700 T 0066*3 
09006800 T 0066*3 
090 6900 T 0067*0 



40 
41 



42 
43 



X»aP0LlSH(*lBCl3l#l#CQC.)l* 
It DO .PCX#CROmtJ]»MUL* [ARQW[J]],STD) 
UNTIL( J»«Jtn*I.ASTjH 



09007000 T 0069*0 
09007100 T 0070*3 
090Q72Q0 T 0073*0 



44 
46 
46 
47 
48 
49 
50 
51 
52 
53 
54 
56 
56 



END UNTILC 
END MATRIXMULT 



ii*i*i)»lasti;» 
iply;* 



09007300 
09007400 



T 0075*1 
T 0077*2 
SiZjg 0078 WORDS 



PROCEDURE INVERTCA* 8); 



VAL UE 



A» b; 



09100000 T 0000*0 
START OF REL SEGMENT; DISK ADDRESS s 00616 
09100100 T 0000*0 



ARRAY AC*3* 8C *3 i 
BEGIN REAL BIG* 

p ia q « b i s; 



DEFINE 
INTEGER 



EPS 

I* 

II* 



= comment 100-13; o.ooooooooooooi*; 



09100200 
09100300 
Q 9 1004QQ 



T 0000* 
T 0000* 
T Q QQO f 



09100500 
09100600 
Q910Q7QU 



T 0000* 

T 0000* 

J OOQQ*- 



K2> 



09100800 
09100900 
09101000 



T 00001 
T 0000* 
JL 0000* 



N* 

JiU- 



REAL 8L0C8C0UNTER ■■ 16* 
8L0CKR0UTINE « 51 

abrav Aftowf ,»a; 



09101100 T 
09101200 T 
09 1013 T 



09101400 T 
09101500 T 
Q9 1 0U&0 T 



00O0>0 
0000*0 
0Q00 I0 
000010 

ooooio 

00QQIQ 



D EFIN E 



CQEYIU* 

PLACEHOLDER EM I 
MUVEWUHQS » N1CDS»32 



H05I DS»32WDS); DS»N wos#; 



09101700 T 
09L01800 T 
09 1P190Q T 



0000*0 
0000*0 
OOOOIO 



9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
90 
31 
32 
33 
34 
35 
36 
37 ~ 



SUBROUTINE SWAPRQWSI 
BEGlN;STREAMCA**tACn]*B**CAtK2 3 3*N*N+l#Nl*P(OUP).C36l6],COPY)l 
BEGIN SUA; M QV E WQRQS; 1 : 



09102000 T 
09102100 T 
09102800 T 



OOOOIO 
0001*0 
0005*0 



-EM EiU2- 



si*b; di + a; movewords; 
si*copy; dj>b; muvewords; 
swapruhs; 



09102300 T 
09102400 j 
Q910250Q T 



0007*0 
0009*1 

QQU*2 



;STREAM(TI«lAE03 3m**EB£0 
BEGIN Sll*TJ DH»TI SIl»SI 

if Sfl Thfm 



-161 skip 2 sb; 



09102505 T 
09102510 T 
QginPSl"! T 



001210 
001613 
Q017I3 



8EGIN n»*7i; DUfTii 
IF SB THEN EL .S E 
FIND ELSK TAUY*»U 



SlJaS.I-16; SKIP 2 sb; 
TALLY I ■..II 



09102520 T 
09102525 T 
09102530 T 



00 181 1 
0019*1 
0020*1 



ti»tally; 
end streak; 

F Pn LlSH THEN Pnt.lSHCC^OW 26* CQM)I 



4 



09102535 T 
09102540 T 
09102545 T 



0020*3 
0021*0 

0Q 2 l*l 



IF 

Nl 



CN «■ A.ia:iOJ)>C*CALl]J),C8J10j THEN PCC-54), 26* COM)J. 

<• CN «• N-io-i; 

A.rFF3*B.EFF3 Tl 



'■um- 



09102600 T 
09102700 T 
0910 2 B00 T 



0022*3 
0027* I 
00 2 9*2 



BEGIN IF B«Ul 103*N+1 QH ( 

THEN P0LI*H((-50)# 26* C 
IF Ml»Q THEN PC*CBEl1 



*EBE 133).E8I103^N+1 

OM); 

1* 1* CnCi *EAE1U* 1* CDC, *J ELSF 



09102900 T 
09103000 T 
091Q3100 T 



003l*3 
0035*3 
0038*1 



I 

o 

Q 



FOR Itl STEP 1 UNTIL .N 

STREAMCN, Nl*-P(D 
dEQI N S jjLl J S I + S 



UP).C?6|6J, S**CBtnj* 0**[ACl]J)i 

T + a; m»o; Di»m+8i MOvEnQRns; enq> 



09103200 T 
09103300 T 
991Q34 QQ T 



0042*1 
QQ44«o 
QQH7tn 



end; 

IF N*0 THEN 
PQlISHC*EAC133» 



1> COC* OUP* LOO* 1* XCH, /» XCH, »* XlTW 



09103500 T 
09103600 T 
09103700 T 



0052*1 
0052*1 
0053*0 



BLOCKCOUNTEK * BLQCKCOUNTE 
POLISHCKKS* [PLACEHOLDER^ 
BL GCKCQUNTtK * BLQCKCOUNTE 



r+i; 

1U N + l* 1* 1* 0* BLOCKROUTINE)! 



09103800 T 
09103900 T 
0910^000 T 



0056*1 
0058*0 
0Q6Q11 



POLISHCSKS* -tCOPYCPn* N + l 
COMMENT REDUCE fHE MATRIX BY RO 
FDR Ttl STEP 1 UNTIt N UP 



*1*1*1*BL0CKR0UTINE)* 

N PIVOTS TO TRI-OIAGONAL FQRm; 



09104100 T 
09104200 t 

Q9104300 T 



0061*2 
0063*3 

0063*3 



# 



40 
41 
42 
43* 



BEGIN II ♦. CK2 > I)-l*. BI 

FOR J«-I STEP 1 UNTIL 
BEGIN ARQW » »EACJJ]; 



g «■ o; 

N DO 

p gu s H(o>; 



09104400 T 
09104500 T 
9 104 6 T 



0065*0 
0067*2 
0069*0 



45 
46 
«7 
(8 
49 
50 
51 
52 
53 
54 
55 
56 
>7 



FOR K«-l STEP 1 U 
P0LISHC*CAEK33 

PQ .LI SH( A R Q H C I3» 



NTIL II DO 

, I* COC* ARDWCK3* x, »); 

±U 



0910*700 T 
09104800 T 
Q91Q 4 9 QQ T 



0070*2 
0072*0 
00 76* ? 



IF PQLISHCUKUWC 
PQLISHt.BlG' ♦ 



I3J* SND* SSP# DuP)>BIG THEN 
* J* ,K2* ♦} ELSE PCOEL); 



JLhlL 



O91O5Q00 T 
09105100 T 
9 1 Q520Q T 



0077*1 
0079*0 

oo.en.? 



IF BIGSEPS THEN P0LJ.S 
IF (PLACEHQLDERCU ♦ 
OlAG ♦ PQLtSH((ARQW » 



HU-57)* 26* COM);* NEARLY SINGULA* 

k2j*i then swaprqws; ' 
*ucin)* i* coo; 



09105300 T 
09105400 T 
09105500 T 



008313 
0066*0 
0089*0 



# 



FOR J«-I + l STEP 1 UNTIL N DO 
BEGIN POLISH(O); 

FOR K»l STEP 1 UNTIL II DO 



PQLISHC*CA|«JJ 
POLISH (AR0WEJ3* 



09105600 T 
091C570C T 

09105800 T 



0091*1 
0095*2 
0095*3 



e n d end; 



, 4* COG* AR0HCK3* x, •); 

♦* oiA6» /* tAROwun* *j; 



09105900 T 
09106000 T 
09106100 T 



001:810 

0102 1 2 



2 
3 



5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
IS 
17 
18 
19 



20 
21 



22 
23 
24 
25 



26 
27 
28 
29 



30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 



40 
41 

42 

43 7 



46 
46 
47 
48 



49 

50 



SI 
52 
53 
54 



55 
56 



PtJLISHOO* COM); COMMENT RETURN COPY ARRAY/ 
COMMENT INVERT LUWEH TRIANGULAR MATRIX; 
FU R 1*1 STfcP l UNT I L N DU 



BEGIN II ♦ 1*1/ OIAG ♦ POLISHCCAROW 

FOR J*l STEP 1 UNTIL II 00 
BEGIN POLlSHtOU 



* *CAcnn* if coo; 



FOR K*J STEP .1 UNTIL II DO 

P.0LI.SH(*CACK]], J, COC* AROWCK], 
PULIShCDIAG/ /$ fAROMLJUf O; 



-), 



end; 

AROWCU 



END? 



* 1,0/OIAGi 



COMMENT INVERT UPPER TRIANGULAR MATRIX; 

FOR I>N1 STtP -1 UNTIL 1 DO 
BEGIN II » l + lf AHQW t *LkLLl±i 



FQ& J*N STEP -i UNTIL II DO 
BEGIN L * J-l; POLIShCO)? 
FOR K»II STEP 1 UNTTl [ 



JUL 



.. POU.I.SH.C*CA.I.K.J J.* J# 

.jPQLI.SH.CA.aOHt J 3 #. CHS, 



end end; 



CQC> AR0WCK], *# ■ 
+ , CARQWCJ3 3* *")} 



COMMENT MULTIPLY UPPER AND LOWER 

FOR l-H STEP i UNTIL Nl DO 
BEGIN ABQH » *CACI33j : 



HALVES TO PROOyCE INVERSE; 



FQR J*l STEP 1 U'MTJL N 00 

dEGiN If ck2 «• j)si Then K2 «■ 1 + 1; 

FUR K»K2 STEP 1 UNTIL N 



polishco); 



POLISHC*CACK33> U> CQC* AROWtK]* X, 
IF lij THEN POLISHCAROWCJ], ♦ )>' 

mi ishc [ARnw[j] i, «oi 



+ ); 



end end; 
comment exchange column elements 

FQR J-N STfcP -1 UNTTl ) ntl 



TO ABSOLVE ROW PIVOTING; 



IF CI «■ PLACEHOLDERS)**! 
FOR KM STEP 1 UNTIL N DO 
REGIN AROW » +CACK31; 



THEN 



P0LlSHCAR0W[i3* 

end; 

POLISHCIQ/ com); 



end invert; 
procedure fortranfheereap; 



CAROWCUI], DUP' LOO, CAROWtlU* 
COMMENT RETURN PLACEHOLDER ARRAY; 



«-, «.); 



09106200 
09106300 

P9.Q6qQ,Q 



09106500 
09106600 
Q91067QQ 



0107*1 
0107*3 
Q1Q7M 



010910 
011219 



09106800 
09106900 
09107000 



09107100 
09107200 
09107 300 



0114*1 
0115*0 
01 1 9*2 



09107400 
09107500 
09107600 



0120*3 
0123*0 
012 H *3 



0127*0 
0127*0 
0139*0 



09107700 
09107800 
09107900 



0131*2 
0133*0 
13 4*2 



09108000 
09108100 
0910 8 200 



09108300 
09108400 
091085 



0136*0 
0140*2 
0H2 * 1 



09108600 
09 108 700 

Q91Q680Q 



0146*3 
0146*9 
1 H 8 * 



09106900 
09109000 

09109100 



0149*1 
0150*0 
0153 * 1 



09. 10.9.2 00 
09109300 
09109400 



0154*0 
0158*2 

Qi a o ' g 



09*09500 
09109600 

0Qtn970Q 



0161*1 
0165*3 
1 65* 3 



0167*0 
0168*2 
0170 10 



09109800 
09109900 
09110090 



0171*1 
0173*3 
0178 * 1 



BEGIN REAL 



PA«L 
EQ FL 



NAME 



USX 

0KA08 

FILX 



-1» * PARITY "LABEL WORD" 
-=£* * END-OF-FILE "LABEL HORp" 



START OF REL 



09110100 T 0178*3 

SIZES 0179 WORDS 
092Q QQQ T 0000*n 



REAL 



• -3* % ACCIOENTAL ENTRY FQR LIST 

* -4; % OISK AODRESS 

» "5; % FILE TANK DESCRIPTOR 



segment; disk 

09200JOC 
92 Q0 20Q 



ADDRESS » 
T 0000*0 

j. QQO Qt o 



00622 



BLOCK • 5/ % INTRINSIC INTRINSIC DESCRIPTqR 
AlGOLREaD ■ 13, % NORMAL-STATE I/O INTRINSIC 
SELECT = 14* * FILESTATUS INTRINSIC 



09200300 
09200400 

93 0050 



0000*0 
OOOOtO 

ooootn 



junk 

AHRAYSTUFF 
LSTRN 



* 17, 
■ 18* 
» 19, 



AR RAY 



LlSTYPE 

HQLT00 

POT 



X ANOTHER TEMPORARY 

* USED 8Y LIST FOR ARRAYS 

t INTERNAL LIST POINTER 



09200600 
09200700 
0920Q800 



0000*0 
0000*0 



REAL 
ARRAY 



FORTIRH 
AR«V 



20, 51! TELLS TYPE UF LIST ITEM 
21> % FOR CHARACTER TRANSLATION 
2g[+J' % POhERS-flF-TEN TABLE 



09800900 
09201000 
0980110Q 



000010 
0000*0 

ooooin 



*... ;:v... 



241 X FORTRAN ERROR MESSAGE ROUTINE 
-^ « QiflBAI ffeMPHPABV ABBAY 



09201200 
09201300 

09201400 



0000*0 
.0000*0 

0000*0 



0920U50 
09201500 
09201600 



0000*0 
OOOOtO 

OQ0 »n 



M 

3 

4 

>< 



47 1 

46 

49 

50 ( 

51 

52 

53 I 

54 

55 

56 ' 

5? 



• • 



h 



10 

11 

12 
13 
14 

15 






16 
17 
18 
19 
20 
21 
22 
23 



24 

26 



26 

27 



90 
31 



32 



34 
35 
36 
37 r 



39 

40 



42 
43 



f i b c * j ; 

BCQl.fc.AN ARRflYTUG* 



CQMPLEXTOG* 
DBLTOG* 
flQNFi 



Si FILE INFORMATION BLOCK 

% LIS T ELE M E NT H A.S ARR A Y N A M E 



LSIGN/ 
QOTDIUIT* 



X FIRST HALF OF COMPLEX NUMBER 

X LIST ELEMENT DOUBLE TYPE 

X FLAG FOR LIST EXHAUSTED 



REA0REC, 

SIGN* 

STllNftTflG. 



% EXPONENT NEGATIVE FLAG 

* TELLS IF CHARACTER SEEN 

% TR UE IFF FI L E H A S S EP N U MBERS *. 



T.HODIMTQG; 



X TRUE IFF SCANNER M*Y READ A RECORD 

X MANTISSA NEGATIVE FLAG 

t CONTROLS SCANNER ACTION 



Integer H.sUEr, 



name 



REAL 



LABEL 



# 

# 



45 
«6 
47 
18 
49 
SO 
51 
52 
53 
S4 
55 
56 



DEFINE 



OEFINL 



BUFF* 
CHAR* 
CniiNTER* 



X ON IF ARRAY IS TWQ-»OI MENSIONAL 

X NUM BE R O F CH A RACTERS LE FT IN B UFFER 



DECADES 
E* 

inofx* 



X CURRENT BUFFER POSITION 

X CONTAINS LAST CHARACTER SCANNED 

X NIJMRFR CHABAfTfRS \K STRTMfl 



SUE* 
TYPE* 



% NUMBER OF DECIMAL PLACES 

% CONTAINS EXPONENT 

X INnrx INTO ARR^Y If ARRAYinr, 

X ARRAY SUE IF ARRAYTQG 
X TYPE OF LAST LIST ELE M ENT 



^DDREbS, 
LISTAC.H s 



arry; 



% HQuDS ADDRESS TO STORE NEXT DATUM 
X HOLDS RESULT OF CUSXJ 



NUMBER* X TEMPORARY NUMBER-HQLOER. 

NuMBERL, NUMBERH * x DBLPREC NUMBER BulLT By FREErEaD, 



LI ST START* 
LI.ST.EXIT* 

LOOK* 



NUME«ICAL* 
PASTPOlNT* 
BYE* 



SCNR* 
AT* 

DECIMAL* 



ERROH* 

STRING' 

STRUNG* 



GETCOMMA* 
LOGICAL* 

exit; 



SWITCH SWlSH Is EXIT* NUMERICAL* STRING* NUMERICAL* 
LOGICAL* NUMERICAL* NUMERICAL; 



INTEGEHV 

STRINGV 



REALV 

LQSICAiiV 

D0U8LEV 



5 l», 

8 2»* 



» 



3*». 
4#* 



COMPLEXV • 6»; 

KIND * '(FiBC»3«[8i43 )#* 



DATATYPE 



o»« 



« (LISTYfE*t44f4^** 
« (LlSTYPE,|l8ll3)f* 

»: caai ■*..&<!« ■«. ■,.:..■ =. . 



09201700 
09201800 
09 2 1 90 



09302000 
09202100 
09802300 



0000*0 
0000*0 
000 IQ, 



09202300 
09tO2«0U 
09 2 2 4 5 



ooooio 
oooo»o 

0000*0 



09202460 
09902500 
09802600 



0000*0 
0000*0 
OOCQiO 



09202700 
09202800 
09202900 



ooooio 
ooe© to 

0000*0 



0000*0 
0000*0 

noooto 



09203000 
09203100 

092Q320Q 



0920 3300 
0920 3400 
09703500 



0000»0 
0000*0 

noooo 



000 10 

0000*0 
Q000*O- 



09203600 
09203700 
09203800 



000010 

0000*0 
OOOQIQ 



09203900 
09204000 
09204100 



09204200 
0920*205 
09200300 



0000*0 
0000*0 
OOOOLQ- 



0000*0 
0000*0 
0000*0 



09204400 
09204500 
09P04600 



0000 10 
0000*0 
OOOQIQ 



09204700 
09204800 
09204B50 



0000*0 
0000*0 

oooo*n 



09204860 
09204900 
0920500,0, 



09105100 
09105200 
9I Q 5 3 QQ 



0000*0 
0000*0 
QOQO'n 



0000*0 
0000*0 
0000*0 



09205400 
09205500 
09205600 



0000*0 
0000*0 
0000*0 



09205700 
09205600 
09205900 



09206000 
09206100 
09 2Q620Q 



0000*0 
0000*0 
0000*0 



0000*0 
0000*0 
0000*0 



09206300 
09206400 

Qiioftsbo 



09206600 
09206700 
09206800 



0000*0 

ooooio 

OOOQIQ 



0000*0 
0000*0 
0000*0 



09206900 T 
000 T 



OOOOIO 

0000 to 

QQQQ»n 



< 



i 

2 
3 

4 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 
17 



19 
20 ( 
21 
22 
23 I 
24 



25 

26 t 

27 

28 

29 I 

30 

31 

32 4 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

4,4 

42 

43 



45 

46 

47 

46 

49 

50 

51 

52 

53 I 

54 

BE. 

56 ' 

57 



e 



• • 



basef 

100 



* [18*lb]#, 

* (*FILX)#; 



09207200 T 
0920/300 T 
09807400 T 



0000*0 
QOQO»0 

o oo q t o 



SUBROUTINE CHECKPRESENCE* 

BEGIN COMMENT GETS NEXT BUFFER FROM ALGOUREADJ 



09B07500 T 
09207600 T 
Q 9 2Q7 70Q T 



0000 1 a 

oootjo 

QQOUfl 



END 



BUFF »= I0C,[33»15j; 

checkpresence; 



09207800 T 
09207900 T 
092QB000 T 



000313 
0005 »1 

0Q05*2 



i 

8 
9 
10 
11 
12 
13 
14 
15 



subroutine readit; 

begin comment order next record read from medium* 

PfttKSt DKAORt Of FtlXt AI.GOLREAO)! 



000512 
000610 
092 8300 T 0006*0 



09808100 T 
09808200 T 



if done then p(xit); 

if iuo.c27u3 then pcxit); 

chfckpresencf; 



09208400 T 00071 1 
09208700 T 0008 11 
0920 8 800 T 00*0*0 



10 

"< 

12 
13 

"I 
15 
16 
17 ( 
18 
19 
20 ( 
21 
22 
23 | 
24 
26 
26 ( 
27 
28 
29 ( 
30 
31 
32 { 
33 
34 
35 ( 
36 
~37 
38 ( 
39 
40 
41 I 
42 
43 
44 { 
45 
46 
47 ( 
49 
49 
50 i 
51 
52 
53 1 
54 
55 
56< 
5? 



END READIT; 

REAL SUBROUTINE NEXT! 



09208900 T 
09209000 T 



001J«0 
0011*1 



09209100 T — 011»1 



16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

«3~ 



BEGIN COMMENT GET DESCRIPTOR POINTING INTO AN ARRAY; 

IF TWUDlMTQli THEN 
P ( * tARRYUN PE X. [ a 3 !7 J3 3f INDEX. C 40*fl] t CDC? 



09209200 T 
09209 300 T 

09209^00 ,T 



00 12 * 
0012»0 
0Q12U 



FNn 



ELSE P(tARRTCINDEXn)J 

next «* polish; 

MFXT ITEM iNSTnE AN ARRAY* 



09209500 T 
09209600 T 
09209700 T 



0015*0 
0016*0 
0016*1 



subroutine listelement; 

BEGIN COMMENT GETS AOORESS TO STORE NExT DATUM* AND 



09209800 T 
09209900 T 
09210000 T 



0016*2 
0016*2 
0017*0 



diddles certain toggles as required; 

LlSTSTART* 
IF ARKAYTOG TH E N 



09210100 T 
09210200 T 
09210300 T 



0017*0 
0017*0 
0017*0 



begin address »* next; 

if cindex «= inoex+D8ltog+i)2SIZe then 

ARRaYSTUFF«-aRRaYTQg«-CQMPLEXTOG»0 ; 



09210400 T 
09210500 T 
921Q6 P P T 



0017*1 
0019*2 

0021 '3 



go to ustexit; 
end; 
if cqmplextug then 



09210700 T 
09210800 T 
09210900 T 



0024*0 
0024*2 
0024*2 



BEGIN AUDREYS I* ILI ST ADR [ 1 J ] ; 
GO TO LISTEX IT; 

end; 



COMPLEXTOG ** Qj 



09211000 T 
09211100 T 
92 11 200 T 



0024*3 
0027*1 
OQ2 7'3 



PCO); LlSTADR »s CLISXU 

complExtog*-Ctype*datatype)«complexv; 

TF ARRAYSTUFFXO THEN 



dbltog*type*ooublEv i 



09211300 T 
092U310 T 
09211400 T 



0027*3 
0028*3 
32*1 



BEGIN 



ARRaYTUg'*i; P(LlSTADR*MEM'[LlSTADRii;i8*l5J]) '> 
S I ZE» C 1 NDE X» ARR AYS TUFF. BASED* ARRAYS TljFF. S I ZEF 



092U500 T 
09211600 T 

092U7QQ T 



0033*0 
0033*2 

0036 *1 



45 

46 
47 
«8 
49 
50 
51 
52 
53 
54 
55 
56 



twgdimtog+nqt pcldd#top>* P(Ded ; 

GO TO LlSTSTART; 



end; 



09211800 T 
09211900 T 
0921200 T 



0039*0 
0040*2 
Q0 4 1 * . n 



ADDRESS «• CLISTADR1033J PCQEDJ 
LISTEX.IT*. 



09212100 T 
09212150 T 
09212300 T 



0041*0 
0042*0 
0042*0 



end get next list element; 
S ubro utin e s canner ; 



09212400 T 
09112500 T 
Q92.26Q Q T 



0042*0 
0042*1 
QQ4PM 



BEGIN COMMENT GENERAL PURPOSE SqaNNeR — CHARACTER AT 

PURLOINED FRUM BASICJNPUT ROUTINE BY W«F4; 
LOOK* IP B$UE"0 THEN, BXAOHi 



A TIME, 



4 



09212700 T 
09212800 T 



0043*0 
0043*0 



092 1 29 00 T — 00 3 10 



STREAM(I*«fl» HUFF. 

NI«1F BS1ZE<63 THEN BSIZE ELSE 631 STRINGTQG); 
BEGIN. SI tftRUFFl f.I l«Cl»STRINfiTflGI GO TO QEflLANK; : 



09213000 T 
09213100 T 
09213200 T 



004910 
0046*0 
0049*0 



• • 



3 

4 

6 
7 

9 
10 

12 
13 

15 
IS 

> " 
18 

19 ~ 
| 20 

21 

22 
| 23 

24 

f 26 

27 

28 
i 29 

JO 

31 ~" 

32 

33 

34 

35 



6 NCI 



CGMMENT BLANKS SIGNIFICANT WITHIN STRINGS; 
TALLYi«TALLY*i* OIJsLQC IJ DSlsLIT "0"; 
Uflani-m; nsitrnm r.n JO EX T.T f 



0E8LANKI N(IF SC*" " THEN ^UMP OUT TO GNCJ 
TALUYI«TAULY*li S!l«SI+t>J 



END STREAM! 

BSIZE. » s BSIZE-P(XCH); 

BUFF ts POLISH! 



IF (CHA8*PQLISH)<0 THEN 

IF BSJ2E-0 THEN 
fl£n:iw 



X UPDATE CHARACTER COUNT 
% UPDATE HUFFER POINTER - 



ELSE SO LOOK ; 

END scanner; 



IF GOTDIGIT THEN CHAR*-"*" 
ELSE IF HEAUREC THEN GO LOOK 



SUBROUTINE ..LQ.GI.CALCQMP.aRE * 

BEGIN COMMENT COMPARES LOGICAL TO .TRyE , , ".TR.U. ,,TR . , , T . , 
.FALSE., .FALS.* .FAL.*.FA.> .F t ; 



UK 



STREAM(C*P(XCH) I C2»C0UnTER»1#C1*8«.C0UNTER*E# NUMBER) 

BEGIN. 

ST»I0C NUMRFRi ST»ST»Ml nl»|nf n n^ n i^f t 



E»P 



IF C2 

END i 



SC*DC .THEN. IF SC*"." THEN TALLY«-l; C«-TALLY ; 



END OF LOGICALCOMPaRE 



SCNRI BEGIN SCANNER ; 
IF CHAR» M / W THEN 

draiN HLAM££±0 



WHILE CHAR***" 

IF.&U2E40 AND 

END J 



AND BSI2EXQ DO SCANNER; REAOREC*! ; 
GOTDIGIT THEN CHAR«- W >" E-L*E GO ScNR ; 



end of scan 
subroutine auilonumrer 



BEGIN COMMENT BUlLOS DBLPREC NUMBER NUMBERl»NUMBERH ' J 

p(numbeRl»numbeRh) ; 

WHTLF EHaR<10 HO 



BEGIN '" 
CQUNTEK«-NUMBER*0 * 
00 BEGIN COUntER«-CUuNtER»V; NUMBERtNUMBERx i q + CHaRj SCA,m E ND 

until Char>9 or counter'U ; 
decaoes«.oecades+counter ; 

IF DflL TflB THEN PCQ»PnTCcnuNTFR]jnLM«O.NUMftFR;>nLA^ 

ELSE PCPQTCCOuNTERJ^x^NUMBER**) ; 

end ; 

NUMBFRI »Pt.NUMB£RH. «Q j 



EN8 OF BU1LQNUM8ER ; 
RFAL SUBROUTINE ALFA I 



BEG I N 

STREAM(CHAR»«*0> 
B EG IN 



SI*LOC 

; 



char; si*si*7; if sc*alpha then tallym; char*tally 



09213300 
09213400 
09211500 



09213600 
09213700 
09813800 



0050*0 
0050*0 
0054X0 



09213900 
09214000 
09214100 



O0SJI3 
0053«1 
00 54 *0 



09214200 
09214250 
Q9?l4275 



005412 
005413 
005610 



09214300 
09214 350 



09214360 
09214400 



005612 
005712 
005813 



09 214410 
09214415 
09214416 



005911 
006011 
06 1 1 2 



0062«1 
00621} 

006212 



09214425 
09214430 
092144^5 



006212 
006310 
0063 1 



T 

T 

-X- 



006310 
006610 
006610 



09214440 
09214445 
09?14450 



09214455 
09214460 
09114465 



092144 70 
09214475 
OQPiaafln 



006712 

00691 l 
Q 69I2 



0070*0 
0070*1 
0Q70*i 



09214485 
09214487 

OOPIiHiqn 



00/1*0 
0072*0 
00/211 



09214495 
09214500 
092145Q5 



09214510 
09214515 
09214520 



0074*0 
0078*1 
0080*3 



0080 I 3 
0081*0 
OOfll »0 



09214525 
09214530 
09214540 



0081*0 
0081*0 
PQ 8H? 



09214545 
09214546 
0921 4547 



0921455Q 
09214555 
09214560 



0082*3 
0082*3 
OQBatn 



0087*3 
0090*1 
0091*3 



09114565 
09214570 
09214575 



009410 
0095*3 
096* 1 



0921457 7 

09B14579 
0921*581 



0097*1 
0097*2 
0097*? 



09214583 
09814585 
091 14 587 



0098*0 
0098*0 
00.99*1 



0099 1 1 
0100*2 
0101*0 



9 

10 



11 
12 
13 

14 

15 

16 

,7< 

IB 

19 

20 ( 

21 

22 

23 ' 

24 

2S 

26 ( 

27 

28 

29 I 

30 

31 

324 

33 

34 

35 { 

36 

37 

38 I 



42 

43 



46 
46 



47 

48 

49 

50 

51 

52 

53 ' 

54 

55 

56 1 

JJ 



m 



END OF ALFA ; 0921*589 T 01Ql«l 

0921*591 T 0l0i:2 

y SUBRO UT INE FREEREAO; 0921*600. T Q 1 1 , » ? 

p| BEGIN COMMENT READS AND STORES NEXT DATUM* DOING APPROPRIATE 0921*700 T OlQ2lO 

CONVERSIONS, TYPE OF SCAN IS DEPENDENT ON TYPE OF 0921*800 T 010210 
LIST ITEM. OPERATES INDIFFERENTLY ON A VARIETY QF 092 1* 90 T 0l Q2t0 



12 



16 

17 
18 



20 
21 
22 
23 



NUMERICAL FORMATS; " 09215000 T 0102*0 

GOT.OIGIT < = STRINGTOG »■ FALSE/ 092l5l00 T 0102*0 

6 | CQUNTER«-E<-ESIGN»NUMBERL»NUMBERH<.NIUMBER + DECADEa*n ; 00?i5 ?nn T 01^*1 

scan; if char»%" then go to exit; 09215300 t 010710 

IF CHAR»9 THEN 09215310 T 0l09*l 

9 |- IF ALFA THEN Q9?l5315 T QllOlQ 

10 BEGIN 09215320 T 011210 

11 DO SCAN UNTIL NOT ALFA ; 09215325 T 0112*2 
IF CHAH«"t" ThEN Q9?15330 T 0lH»3 



,3 I BEGIN 09215335 T 0il6*2 
" 00 BEGIN DO SCAN UNUL CHAR>9 END UnTIL ChAR/58; Q92lS3*0 T QU7*0 
l6 | IF CHARX")" THEN GO ERROR; SC A N J Q9?t5 3*5 T Q119I3 

END ; 09215350 T Q X 2 3 * 

IF CHAR=«-» THEN 09215355 T Ol23»0 

BEGIN , , 092 1536U T ____3_ 



'•[ SCAN; IF NOT<CHAR»«R" OR CHAR«"I")THEN GO ERROR; 09215365 T 012**1 

SCAN ; 09215370 T Ql27*0 

END ; : 09215375 T 0l28*0 



IF CHAR7"*" THEN GO ERROR; SCAN ; 09215380 T Qi28*0 

END / 09215385 T 0130*0 

J t_ BYF: IF (OONE»ChAR*"»") THFis READIT ; 09?l5*Q Q T Q l30*n 

IF CHAR s ""« THEN GO TQ STRING; 09215*05 T 0133*0 

IF CHAR«"x" THEN GO GETCOMMA ; 09215410 T 013**1 

G QTD Ifi lT ** T RUE; 09215500 T Q135I2 



26 
26 
27 



"... GO TO SWISHCTYPEJ; 09215600 T 0136*1 

29 NUMERICAL.** 09215700 T .01.40 1.3 

50 IF (SIGN »= CHAR."-") UK CHARs"*" OR CHAR*"&« THEN SCAN; 9215 800 T Oi*QM 

31 IF CHAR>9 THEN GO TO DECIMAL; 09215900 T 0i*6*0 

32 BUILDNUHBER ; 09216000 J 0147*1 

53 nFCADEs+n ; . 09216100 t — 01*8*0 

M IF ..CHAR?".." THEN 09216200 T 01*8*3 

35 BEGIN SCANi 09216300 T 01*9*2 

16 PASTPQINTH 09216*00 T 015H0 

37 



38 



8UILDNUMBER ; 09216500 T 1 5 J I 

END i 09216800 T 0152*0 

"L TF CHARs"g" flR CHAR««E» QR C HAR««n« THFN 09216900 T 0158*0 

,c AT* * BEGIN SCAN; 09217000 T 015**3 

41 IF CESlGN J* CHARs"-") OR CHAR*" + " OR CHAR=»&" THEN i>CAN; 09217100 T Ol57?o 

IF (E 1= CH AR )>9 THF N G O TQ E RROR ? S CAN; 09817200 T 0162*0 



WHILE CHARS9 00 09217300 T 0j65*0 
BEGIN E »* lOxE+CHAR; SCAN; END* 09217400 T 0166*1 
IF ESIGN THEN E *? -E; _______ 09817500 T "1*9*2 



<6 

»7 



END; 09217600 T 017 1 1 1 

09217700 T 0171*1 

w , IF ABStNUMbER»E-0ECAD£S)>69 THEN GU ERROR ; 092l 7fl 00 T 01/1*1 

PCNUMBERL'NUMBERH) ; 09217900 T 0173*3 

IF NUM8ERX0 THEN 09218000 T 017**1 •■ w 

51 L , IF DBLTdg THEiv P( POT C69»ABS< nUmBER U» PQT[ arSCmUmAFR ) 1* 09 21 8 025 T Ql75»0 5 ' 

« IF NuMBER<0 THEN P(0lD) ELSE P(DLM)) 09218050 T 0178*1 " 

H ELSE P(PQT[A8SCNUMoER)JMF NUMtftR<0 THEN P(/J ELS£ PU)) ; 09218100 T 0180*2 

_ _ IF SIGN THEN P(CHS) ; — _, »9 2l8« 0U T 18**0 

55 j IF DSLTQfl THEN P ([ ADDRESS ]* STD* t ADORESS C 1 3 1 » STo) 09218500 T 0185*0 
M ELSE BEGIN 09218600 T 0187*1 
M ; P(XCttjP£L*tAD0RFSS3) ; : : Q921661 5 T P_ i_ _3 



53 ' 

54 

55 

56< 

5? 



• • 



h 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



19 
20 
21 
22 
23 
24 
25 

» 

27 

28 

29 

90 

31 ~ 

12 

» 

34 

35 

36 



37 
38 
39 
40 



41 
42 
♦3 



45 
«6 
47 
(8 



49 
50 
51 
52 
53 
>4 
55 
56 



_— 



IF TYP£=INTEGERV THEN 

BEGIN 
IP P<QUP)>?7777777777777. 



P(ISD) 
END 
ELSE P(STO) ; 



THFN fiO F.RNQR I 



END ; 
GO TO getcqmma; 

DECIMAL* * 



IF CHAR""," THEN 
BEGIN SCAN) 
If CHARS9 THEN 



end; 

NUMBEHH«-1 ^ 
TF ChARa"8" 



60 TO PASTPQlNT ELSE GO TQ ERROR; 



ERRORS 1 

IF PARL'O THEN 

PfPABI . MKS. 0. p t ftfKll 



OR CHARa"F" OH "CHAR»"D" THFN fiO TU ATi 



...P..C.M.K.5.f FIBC61, FILX.C33 1 15J* 2> F0RTERR); 
STRING" « 

IF CHAR*""" THEN GD TO ERRDR; 



COUNTER I" 0; STRINGTOG *« i; 

DO BEGIN SCANNER ; 
STHUNRlt : 



NUMBER *» " 



"> 



IF CHAR/""" THEN 

BEGIN . CQUNTERi'CO.UNTER + i; 

5T REAM C CHAR, N«»CQUNTER»Tt"f NUMBER])? 



BEGIN SIt«LOC Ni SII*SI-li 

OI»*DI+H OI»*DI+N; DSI«CHRJ 

-£JW — stream; 



end; 
end until (counter* 6) qh 

IF mUlMTrRaQ THFN r.Q TQ fRRHR ; 



CHAR*"""; 



PCNUMB£R, CADDRESS], STD); 

IF CHAR*""" THEN 

REGlN SCANNtRl IF CHAR«""« Thfn an 6FTrnM M A i 



IF LST«N".(-l) THEN GO TO ERRQR; 

LISTElEMENT; 

IF LSTHN»f-1) THE.M GO ERROR ; 



NUMBER *" 



end; 
6 ftc q mmah 



*; COUNTER «• 0; GO TO STRUNG; 



WHILE 
GO TO 
LOGIC At, i » 



CHAR/"," 

exit; 



AND CHAR*"*" 00 SCAN; IF CHAR*"*" T^EN Gq BYE 



IF CHAR""," THEN 
BEGIN COMMENT SHOULD BE 
NUMBER I* COUNTER *» 



",T«UE." 



E *" 






"♦FALSE,", OR ABBREVIATIONS; 



00 BEGIN 

SCAN; NUMBER * = CHAR & NUMBER [ 12 J 16 : 3Q] ; 

END UNTIL (COUNTER > "' COUNTf- R*l )"6 OR 

CHAR""," OR CHAR"","; 
IF NOT (E+CQUNTE«*2 AND NUM8ER*"T>") THEN 

BEGIN &+M P("TRUE W ); LOGICALCOMPARE ; 



IP NOT £ THEN 
BEGIN 
IF CQUNTbR*2 



OR NUMBERX"F#" THEN 



begin e*3; p("false«); logicalcompare ; 
if not e then go error 1 

eno ; , 



09218620 
09218625 
0921B63U 



09218635 
09218640 
09 2l «64S 



0188*2 
0189« 1 
Qlfl9i3 



09218650 
09218700 
09818800 



0l9l»0 
191 1 1 



09218900 
09219000 
09219100 



0.1 9.3 H 
0193«1 
01 ^3* 3 



019313 
019413 
19610 



09219200 
09219300 
092194QQ 



0197 l 3 
197 13 

Ql9fl»2 



09219500 
09219600 
0921970Q 



09219800 
09219900 
Q92?0flQ0 



020210 
0202*0 
2021 3 



09220*00 
09220200 
09?20300 



020411 
0206*1 
Q2Q6*1 



09220400 
09220500 
09220600 



0208*1 
0210*2 

0212*0 



0212*0 
0212*3 
021 4 *2 - 



09220700 T 
09220000 T 
0922090 T 



09221000 
09221100 
09221200 



0215*3 
0216*1 
2 1 7*1 



09221300 

09221400 
092P1S00 



0217*2 
021712 

021983 



0221*0 
0221*3 
22 ??? 



09221600 
09221700 
Q9221750 



09221800 
09221900 
09222000 



0225*1 
0226*3 
0228*0 



09222100 
09222200 

Q92?210Q 



0229*2 
0233*0 
Q233tO 



09222400 T 
09222500 T 
Q92?2ft0Q T 



0233IQ 
0237*1 
0238*1 



09222700 
09222800 
O92 2 2900 



0238*1 
023913 
024 0* 1 



09223000 T 
09223100 T 
09223110 T 



0242*0 
0242*0 
02 44*3 



0246*2 
0249*0 

Q3 9 H 2 



09223H5 T 
09223120 T 
09223125 T 



0254*0 
0254*2 
0255*0 



092231 
0»22314Q 



T 
T 

JL 



025910 

0W * 3 



• • 



N 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



E*0 

END 



LNp 



09223145 T 
09223200 T 
09223300 T 



025913 
0260»2 
026082 



ENO ELSE IF ( E*-CHAR*»T" ) OR CHAR«"F" THEN 

BEGIN SCAN ; 
IF mi (CHAR»".« QR CHAR«".*M TRFN GO FRRQR J 



09223400 
09223405 



T 02601 

f 0267 « 
J 02 6 9 1 



END 
El^E IF NOT (CE*CHAR*1) OR CHAR.O) THEN <>Q ERROR > 
EiXj [ADDRESS), STH)J GQ jjj GETCQHHAJ 



09223420 
09223425 



T 
T 

-X- 



02/1* 
02711 

027 4> 



EXlTU 

ENO freereab; 



comment ***** ***** start qf code ----- - 

FILX CNOT 3J*PAHL; FItXINOT 4J«-E0FL; 
FIB *» FILXLNOT 21k 



09223600 
0*223700 
09223600 



02751 
I 
I 



***** ***** *****; 



09223900 
09224000 
09224*00 



0276 * 
02761 
02fl7» 



IF FIBt53,£43J23/2 THEN 

P0UISH(MKS, 0* 2, FII.X, j, SELECT); 
CHFCKPRESEwCE* ARRAVSTUFF t« ill 



IF FlBtOJ'O THEN FlBtOM is II 
IF FIB CO 3^1 AND KIND*2 THEN 
POL 1SH(MKS» FTBfrtJr FILX,[,ni 



0922«200 
09224300 
0922 4/4 00 



T 0288* 
T 0290* 
jf Qa93* 



15]> 4» FriRTERK); 



09224500 

09224600 
09224700 



'202M 



IF P(*CFIBU4JJ#T0P) THEN PCDEL) 

ELSE BSIZE*-(S£Q«.(SE0*C*<4 JNX P (XCH> ) 3 . [ 36* 63 )*0 aNq S£Q*8 

A ND SSQ*9)x8 



T 029313 

T 0296*2 
224700 T 0299* 1 



09224710 t 0301*3 
09224720 T 0303*2 
922 4 730 T 30 6 *3 



22 
23 
24 
25 
26 
27 



+ BSUE ; 

U3TRN«-.READREC*1 > 

00 BE^ IN IF Df]wE»I .S TRN » 



("1 ) THEN REAQIT; LISTELEMENT '> 



09224740 
09224800 
09 2 2490 



T 0309* 

T 0310* 

-J — 3 12*0 



1 
3 



FND 



IF COQNE ** (USTRN«(-1))> THEN READIT; 
FREESEADJ 

until false; 



09225000 
09225050 
Q9??5lQQ 



T 0316* 
T 0319* 
J 03201 



28 
29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 



39 
40 
41 
42 
43 



ENO FORTRAN FREE FIELD HEAD.* 
PROCEDURE "CnBOL0EClMAL.T00CTAI.C[]KVERT(A) ; ** INTRINSIC * P151. 



09225300 T 032013 

SIZE* 0321 WORDS 
Q93Q0QQO T QQQQ*0 



START OF HEL 
VALUE Ai NAME A i 

% THIS PROCEDURE CONVERTS A STRING OF N BCD DIGITS* STARTING AT HQRo 



segment; disk 

09300100 
0«3QQ?00 



ADDRESS 
T 00001 
J OOOQI 



00633 



% ADDRESS A, CHARACTER OFFSET S, J N TQ A .OOUB.LE-.lENO.T.H VALUE. THE LOW 
X PART OF THIS IS STORED IN S, THE HIGH PART IN N, IF N , C 1 1 1 3« 1, THEN 
% THE SIGN QF THE VALUE IS STAINED FROM THE ZQmE BITS QF THE 1-ST 



% CHARACTER (BCD DIGIT)* OTHERWISE FROM THE LASTt 0SSS7» 0SABs<N)S23 

BEGIN 

RFAL N»A« 2* S»N-1. fl«9, C J ; : 



09300300 
09300400 
09300500 



T 0000* 
T 0000* 
T 0000* 



09300600 
09300700 
093QQR0Q 



T 0000* 
T 0000* 
J. QOOOI 



LABEL B*D»£»T8*G ; 
Q«-N*0; PCDIB 1) ; 
IF (N»ABSt.N )ji sg THEN 



09300900 
O93OIOOO 

09301100 



T 0000' 
T. 0000* 
J 0001 1 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



BEGIN 

STREAM(ClS*A,N)i BEGIN SI*A; SI*SI*SI 0I*L0C C; DS*N OCT END * 

TF NAT Q THEN GO Pi N»P / '. 



0-9301200 
09301300 
Q910UQQ 



T 0003* 

T 0003* 

J 00071 



ELSE 



END 
BEGI 
IF N 



N PCO 
>1 6 TH 



) ; 

EJL_ 



09 301500 
09 301600 
Q9801700 



T 0008* 
T 00081 
J Q0Q9* 



BEGIN 
ST*EA 



MCs#z*o#A*N*N'i6#CA«-tc3) ; 

ZSJUh 



si*a; si«-si+s; di*loc a; ds«-n oct; dialog s ; 
os*a oct; di*ca; ds«-s oct ; 
uNQ ; 



09301800 
09301900 
09302000 



09302100 
09302200 
09 , 308 3 fl 



T 0010* 
T 00101 
J — 00131 



T 00131 

T 0014* 
T. 00,1 5 1 



ua- 



56 
5_ 



Bl 



P(0#T 
P(0#T 

ENO 



8tOLM#DLAJ ; 
8#OLM#0#ABSCC3*OLA) ; 



091024(90 
09302500 
93 2 600 



T OOiBl 
T 00164 
T QO lflt 



• • 



ELSE BEGIN 

ST»EAM(StA*N*-N-8*CA«.[c]) 

RE6IIM 



_L£. 



IF 



end ; 

C/Q AND 
HEGIN 



si*a; si»si+sj di*uoc s; ds*n oct» di*ca, os*e Oct ; 
end ; 

PlDtfP)>P<fi) THFN (SO Ri P(Tfl»x,ABS(C)t*) I __ 



09302700 
09302800 
09 302900 



09303000 
09303100 
09^03200 



U THEN 



P(C*0IA J)* 

Ta*«« 100000000,0 

GUI SatA.O * 



GO E i 



09 30 3300 
09303400 

09303500 



0018*2 
0019*0 
0021*1 



0021IJ 
0023*1 
002312 



12 
13 



JLL 



end ; 

if q Then s*5+.n?i ; 

ilAL&ALSjAii I3EGIN ST + A' 



09303600 
09303700 
09303800 



0026 .1 
002610 
02 7*1 



0Q27»3 

00518*3 
003010 



16 
17 
18 
19 
20 



XL. 



OS*Zon; 

P(P»04O»DIA 47) ; 
N*F(TR B 1) i 



End; 



si*si+s; s+tally; DI-1.QC s; Di» ni + 7 ,* 



09303900 
09304000 
09304100 



END ) 

s*p ; 

END OF COBOlDECIMAlIOQCTAI CuNVFHT 



09304200 
09304300 
09304*100 



0031*0 
003110 
00331? 



09 304500 
09304600 
093047 Q0 



0036*1 
003613 
003712 



0038*1 
0038*1 
Q0 3fl»J3- 



PROCEDURE C080LOCTOI,To'OECIMALCONVERT(A*L'H*S»n#R»T)| X 



22 



INTRINSIC f §152, 
START OF RFL 



24 

25 
28 
27 



value l*Hj.R*n#s*t; heal L'H>r*n'S>t; name a ; 

x this procedure convents the double-length word (l*h) into a string 

X QF N nr.fi D IGITS. WE STr INU S T A R TS AT NQ p n An n uFSS ft / rH A HA C T FR 



SIZE" 0039 WORDS 
09400000 T 0000*0 
SFGMENTJ DISK ADDRESS = 00635 



X OFFSET S. PRIOR TO THE CONVERSION* (L'H) Is SCALED"TO-THE-LEF T/RHT 
X BY R DIGITS* I.E. <L*H> IS DI V IOEO/MULTED BY 10*R, T IS a COMBINED 
X TRt!Mf: a TTQM/.]».SlfiM Tnr.r.iFt T.f?l1i»t -> Put T"E S*QN "F CL,» ) IN 



09400100 

09^00200 
Q9400300 



0000*0 

0000*0 
0000*0 



29 



31 
32 
33 
34 
35 
96 



% 1-ST CHR UF ThE STRING* I.£l»lJ"l B > PUT 
% ABScT) # C47«nsl => TRUNCATE ( L ,HJ BEFORE 
X SCALTNfl)J ABS(T).rAM.1»1 «> ROUND fL,M) 



% AFTER SCALING). 

BEGIN 

INTEGFR IRgR* lH»H> 



REAL 6=17, SERR=19* 
ARRAY TEN=23C*J i 
LABEL HLF,TBjT16 1 



NOTE THAT 0$Ss7» 0SNS23*. 
IL»L ; 



SIGN IN (HE L A ST CH R ' 
CONVERSION (AND AFTEH 
BEFORE CONVERSE ( AmD 



09« 004 00 
09400500 
09400600 



09400700 
09400800 
09400900 



T 
T 

-T- 



0000*0 
0000*0 
0000 to 



0000*0 

oooo*o 

0000*0 



WhsU, 0M0D«21» Q»9 i 



09401000 

0940U00 
09/101300 



36 



40 
41 
42 



IF R<0 THEN 

BEGIN 
STREAM(S»N»A); 



09^01300 
09401400 

09 40 1 ^ 00 



0000*0 

0000*0 
QQQO'O 



R + 



BEGIN Dl*DUSJ N(0S»L1T"0 W ) END ; 



43 



N+N+R/ 

end ; 

IF T. 11*23*0 THEN H «■ ABS(h)* 

H,C2«13 THEN P(0*H/7ENtRJ) ELSE P<L*H, TENCR+27 3 » tTNTRT7Dl0 ) i 



09401600 
09401700 
09401800 



0000*0 
0000*0 

000 0*0 



♦5 



IF 

L*0 I 

IF P(ABS(Q»P)»OUP)<PCHLF) THEN H»R»SERR»0 



09401900 
09402000 
09402100 



0000*0 
0000*3 
0001*1 



»7 
48 



49 



ELSE BEGIN 

IF SERR*PCDUP)>TEN[23 J 
IF P(0UP),[2*1] THEN 



09*02200 
09402300 
09402400 



0004*2 
0006*2 
0006*2 



0009*1 
0014*2 
0015*1 



then pctenC27+n]*tenCnj>dmud*B'Xch) 



52 
53 



54 



• 



55 

56 



begin if t then p(hlf*«j; h*ur«-p) div pcts) end 

ELStt BEGIN 

IF NOT T THEN P f 0*HLF ,DLA U H»P I ___ 

H*PCL«-P,H,0,lL*PCL#H,0#T16,DLD,HLF,-),XCH,DEL,0,T16,DlM, 
DLS) ; 

IR»P(R»P>H»0,IH+P(R,H,0,Te,DL0*HLF*-),XCH,DEL>0,T8,QLM, 

0LS#HLF#-) I 
END ; 



09402500 
09402600 
09402700 



09402800 

09402900 
09403000 



0017*1 
0019*2 
023*3 



09403100 
09403200 
09403300 



0024*2 
0027*3 
02 6*1 



003052 
0035*0 
00 35*3 



END ; 



09403400 

09403500 
09403600 



0040*1 
0041*2 
041 *2 



ri 



56 ' 
57, 



2 
3 
4 
5 
6 
7 



IF N<8 THEN 

BEGIN PCL*0 OR H/O OR R*TENCN] OR N*0) 
STREAM(B>N»S»A); BEGIN PI»nI+S; Sl»LOC 



r; r>s»N dlc end ; 



09403700 T 
09403800 T 
094Q 39 QQ T 



oo4i*2 

0042«1 
0046 » 3 



END 
ELSE If NS16 THEN 
BEGIN PtLJO OR h£T£N'M-fm 1 



09404000 
0940*100 
Off ft 042 00 



T 00491 
T 0049* 
T 00511 



STREAMH,R#N«-N-8>S>A) ; 

BEGIN ,O.I*DI + Si .SltLQC Hi DS*N DEC* 05*8 UEC END i 

XWO : 



09404300 T 0054*0 
09404400 T 005651 
Q9 4 04500 T Q Q 5 8' 



ELSE BEGIN P(L*TEN[N-16} ) ; 

STREAM<i»H»R#N*N-l6#S>A) i 

B Ffi l N OUO I + S ; ST»lOC l J pS»N O E CJ P S»BOECJ D . S«6q E C ENQ 



09*04600 
09104700 

09404800 



T 00881 
T 0060* 

i ooftai 



10 

11 



END i 

IF P OR SERR THEN IF PC 1 * WH . 1 18 \ 15 ).# OUP )*Q THEN PC DIB 0* *■ ) ; 
I F Q< TH E N 



09404900 T 0064*1 
09405000 T 00641-2 
094051 T OQofl ' l 



13 
14 

15 



BEGIN 

IF T>0 THEN 
BFGTN 



09405200 
09*05300 
09405400 



T 0069* 
T 0069* 
_X — (10701 



16 
17 
18 



STREAM N*.N-2*S«.A.) > 
BEGIN 

pi»n i+s* n s» s £TJ ns»RF.sFTj m»ni+Ni os» re set ids* be set 



09405500 
09405600 
Q94057JO 



T 00701 
T 007 2$ 

4 07 2* 



19 
20 



H L F*** 



END J 
PCXIT) ; 
0.499999999999 i 



09405600 
09405900 
09406000 



T 0074* 
T 0074* 
J 00/5 * 



22 
23 
24 
26 
28 
27 



Ti6.**:. 10000000000000000.0 ; 

Te**» loooooooo.o ; 

END i 



09406100 
09406200 
09406300 



T 0076* 

T... 0077* 

J 0078* 



STREAM(S*S+N-1,A); BEGIN 0I*0I+S; DS+SETJ DS*RESET END i 

END i 
EK;D OF COBOLOCTALTODECIMALCQNVERT I 



09*06«00 
09406500 
Q94Q66QQ 



T 0078* 
T 0081* 
4 Q&flJU 



28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37™ 

38 ■'; 

39 



PROCEDURE COBOi-VARSZ; 



START Of RFL 



09500000 

sfg H e nt; d isk 



ilZE B 006 
T 0000* 
ADDRESS 



2 WORDS 



* 00636 



BEGIN 
REAL 



TYPE 



» "1* 



it Q«2t FXAMINF 



09500100 
09500200 
09100300 



T 0000* 
T 0000* 
X OOOOt 



X Q'REPLACING FIRST 
X 1=REP/TALLY ALL, 
X _2* LEApING/gNTlL FI RST 



09500400 
09500500 
09 5 QQ 6Q0 



T. . 0000* 
T 0000* 
T OO QQ* 



X 31 VARIABLE SUE SMEAR 

X 4-91 VARIABLE SIZE RELATE 

X 4«<> 5*<S» 6«>> 7»S>B*»«9»* 



09500700 
09500800 
09500900 



T 0000* 
T 0000* 
I OQQQ* 



40 
41 



X 10* VARIABLE SIZE MOVE 

% 11* NEG ALPHA TEST 

X 12; POSITIVE ALPHA TEST 



09501000 
0950U00 
Q950120Q 



T 0000$ 
T OOOQ* 
J". OOQQ* 



44 
45 



ARRAY DESC 
REAL CODE 



* -2C*JJ 
» *2.» 



X RELATE* JUNKA DESCRIPTOR 

X MOVE#SMEARI *0 

X SXAMlNE*U7!l3*l IF R£P 



09501300 
09501400 
Q9S0150Q 



T 0000* 
T 0000* 
T OQOQ* 



47 
•8 



X [46UJM IF TALLYING 
X U5*U = l IF REPLACING 
X^ T^LLYfNG UNTIL F I RST 



OR 



O95016OO 
09501700 
Q9 5018 Q 



T 0000* 
I. 0000* 
T OOQQ* 



«9 
SO 



DLENGTH 
LNGTH 



« -3i 



* ?.3f 



X MOVE & RELATE! OEST LENGTH 

X SMEAR* LENGTH TO $M E AR 

X EX AM INE* LENGTH 



09501900 
09302000 
095 2 1 00 



T 0000* 
T 0000! 
1 OQ O O i 



52 
S3 
54 



slength 

RCHR 

nQFSET 



s -4, 

8 -"if 



X SOURCE LENGTH CSMeAR' 3 0> 
X EXAMINE* CHAR TO REPLACE 
% MQVEiR&LATEiSMSARtDEST 



09502200 
09602300 



T 0000* 
T 0000* 



«W- 



,5024 00 T — OOOOtO 



18 



55 

56 



,;. •■«,;- ;„■;•' -V, t 



SCHR 
SMCHR 



• «5» 
« «6j 






X EXAMINE! CHAR SOUGHT 
X SMEAR! CHAR TO SMEAR 
■1 EXAMINE! MKS 



09902500 
09102600 
09502700 



T 00001 

T 0000* 
JJL 0OQQI 



57J 



SOFSET 
OFFSET 



- -6* 



>r 



ARRAY 



X MOVE&RELATEI SOURCE OFFSET 
% EXAMINE* OFFSET 



oest 

SOURCE 



-8C*J* 



REAL 



X move*relate#smear*de&t 

X MQVE*RELATE*EXAMINE|8QURC£ 



09502800 
09502900 
0950^000 



RELATE* 

DIFFER* 
NMQQ64*, 



09503|00 
09503200 
09503300 



0000*0 
0000*0 
QDOQIQ 



9 
10 
11 
12 



SAVOFF* 

NDIV64* 
Ut 



09S03400 
0950 3500 
Q95Q3600 



0000*0 
0000*0 
0003*0 



0000*0 
0000*0 

ooonio 



# 



13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 



nwoS; 

ARRAY DC*}, 
HEFINE 



09503*00 
09503800 
09503900 



0000*0 
0000 10 
000010 



REPLACECH8 « 1 «-0 1 - i i SWLOC P6* SWSlMJ DS*l CHR#* 
LI8TP1TQP6 « Pi*NM0064#P2*NDlV6«»p3#.(NDIV6a DIV 64)* 
PA»sr.nft.Pm.RruR.PA«.nrrsrT«i 



09504000 
09504100 
09504200 



L ABEL . V AR I EX AM* CMD* SME AS* X 
%* ******** ********************* SJART HERE 

IF TYPFS? IMM 60 TO VAHTFXAMjV 



09504300 
09504400 
09504500 



0000*0 
0000 JO. 
OflOQJQ 



0000*0 
0000*0 
0000*0 



***** ************************ 



♦ £QESTJ*X 

IF TYP£«3 THEN GO TO SMEARJX 

IF (DIFFEB » mENGTH-SLENGTHKO 



09504600 
09504 700 
09504800 



0000*0 
0000*0 
0000*0 



26 

26 



IF tvpe=io THEN* 
BEGINX 
SLENfiTH + QLFNGTH*. 



THEN 



X yARlABt E MO VE ONL Y 



09504900 
09505000 
09505^00 



0003*1 
0004*1 
Q Q0 5»? 



ENOi 



27 
28 



NM0D64 * Sl£NGTH.C42*6J*X 

IF DIFFER'Q AND TYpE^4 ANp TYpe*9 THEN X IF THERE IS A nlFFFR" 



09505200 
09505300 
09505400 



29 
M 



• 
• 



31 

32 

33 

34 

35 

36 

37' 

38 

39 

40 



BEGIN X THEN MOVE SHORTER TO JUNKA&FIuL OUT WITH BLANKS 

IF DIFFER<0 THEN X INTERCHANGE TO M A K E QEST THE 
BEGIN X LONGER* SOURCE THE SHORTER 



09505500 
09905600 
09505700 



0Q07«1 
0008*2 
0009*0 



0009*3 
0011*0 
0011*0 



D «• CDEST3* ; Q£5T ♦ CSQURCE3* 1 SOURCE * CD]* 
SAVOff ♦ sqfseT; sofset «■ DOFSET; oofset*o; 
nwos»qlength;duength»3lengthjslength«-nwus; 



09505800 
09505900 
09506000 



DIFFER 

END ELSEX 

BEGI NX 



.♦. absc differ )*X 



09506100 
09506200 
09506300 



0013|3 
00U»1 
0015*0 



IF 



TYP£<8 THEN TYPE*TYPE-TYPEtC«7ll3X 
+(TYP£,C47«1J«0)*X 

savuff «• nnFSrTi* 



09506 350 
09506400 
09506500 



41 
42 
»3 
44 
46 
46 
47 
W 
49 
50 
51 
52 
53 
54 
55 
56 



DQFSET 

. end;x. 
RELATE <• TYPE* 



on 



09506600 
09506700 
09506800 



0015*2 
0018*2 
0020*1 



0023*0 
0024*0 
00?&*n 



002412 
0026*0 
0029*0 



ENOJX 



* 10* 
CDESC£0J3*X 



09506900 
09507000 
09507100 



0029*3 
0030*2 
Q030»2 



CMD* X TRANSFER OR COMPARE FIELDS 

IF TYPe'10 UR DlFFtR^O OR RELATE>0 THEN NM0D64*SLENGTH,C42«6]; 
NDIV64 » SLENGTH DIV 64'X , 



09507200 
09507300 
95 07400 



IF TYPE<8 TWENX 
BEGINX 
STREAMcP0»0»Pi»NMQD64»P2»NDlV64»P2A«>N0lV64^0»P3«>(N0lV64 IV 64? 



09507500 
09507600 
Q95 077QQ 



0031*1 
0032*0 
Q33* Q 



BEGIN 



,P4«-S0URCE*P5*S0fSET,P6*D0FSET*P7«-TYpE26,X 
F8«-TYPE.C47»1]*P9«-D);X 



09507800 
09507900 
09508000 



0033*0 
0033*0 
QQ 37'2 



0038*3 
0039*2 
0040*0 



fiftsflt 



CI 



* P4; si 4..-M.+ P5J 01 

* CI+P7* GO TO GREQj 



4. 0I+P6* 

GO TO GGLSQJX 



09508100 
09508200 
09508300 



095QA400 T 
09508500 T 
Q9508600 T 



0042»2 
0044*2 
0046*0 



0046*0 
0047*1 

we*i 



56 ' 
57 



Pi 

2 

3 
4 
5 
6 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



36 
37 " 
38 



♦0 
41 
42 
»3 



45 
46 
47 
18 
49 
50 
51 
52 
53 
54 
55 
56 



P3(63CP0«-SI;pV*Di;iF 63SC«=0C THEN tl$Z% 

BEGIN SUP0;DUP9;iF 63 SC>DC THEN;* 
J UMP O U T 2 T O X YTIJ X 



end>;x 

2CP0<.SIJP9«-0UIF 63SC«0C THEN ELSeX 
HEfilNi SI»PniDl4-PQMF 63 SOPC THFNi* 



JUMP 
END);* 
IF H"HC THFN 



OUT 2 TO XYTi;» 
ELSE* 



BEGIN Sl«.SI«4;0I*Ql-l;IF SC>0C THENiX 
JUMP OUT 1 XYTU» 
END); QQ TO LUX 



xyth go to xyt2;x 
guusq»go to lseq;x 

Lll P2 (PQ + SI;P9«-DI;1F fe3SC»DC THEN ELSEX 



BEGIN SI«-P0;0I*P9;IF 63 Sc>DC THEN; 
JUMP OUT I TO XYT21X 

endhx 



P2A CPO«-Sl;py«-Di;iF P2 sc»dc then elsex 

BEGIN SI4-PO;OI«-P9MF ?2 Sc>OC T.HeN.I* 
JUMP OUT 1 TO XYT??X 



end);x 
if pi sc>oc then;x 

XYT?» GO TQ XYT3«X 



LSEQJ 



P3(e3CP0*Sl;Py«-Dl«lF 63SCsDC THEN EISEX 

BEGIN SI»P0;D1»P91IF 63 SC<DC. THFN;X 



JUMP OUT 2 TO XYT3;* 
END);X 

2tPQ»Sl;P9»nf llF 6 3Sf«DC THEN n.&P* 

BEGIN Sl«.P0;0l*P9;iF 63 Sc<DC THEN'X 



JUMP 

e no ?;x 

SCi 



OUT 2 TO XYT3;X 



IF Sc»OC THEN ELSEX 
BEGIN SX+SX-1JDI*0I-1IIF SC<OC TH£N;X 
JUMP OUT 1 TQ XYT3JX 



END); GO TO l2;u 
XYT3: GO TO XYT;X 
L2t Pi (P0»Sl;p9»Di;iF 63SCaQC THEN ELSEX 



BEGIN Sl*P0;0l«-P9;iF 63 Sc<DC THENJX 

jump out 1 to xyt;x 
e nd?; x i , 



P2A CP.O*SI;P9*OIMF P2 ScsDC THEN ELSEX 

begin si>pq;dwp9;if P2 sc<dc then;x 
jump hut 1 to xyt;x 



XYT1 



END);X 

if pi scsdc then;x 

PflCTF TOGGLE THFN TALLY»ll 



IF TOGGLE THEN ELSE TALLY«-i;X 
SI8RJPQfrIALLYJ.l 
END STREAM* » 



jump out 1 Tn sTQftm 



END ELSE* 

STRCAM(PO»0*Fl»NHQn64,P2»NnlV64jP2A»N,DIV64;<0.P3»tNOIV64 nlV 64) 

o 1. * crinarr .Qc - cnrurT _ d * . nnrce-T_D<». / t w R r > . n \ ± I Tvors.ni . «r 



09508700 
09508800 
9508 90 



09509000 
09509100 
00509200 



0048*1 
0050* 1 
Q 0SH1 



0052*0 
0052*1 
0Q5U3 



09509300 
09509400 
09509500 



09509600 
09109700 

09 5Q9 fl OQ 



00541.3 
0055*2 
0Q 5 5 ' 3 



0056*2 
005712 
Q05fl»0 



09509900 
09510000 
0951Q100 



09510200 
09510300 
095104QQ 



0058*2 
0058*3 

0059*0 



09510500 
09510600 

09510700 



0060*3 
00*1*3 
0062*1 



09510800 
09510900 
095110 00 



0062*2 
0064*2 
0065*3 , 



0951110Q 
0991*200 
09511300 



0066*1 
0066*2 
0067*1 



0067*2 
0067*2 
0069*2 



09511400 
09511500 
09511600 



09511700 
09511800 
09511900 



00?0*2 
0071*1 

Q07H2 



09512000 
09512100 
Q95l?200 



007 3*0 
0074*0 
0074»3 



09512300 T 
09512400 T 
09512500 T 



0075*0 
0075*3 
0076*3 



0077*1 

0077*3 
0078t0 



09512600 
09512700 
09512800 



09512900 
09513000 
09 5 13100 



0079*3 
0080 I 3 
QQfiUl 



09513200 T 
09513300 T 
09513400 T 



0081*2 
0083*2 
00 84 > 3 



09513500 T 
09513600 T 
9 51 3 7 00 T 



0085*1 
0085*2 
0Q86U 



BEGI N * 



,P4*SQURCE#P5«-S0FSET#P6*D0FSET*P7«-(TYPEilO)>CTYPE>iO)*X 
PB*TYPE.[47»13*P9*.D);X 



09513800 T 
09513900 T 
95. 1 4QQQ T 



0088*0 
0088*3 
008 9 » 



0089*1 
0089*1 
0Q89M 



Si 
CI 
F flU L t X 



» P4J SI * »!*P5i 01 
♦ CX*P7* GO TO tiUlf 



* QI+P6J 
QOTO TRFRJ 



09514100 T 
09514200 T 
09 5 143,00 T 



GO TO GOTANJX 



09514400 T 
09514500 t 

Q95 14600 T 



0092*1 
0095*1 
00 9 613 



009613 
009810 

99 11 



22 

23 ( 

24 

25 

26 ( 

27 

28 

29 { 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 



• • 



2t 



o 
Q 



10 

> »' 

12 
13 

> » 

15 
16 

► "" 

18 

19 
| 20 

21 

22 
| 23 

24 

26 
I » 

27 

28 

I a 

30 

31 ~ 

I e 
33 
34 

I 36 
36 

37 *" 
I 38 
39 
40 
41 
42 
43 ~ 



45 
46 
i 47 
48 
49 
50 
51 
52 
53 



56 



P3C 63CIF 63 SC-DC THEN ELSE JUMP OUT 2 TO XYTIHX 

2(IF 63 SC»DC THEN ELSE JUMP OUT 2 TO XYTi);X 

1£ 1 SC« , DC THLN FLSF JUMP OUT 1 TU HTDi r,n TO 



GOTAN! GO TO TANLU 
L* P2(IF 63 SC«DC THEN ELSE JUMP OUT 1 TO XYTDJX 
PaiflF P3 Sr.anr tufm pis f jump hut t T n nvrpti 



-LiJL 



Pl SC»DC THEN; GO TO XYTliX 



IF. 
TRFRIX 

P3(63(OS<-03 CHR); 2(DS»63 CUR ); DS»rhtn»» MnVfc ft0x6/i 

P2C0S «• 63 CHR); OS ♦ P2 CHR; OS * Pi CHH; 
XYTlt GO TO XYT2;» 
TANUX ; -c: •;.' ; 



go to donei;% 



P3C63C63CIF SC*ALPhA THEN IF i>CS"* M THEN 
JUMP OUT 3 rO XYT2 ELSE JUMP OUT 3 
2C63CIF Sr^ALPHA THFN TF SC.*»2» luf tt 



GO TO Li; 
XYT2J GO TU XYT; 
D0NE1* GO TO D ONE; 



JUMP OUT 3 TO XYT2 ELSE JUMP OUT 3 

IF SC*ALPHA THEN IF SCS"Z" THEN 

JUMP nUT 1 TO XvTP rtSr jump out i 



51*51+1 ELSE* 
TO XYT2))U 
Sl<-Sltj EklEJ 



TO XYT2))*X 
SI«-Sl + l ELSE* 
TO Xy7?)1> 



Ll» P2(63(IF Sc»ALPHA THEN IF SCS W 2" THEN Sl>Sl*i ELSE* 

JUMP OUT 2 TO XYT ELSE JUMP OUT 2 TO XYT>)JX 
Z2UI SOALPHA THFN IF SC<"Z« THEN SH.ST + 1 fLSEX 



JUMP OUT 
P 1CIF SC.! 
JUMP OUT 



1 TU XYT ELSE 
ALPHA THEN IF 
1 TU XYT ELSE 



XYTI PeClF TOGGLE THEN ELSE TALLY*i; 

IF TOGGLE THEN TALLY*!** 
STRR* PQ4-TALI v;i 

DONE!* 

END stream;* 



jump out i to xyt);x 
scs"2« t h en si«.si* 1 elsl* 
JUMP OUT 1 tq xyt?;» 



JUMP OUT l TO stor);* 



E N D i* 



BFGIN 



IF TYPEMO THEN PCRTN)** 
IF 0IFFER>0 THEN 



1 FILL OUT OFST WITH Rl AMKS TO MAKF tJ P D]FF 



.PCSLENGTH+U0FSET»PuP»8#IDV#*P(.D)#lNX# t D»»#7»LND#,D0FSET#*)i 
SMEAR* »NDIV(64. ♦<NWqS«-( (( DIFFER* cdlength-slengthj-x 

CN»{8-O0rSET).USt33)) DlV fl) - t DIFFFR2B ) ) > Dlv fifll* 



STREAM(il*0lFFER»U5J33»p2*00FSET#p3«-8x(DlFFERa8)*N*pA*NW0S» 
P4A«-NWD5X0»P5*NDIV6A>P5A<-NDlV6«/0»P$*SMCHR#P7«.(TYp£s3 
ANn SMfHR*" «M.Pfl»n;n* 



BEGIN 



oi * 01+P2; Pa*oi; p7c"si*loc P7; si<-si' 

CI»CI*P7J GO TO 6LNKJ GO TQ SMI* 



n;* 



BLNKIP3C0S ♦ LIT 
SMRI P3C0S ♦ i chr; 
CQNTtSl » P8; P5(0S 



»)J GO TO 'CQNTJ* 
Sl+Si-u,, 

* 63 WDS)J PSA(0S 



Pl»A(DS <- P4 WQS);X 

ci*ci+P7; go to finb; go to fins;* 
finbipkqs » i it " "w go tq xyt;* 



» P5 wos);x 



end;* 



FlNSlPKDS ♦ I CHR; S2*SI*1)IS 
XYTI* 

end stream; 



IF 



RELATE>0 
BFGIN 



THEN 



SOFSET » SAVOFFU 
SOURCE «■ [OESTJIX 
SLENGTH ♦ OLENGTHi* 



% BLANK FILL DONE 

% GO BACK AND DO CQMPARf 



09514700 
09514800 
095l49nq 



09515000 
09515100 
O-QJil'SaOQ 



09515300 
09515400 
095^5500 



09515600 
09S15700 
09S1S60Q 



09515900 
09516000 
Q951610Q 



09516200 

09516300 

_QJt546JtQ-Q 



09516500 
095 16600 
095167Q O 



09516800 
09516900 
Q951 7Q QQ 



09517100 
09517200 
09517 300 



09517400 
09517500 
09S1760Q 



09517700 
09517800 
09 5 1790 



09518000 
09518100 



09518300 
09518500 
Q9518600 



09518700 
09518800 
09518650 



09918900 
09519000 
09519100 



09519200 
09519300 
09919*00 



09519450 
09519500 
09519600, 



09519700 
09819800 
09119900 



09520000 
09520100 

09520200 



09520300 
09520400 
09520500 



0099*1 
0101*3 
010313 



0105*2 
010513 
010713 



110*0 
0111 10 
0111*0 



011312 
0J15»3 



01 1610 
011812 
Ql2l*l 



012311 
0l26<0 
Q1P7I2 



04291-0 
0129*1 
01 29*2 



0129»3 
013210 
Ql3 4*l 



0136*1 

Ol37«3 
0139L3- 



0141*1 
0143*1 
0143 * 3 



0144*0 
0144*0 
01 44* 1 



0144*1 
0145*3 

01 46 '? 



0147*0 
0150*3 
Ql5l*3 



0157*1 
0160*2 
0162*3 



0165*0 
0165*0 
0167*0 



0168*0 
0169*2 

01 70*3 



0173*1 
0174*2 
Ol/S*3 



0177*0 
0176*1 
178*1 



0178*2 
0178*2 
P 1 79 »1 



017913 
0180*2 
184 *2 



T* 



4 

5 

6 

7 

8 

9 

10 

111 

12 

13 

14 < 

15 

16 

17 ( 

18 
— 
19 

20 ( 

21 

22 

23 ' 

24 

25 

26 I 

27 

28 

29 | 

30 

31 

32 4 

33 

34 

35 % 

36 

37 

38 \ 

39 

40 

41 i 

42 

43 



46 

46 

47 

46 

49 

50 

51 

52 

53 ' 

54 

55 

56 ' 

57 



fl 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 

16 
17 
18 



19 



22 
23 
24 
25 
26 
27 
28 



29 
30 
31 
32 
33 
34 
35 
36 
37~ 



TYPE *■ RELATE.** 
QQFSET «• 0;X 



09520600 T 
09520650 J 
Q 9 5?U660 T 



0182«1 
0l83«0 
Olfl3'3 



GO TO CNOU 



end;* 

PCXIT)! 



09620700 T 
09520800 T 
Q952Q9Q0 T 



018413 
0185*1 
0185*1 



VARIEXAHI S* 

NMQQ64 ♦• 
ND IV64 * 



L.&GTH.U2I6J J* 
L ftGT H DIV M i tt 



09524000 T 0185 
0952U00 T 0186 
09521200 T 0187 



BEGIN 



IF TYPE*Q THEN 
I ' . 
£TBrAMrLTSTPjT0Pft,P7<.S0URCr);X 



* REPLACING FIRST 



09121300 T 0188 
09521400 T 0J89 
09121500 T 0jfl9 



BEGIN 



DI+DI+P6; 
P^(63(63f 



SI*LQC 
F SC«DC 



Pi; 



_P_2 



2(63(IF 
IF 

(ftaqF sn«oc t 



susi-i; 

EN JUMP QUT 3 TQ REP» Sl»SlM)3i* 



09521600 T 0192 
09521700 T 0192 
09521800 T — 0193 



SC»OC THEN JUMP OUT 

sc«oc then jump out 

HEN JUMP OUT ? 



3 to rep; si*si-i>>;* 
I TO rep; si»si-h )>l 

to rep; si»si- i > ?;« - 



Jill 



P2CIF SC 
Pi C IF SCi 

tq xyt; 



dc then jump out 1 to rep; si*si*i);x 

DC then jump out 1 to rep; 5.I»SI-1);» 



09321900 T 0197 
09522000 T 0199 
09S82100 t — &*&+ 



rep« replacechr; 

XYT* 

end stream; 



09922200 
09522300 
09532400 



09522500 
09522600 
09522700 



0204 
0206 
02 8 



0208 
0209 
0209 



END ELSE IF TYPE*1 THEN 

BEGIN * REP AN.D/.UH TALLYING ALL 

STRE AMfPn»nll TSTP1 T0Pfl.Py»3-CnnFi"Q»RFPATA| l-V»l«T A ^ r LY ONLY* 



BEGIN 



2»R£P 0NLY M (P8«-SUuRc£);X 
0T»nl*P6; ST»LQr P5; ST»Sl'1l» 



09522800 
09522900 
Q95?3qqq 



0209 
0210 
0211 



P3(63(63CIF 1 Sc»DC ThEN* 

BEqIN Cl«-Cl+P/; gQ TO TALLi; GO TO TALLt* qO TO HEPj; 
TALLU Sl+PQi SUSIES; P0»Sli Sl-LDC P5;i 



09S23100 
09123200 
Q95233QQ 



0214 
0215 
Q215 



09S23400 
09523500 
Q952360Q 



0216 
0218 



Q a 1 9 » 1 



REP1I 
ENDJX 



CI*CI*P7; GO TO REPi; GO TO NXTl** 

replacechr; si*lOC ps;x 



09523700 T 
09523800 T 
09523900 T 



0220*1 
022l«l 
0222*2 



H3C 



IN X T 1 S 
2(63C IF 

AEfilN C 



5It5I-.Um*X 

1 SCsQC THEN* 
l± £l±UJ GO TO 



TALL2; GQ TO T A LL2J fiQ TO KEP2J 



09524000 T 
09524100 T 
095242Q0 T 



0222*2 
0223*2 



38 
39 



♦0 

41 

42 

43 ~ 

44 

45 

46 

47 

«8 

49 

JO 

51 

52 

53 

54 

56 

56 

P7 



tall2» si*po; si*si+8; po*si; SULOC P5;x 

CI*CI+P7; GO TO REP2; GO TO NXT2*X 
REP3> RFPI, ACECHRi ST»1 nC P5/X 



09524300 T 
09524400 T 
Q95245QQ T 



0226*1 
0227*1 
0228*1 



131. 



end;* 

h*T2» 
LL 



Sl*5I-U)).)lX 
1 SC»JC THEN* 



BEGIN CUCI + P7; GO TO TALL3; GO TO TALL** GO TO REP3; 
tall3* si*po; SI«-SI+8; P0*5i; SI*LQC P5** 

r.T»rI*P7i GO TO REP3J fiQ TQ NXT3;X 



09524600 T 
09524700 T 
09924800 T 



09524900 T 
09525000 T 



0229*2 
0229*2 

2 3 * ; 



0231*2 
023213 
0233*3 



HEP3J 

end;* 

NXT3. 



replacechr; si*lqc ps;x 
si»si»in;»" 



09525200 T 
09525300 T 
09525400 T 



0234J3 
0236*0 
0236 *0 



P2(63(IF 1 SC*0C THEN* 

begin ci«-ci*p7; go To tall*; go to tall*; GO To 8EP4; 
tall4* si»pq; susi+a; pq»si; sulqc ps;* 



REP4I 



ci*ci+p7; go to rep4; go to nxt4;* 
replacechr; si«-lqc ps;x 



09125500 T 
09525600 T 

912570 Q T 



0236*2 
0237*3 
023 9*0 



NXT4I 

P2(IF 
BEGIN C 



l!»3I<"W))JI 

1 SC»DC THEN* 
I+ C I +P7; Q Q TQ 



09525800 T 
09525900 T 
09,52,0000 T 



TALL5; GO TO TALL5; GO Tn REP5; 



09526100 T 
09526200 T 

95 26 300 T 



0240*0 
0241 >0 
Q242U 



024211 
024310 

2 4410 



__J' 



N 

2 
3 



5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



19 

20 

21 

22 

23 

24 

2G 

26 

27 

28 

29 

M 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 



46 
47 
48 
49 
50 
S1 
52 
53 
54 
55 
56 
57 



taul5« si*po; si4.si+a; po«-si; si*loc ps;* 

C1*CI+P7; GO TO REP5; GO TO NXT5U 

HCP5i — heplacfchr; .sulqc P^i* 



09526400 
09526500 



0245* 1 
0246*1 
3 47 * 1 



EN01X 
NXTSI 

Pit IF 



si*si-in;x 

1 ScbDC THEN* 



09526700 
09526600 

n95a<woo 



Q2«8*2 
0248*2 
024910 



BEGIN CUCI+P7J GO TO .. TALL6J GO TO TALL6/ GO TO HEP6* 
T.ALL6* S.I*PO.f Sl«-Sl + 8; PQ*Si; SI*LQC P5I* 
Cl* C l*P 7 j GO. TO REP6* Gn TO NXT6** 



09527000 
09527100 
09*127200 



0250 *0 

0251 *1 
2 52? 1 



REP6I 

end;* 

NXT6> 



REPLACECMR; Sl*LQC P5;X 
Sl»Sl-U);» 



0952?300 
0952/400 
09527'iOQ 



0253*1 
0254*2 
Q25at2 



END 
END ELSE 
BFG IN 



stream; 



XHEP/TALLY UNTIL IST/LtADTNfi 



09527600 
09527700 
Q95278QQ 



STREAM(P0*0*LlSTPn0P6' p 7«.3*C00E.C46l23#P8*C0DE,£45H3*X 

P9*S0URCE);x 
REfiTN 



09527900 
09528000 
09528100 



0255*0 
0255*1 
0255*1 



DI*DltP6J SI4.LQC . P.5.1 . .S.It.Sl-lJ.1 

H3(.6 3.C6.3CCI>C.I*P..8' 6.0 TO REPLU GO TO REPUFl'X 

repi .h tf tsexnr. thfm jump hut 3 Tn xytIjgd td diiIth 



09526200 
09528300 
Q95264QQ 



0255*3 
0260*2 
02M»1 



261*1 
0262*1 
Q264*l 



REPUF1* IF 1SC«0C THEN JUMP OUT 3 TO XYT1U 

0QIT1* CI*CI+P7; GO TO TALLU GO TO TAUUqO To REPi; 

talli * si»pq; si»si+ai pQ»sn suinc P5n 



09528500 
09528600 

09528700 



0266*0 
0267*2 
0268»3 



CI+.CI+P71 GO TO REPi; GO TO NXTi;X 
REPI* REPLACECMRi . SI*LOC P5;% 
NXT H Sn-Sl- 1 LLU $Q TQ L2f XYTj* GO TQ-X-YTg; 



L.2* P3( 2(63(CUCI + P8; GO To REPL.2J GO To REPUF2U 

REPL2* IF iSC*DC THEN JUMP OUT 3 TO XYT2iGQ TO DUIT2' 
RFPUF2* I F iSCa Q C THEM J UMP O UT 3 TQ XYT2 j l i 



09528800 
09528900 
09529000 



0QIT2* ...CI*C.I*H7* GO TO T.ALL.2J GO TO TALL2*GQ TO REP2> 
TALL2* Sl*P0; SI4-SI + 8; PO»Si; SI*.L0C P5J* 

CI»CI*P7/ GQ TQ RS.P2J GO TQ NXT2*» 



0952*100 

09529200 
09Sf9 300 



0269*3 
0270*3 
0272*0- 



09529400 
09529500 

099P9600 



0273*2 
0275*2 
0277* l 



0278*3 
0280*0 

Q29H0 



_LU P±L 



REP2* REPUACECHR; Sl*LOC P51X 
NXT2* S1*5I-1 ))3* GO TO L3* XYT2* GO 
Cl»C!+Pfl; GO TQ RFPL3; fiO TO RFPUF3JX 



TO XYT3J 



REPL3* IF 1SCXDC 
HEPUF3IIF 1SC*DC 
QUIT3* CI+CI+P7; 



THEN JUMP OUT 1 
THEN JUMP OUT 1 
G Q TQ TAL.L3J GQ 



TALL3* SI*PO* SUSI + 8** PO*SU SULQC P5** 
CI*CI+P7; GO TO REP3J GO TO NXTJI* 
reps* replacschr; SI»LOC P51S . 



TO -XYT3;G0 TO 001T3; 

TO XYT3JX 

TQ TAL L3;gq T n REP3; 



095297.00 
09529800 
Q9S299Q0 



09530000 
09530100 
09530200 



0282*0 
0283*1 
028 4*. 3 



0286*1 
0287*2 
0288*2 



09530300 
09530400 
0Q53Q50Q 



0289*3 
0290*3 
0291*3 



NXT3J S I«-S I- 1 ); GO TO L4> 

L4: P2(63(ql«-Cl + P8; GO TO REPL.4; GO TO 
REPL4* IF lSCDC THEN JUMP OUT 2 



XYT3* GO 
REPUF4J* 
TO XYT4JG0 



TO xyta; 

TO UQIT4/ 



09530600 
09530700 
09530800 



0293*0 
0294*0 
0295*3 



REPUF4UF 1SC»0C THEN JUMP OUT 2 To XYT4;X 

00IT41 Cl«.CI+P7i GO TO TALL4* GO TO TALL4JGQ TO REP4> 

TAUA* Sf-PO; Sl»Sl+a; P0»SI1 SI»L0C P5i% 



CUCI + P7; GO TO REP«; GO 

KLP4* replacechr; si+loc P5;x 

NXT4? SI+SI-1 )U GQ TQ L5; 



TO NXTaU 

XYT4* G Q TQ XYT5* 



09530900 
095 31000 
09g3H00 



0297*1 
0298*2 
Q299»fl 



09531200 
09531300 
095 31 40Q 



L5« 



P2CCI*CI+P8J GO TO REPLSi GO TO REPUF5J* 
REPL5* IF 1SC0C THEN JUMP OUT 1 TO XYTSiGO TO QQ1t5; 
REPUFStIF 1SC«0C THEN JUMP OUT 1 TO XYT5;X 



D01T5* CI«-CI + P7; GO TO TALL5; GO TQ TALLSiGO To REP5; 

talls* si*po; susi+e; po«.si; suloc Psn 

CI»CI-»P7; GO TO REP5; GO TO NXT5J* 



09331500 
09531600 
953 170 



0300*3 
0301*3 

303*0 



0304*1 
030.5.13 
03 07*0 



09531800 
09531900 
09532000 



j replacechr; si*loc ps;x 

N*.T5l SI*SX*1 >J 60 TO L6J XYT5* GO TO XYT; 
:I»CI»P8; GO TO REPL6; GO TO REPUF6/X 



095 32100 
09532200 
09532300 



0308*0 
0309*1 
0310*1 



03UU 
03*2*2 
0313*2 



n 
2 

3 

4 
5 

6 

7 



9 

10 

111 

12 

13 

.4 I 

15 

16 

17 i 

18 

19 

20 ( 

21 

22 

23 \ 

24 

25 

26 ( 

27 

28 

29 I 

30 

31 

32 i 

33 

34 

35 I 

36 

37 

38 ( 

39 

40 

41 * 

42 

43 

44 ' 

45 

46 

47 < 

48 

49 

50 < 

51 

52 

63 < 

54 

55 

sal 

.3 



>r 



10 

11 



16 

17 
18 
19 
20 
21 
22 
23 

25 
26 
27 
28 
29 
30 
31 



32 

33 

34 

36 

36 

37 " 

38 

39 

40 

41 

«2 

♦3* 

44 

45 

w 

♦7 



•9 
50 



u 



56 

57 



HtPL6* IF lSC'DC 
REPUF6UF 1SC*0C 
lifllTft? CltCltP7> 



THEN JUMP OUT 1 TO 
THEN JUMP OUT 1 TO 
GO TO UL.U6.; GO TO 



tall6* si*po; si*si+e; pq*si; sulqc psjx 

CI*CI+ P 7; GO TO REP6; GO TO NXT6JX 
HEP6I Rp PtACECHRI STfrlDC PJLLX 



XYT* GO TO D0IT6; 

XYT'X 

T AL UiG O TQ REP ft j 



09532400 
09532500 
09532600 



09532700 
09132800 
095^2900 



0315*0 
0316*1 
3 1,711 



0318*2 
0319*2 
QMM 12 



NXT6* 
XYT*X 

ENO STHFAM/* 



S I «• S I - 1 )i% 



09533000 
09533100 
09533200 



END** 

IF C00E.C46U3 
FNO COflni VARSZU 



THEN P(RTN)i% 



09533300 
09533400 
0953 3 500 



0321*3 
0322*1 
32 2*1 



0322*2 
0322*2 

3 2/1 t O 



PROCEDURE CQBQUQNQNUSK 



% PHONOUNCEO COBOL-IO-NON-DISK 



S1ZE» 0325 WORDS 
09600000 T 0000*0 

S TART OF R EL, S EGM E NT* R I SK ADDR E SS * 6*9 



BEGIN 
REAL CODE 
NAME OLOC 



s 



•i; X 0»REAp,l»WRITE>6«WRTBLK 

■gt % P Otmts TO RurrrR TO nrSrRtPTQR 



09600100 
09600200 
09600300 



REAL 



NljMWDS 

KEY 

CHNNt 



* -3* 

a -4, 

« -at 



X * WOS TO BE WRITTEN 

* CARRIAGE RETURN 

Hi LP CHANNEL SKIP 



09600400 
09600500 

09600600 



LINES 
SKIP8FR 



9 



"5» 

•6; 



% 
% 



# LINES 
1»SPACE 



TO BE SPACED 
BEFORE PRINT 



INTEGFR 



09600700 
09600800 

09600900 



LINAGE = -7i X LINE PRINTER' C 1 ' 1 3*1 IF LINAGE 

% CLAUSE PRESENT#C33U53» LINAGE LlMll 
X ON NEXT ENO-OF-PAGF 



09601000 
09601100 

0960 1 200 



xlocals 



REAL 
AR R A Y 



IOMASKJ 
FIB t*3J 



% FIR ARRAY 



09601300 
09601400 
09601500 



REAL FILECTHL * 12' » USED 

PEHFORMGEN* 13, % USED 

CnPUHQDSKs 1«J 



TO CALL CQBOLFCR 

FOR PERFORMING USE RQUTInES 



NAME 

ARRAY 

NAME 



flqc; 

FpB 

MEM 



X POINTER TO FIB 
3C*3> * FILE PARAMETER BLOCK 
2i X DUMMY DATA DESC 



09601600 
09601700 

0960 18 00 



09601900 
09602000 
Q96Q2100 



ARRAY 
REAL 



PGUSE ~ 24t*]; * PROGRAM USE ROUTINES 
T,RT» % TEMPORARY 



TCW# 

TCDIF, 

UNITYPE> 



ARRAY 



endreel; 

DESTt*3; 



X TECH C» NUMBER WOROS TO BE REaD 
X TECH C» (ACTUAL RECORD • MIN REO 
% STORE UNIT TYPE FOR MANY TESTS 



09602200 
09602300 
Q96Q24QQ 



09602500 
09602600 
09602700 



X USED ONLY ON READ 

% DESTINATION IN MOVEKEC 



DE F I NE 



09602800 
09602900 
0Q6Q3Q00 



AF 
ARR 

ARROW 



* Cl2lt23## X FILE USE ROUTINE 

* C36U2J*' X REEL USE ROUTINE 

» P(0>NQT>CauFFSlZE-HORDSLEFn»TlP»INx>ST0)»f 



09*03100 
09603200 
09603300 



BCOUNT 

binary 



% THIS INSERTS THE GROUP MARK 
FJBC6 ]#* X BLOCK COUNT 

FTBC13J t [24ll3«» X 1»BINARY»0«ALPHA 



09603400 
09603500 



BF 

BREAK 

BREA KOUT 



a ci*m## 

« FIBC93 X # 
* IF(RCQUNT MOO 



X FILE USE ROUTINE 
• X BREAKOUT RESTART POINT 

FIBC 9 3)« Q Th en 



09603700 
09603800 
Q96Q390Q 



B R R 
BUFfNUH 



BUFfllZC 

surrsz 

BUFTflP 



P(Q»U#12»CQM»DEU>DEl).##* CALL BREAKOUT 
[24»12J#» X REEL USE ROUTINE 

FIBJUJiCmJ '> »..* OF HUFFS REflUSTED 

111* 



« pibe i«) «cai lSlfe* X BUFFER SIZE CReOUESTeD) 

• piBtitHsiaiiosff x size for concatinates 

■Jt_E_mi£&MAJk COPY Ofe TOR TOQt POINTS TO RfG RHFP 



09604000 
09604100 



09604300 
09604400 
09604500 



0000 to 
OOOOiO 
OOOQIQ 



0000*0 
000010 

0000*0 



0000*0 
OOOOIO 

0000*0 



0000*0 

0000*0 
OQOO >Q 



0000*0 

0000*0 
onooin 



0000*0 
0000*0 
0000*0 



0000*0 

0000*0 
QQQO*0 



0000*0 
0000*0 
QOQ O'O 



0000*0 

0000*0 
OQQQiQ 



0000*0 
0000*0 
QQQQ»Q 



0000*0 
0000*0 

OOOOtO 



OQOO « 
0000*0 
QQQQ*0 



0000*0 
0000*0 

Q000»n 



0000*0 
0000*0 

000 0* 



OOOOIO 
0000*0 
OOOOIO 



• • 



>r 



10 



12 
13 



16 
17 



19 

20 



21 
22 



24 
K 



27 
28 



30 

31 " 



34 
35 



36 

37 " 



39 



42 



47 
48 



CHECK(CHECKl) 
ONERRC0NEHH1 ) 



CUOSEANOOPEN 



IF PCUUP)*CCHECKi ) THEN P( CHECK1 » 0*FLQC , »> 

0NERRl>l7>C0M*DEL>DEL,DEL,DEL)> PCdEDjM 
*.. — , * THE A BOVE A RE USED U N Bi nCK + REC CH*S 



COUNT 



DELAY 

DISK 

DONS 



»P(MKS*1*G*FL0C*4*FILECTRL* XCLQSE NO RWD 

MK$,FLGC>1#FILECTRL>#* X OPEN INPUT 
■ FIB! 13 J « > . — t nam pna p|pf!k|M G te c 'H' 



ENOFIUE 
ENDPR0CE9S 

jm£ 



* tip, [20 « n », 

- CUNITrPE«-CFIBU3. 
g TIP . C 1 9U 3 U 



JU£- 



FNAM 
FOREVER 

hqhhpen 



• FIBlSitUoUJ *> % 
« FIBC53»C39»23#* X 
*c f*m no.ta>ii uju * 



X THIS ALLOWS ONE CYCtE OELY 
[8H])) = A<i 
X la 1 COMP L ETED _ 



8 FIB[4J.tl3«ll]** X 
«(NOT Q)t..C.9l39J #* % 
• FISC51 » Caj. t 33 j>* X_ 



ALREADY PASSED EOF 

SEE OPTIONAL AND ENOHl'E 
FIRST EflF OR FQT 



FILE NAME INDEX 
UNTIL END TIME 
1*0P&N iNPUTtQ* 



INFILE 
IMVAL!DUS£« 



INXLINAGE 
I.QEftR.(lQERRl) 



FIBC13J, £27*13*/ 
FIBC53<Q». 



% I > CLOSED 

X FILE OPEN INPUT 
X INVALID USER NOT 



IN FPB 
OPEN OUTPT 



LABELED 

LABEQ 

LBLPTR 



P(LQCCfCTR#DUP»LODf LINES* ADD *XCH'«-)#» 
P(0,FLgC*iaERRl,l7,COM,DEL*DEL»DE|.)#, 
* AbQVF CALLS IOERROR ROUTIMF 



P ARITY 



linagelim 
lineprint 

LINTOG 



NOT FIB[43»C2*13#j 

FIBC53. C17I1 3 *> X LABEL EQUATED 

FLQCtl) *, X LARFL PQINTFR 



FROM DISK 



LOCOFCTR 

MABUSE 

MAXR 



* FIBtl3#» * LOGICAL LENGTH OF PRINTED MAGE 

s F1BC2CJ *p X CF«1 IS PRlNTFlLE 

= LINAGf [1*13*» it TRUE IF LINAGE PRESENT 



MAXREC 
MINREC 
NONSTq 



FIBL33*, X PRT LOC OF LINAGE CENTER 

FlBC4Jt[lUJ## X MAY BE 0$E RTNS PRESENT 
FlB[ia3C8*38*103**X MAX REC SZ FOR CONCATS 



NUM0UF 

numbec 
nxtlina6e 



* FIBC183,C33»153*, X 
■ FIBt laJ.CFFJ «, % 
« FIB C53.U6* Ut, % 



nxtreel 



* FIBC133.CIOI 93#i 

* FIBCM3 *, 
LINAGE. C33ll5]«, 



MAX REC SZ 

MINIMUM RECORD SIZE 

NQN-STANDARn LARFI S 



OPTIONAL 



PARITY 

PBIT 

P R E S ENT 



« P(MKS*2#1,FL0C'4» * 

FILECTRL)** X 

* FTBT 53.M9I1H, X 



% NUMBER OF BUFFERS ASSIGNED 
X RECORDS PER BLOCK 
X PRINTER* LINAGE lImIt 



* TIP.C28I13** 
« C 2 * 13*» 
»CC*DLOC3.C3*ll^t, 



THis.D.Pes. Reel smt c hjn g . 

OPTIONAL F ILE NOT PRESENT 



PROPER 
PUNCH 



X PARITY BIT ON DESc 

X PRESENCE BIT 

X CHECKS PRFSFNTSRTT 



RCOUNT 

RCPRT 

READER 



*PCCQDE#PCDuP)>+>PCDUP}«12*+»REvERSE*+>21,+) *, 

. .* GENERATES PROPER IOeRrQr 
■ UMTYPb«6«» X UNIT IS CARD PUNCH 



READLBL 



49 

so 



52 



55 

56 



R ECFE R BLK 



• F1BC73 $'» X RECORo COUNT 

« (FIBC2GJ.CFFJ)*, XPRT OF DESC POINTING TO REC 
«(UNITYPE MQo ll»03**X Q»REAQER 1 1»PSUdQRfAqeR 
*P(LLOC INX 0,11,11 X THIS READS THE LAB£L. 

>COM#OEL»DEL)*# X 
- HL03 q30»i23 », X RECORDS PER BLOCK 



S SET OMIT • TIMESHARING 

REMOTEUNIT »13#, X TYPE 19 FILES FOR BATCH 
! REMQTERjjAQ «BE6lN PCBUFFSI ZE.DLO CFOREmER, 1 , TIP, n,36 .COM. 

DEL*DEL'DEL*DEL*DEL); 

PCTIP); moverec; 

PabLgc[Q]]>»jP-l*RTN)J 



REM8TEWRIT 



,iw„- »y 



END** 

•BEGIN PCBUFFSI2E,DL0C#F0REVER* 
LINSS&CKEY»0HCTF3,TIPW 



09604600 
09604700 

OQftoflaoo, 



oooo»o 
0000*0 

00 00 * 



09604900 
09605000 

096 5100 



09605200 
09605300 
Q 9 6 Q 54 Q 



0000*0 

0000,10 

0000*0 



0000*0 
0000*0 
0000*0 



09605500 
09605600 

09605700 



0000*0 
0000*0 
QQflOlO 



09605800 
09605 900 
9 6 060 



09606J.0O 
09606200 
09606300 



0000*0 
0000*0 
0000*0 



0000*0 

0000*0 
oooo*n 



9606400 
09606500 

09606600 



0000*0 
0000*0 

onon*o 



09606700 
09606800 
09606900 



0960700U 
09607100 
09607300 



0000*0 
0000*0 

ononto 



0000*0 
ooooso 

0000*0 



09607400 
09607500 
Q96076Q0 



0000*0 
0000 * 
OOQO'O 



09607700 

09607800 
09607900 



0000 »0 
0000*0 

QQQ« O 



09608000 
09608100 
Q96n 82Qn 



0000*0 
0000*0 
QnQQ*» 



09608300 
09608400 
09608500 



0000*0 
0000*0 
onon'n 



09608600 
09608700 



0000*0 
0000*0 
QQOQ»0 



09608900 
09608910 
096Q9000 



0000*0 
0000*0 
0000*0 



09609J00 
09609200 
09609300 



T 

T 



09609400 
09609500 

09609600 



0000*0 

0000*0 

oooo'o 



0000*0 

OOOO'O 
0000*0 



09609690 
09609700 
09609800 



09609820 
09609840 
09609fl60 



0000*0 
OOOOtO 
ooon*n 



000.010 

0000*0 

ooooin 



09609880 
09009900 
9 ^ 09 9 20 



0000*0 
0000*0 
000 »0 



rt 



12 

13 

,4 i 

15 

16 

17 < 

18 

19 

20 I 

21 

22 

23 i 

24 



27 
28 
29 I 
30 



33 
34 
35 ( 
36 
37 



40 

41 
42 



B 



52 
53 I 



56 ' 



rf 

2 
3 

4 
6 
6 
7 
8 
9 
10 
11 
12 
13 
14 

f 5 . 
16 



17 
18 



19 
20 
21 
22 
23 
24 
25 



26 
27 
28 
29 



30 
31 
32 
33 



34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



43 



45 
46 



«8 

•9 
50 

51 

a 

53 
S4 
55 
56 



MOVtRECJ 

P(CULOCCO]]*bTN); X RESTORE TIP 

PC l f 3fi tC n M « D EL fnE L »0 E l»D E l» DE L»P-i»RTM)* 

END** 



$ SET OMIT * NOT 
REVERSE 



TIMESHARING 
m E-tai5JUXiU-U 1 



SETPRESENCEblT sPctIP 
SET OMIT * NQ.TCTI.ME.SHARJNG) 
SFJ OMfT » TTMFSHARTNG 



Jb X liREVERSf 



CR MEM »DLUC»*>*'X SET PRESENCE BIT 



% POP 



SLEEP 
OMIT 
TAPEE 



9 2 »* 



X i» TaPfS QrALL fl»f 



TECHA 
TECHC 
TFRMCTERM1) 



TIP 

TOSZF 
UNBLKD 



*(FIBC5 3tC46*2 3=l) *** TECHMQUE-A 
*CFIBt53*l46S23=3) **X TECHMQUE-C 
» Ptl.FL0C.TERM1.17tCQM)«.KTERMlNATE I/O FRROR 
• (*DLQC> *, X LOAO I/O OESC 

= [B»38»103i»> 

« (FIfit53.tiifti9Tfn «« X « RFCORD PER RLQCk 



waitio 

WnRpSLEFT 



> pcdlociqmask* * 

sle£p»cqm#del#del.)#*x. 

! FIBf 1 73 tf 8 2L 



LABEL LPRETuRN#STAliilT'IMPROPER*ROVER#EOFSETCKJ 
SUBROUTINE GOUSe; * CALLS USE ROUTINES 

flrfiiM PfMKS.rritn.T.o.pFRFnRMfiFfrU fmoix 



this sleeps on i/o 
waiting for a complete 
words left in buffer 



SUBROUTINE INPUTPA.RJT YJ X 

BEGIN* 
IF (T *■ RT *■ PQUSE[4]«BHR)»0 THEN GOUSE; 



X INPUT ERROR UsE RtN 



IF (T * FIBC153.BF) * THEN GQUSEJ 
IF NOT PRESENT THEN IF NOT (T OH RT) 
IQER8C19 ♦ 10 x REVERSE); 



THEN 



setpresencebit; 
end inputparity;* 
subrqutinf qutputerror;x 



begins 
if 



not eof then x tape write parity or blank tape 

BEGIN X OUTPUT ERROR USE ROUTINES 



IF (T * PGUSEl.53.BRR?fO 
IF CT * FIBU53.BF) X THEN 

TERM(20m 



then goose** 
g.ouse; 



end;x 
setpresencebit;x 
mxtrfft.; x rffl swttc.h 



end outputerro.rjx 

5UBB0UTINE INPUTEQFfcQRJ 
BFGTN JL 



FflF OR EOR 



ENDFILE «• TRUE;X 
SETPRESENCEBITJX 
IF R F A OF R OR REVERSE 



THE N P(1 » R T N )J X 



IF LABELED THEN* 

BEG IN X 
RE A DLBL^X 



STREAM(SENT*0#BC*0#RC«-0IL»5 INX LBLPTR); 

BEGIN X THIS RETREIVES END 0? REEL 

0I»UDC SENT; X SENTINELjBLQCK & REC COUNT 



09609940 

09609960 

09 60 99 6 



000050 
0000*0 
0000 »0 



09610000 
09610050 

QoftjOflon 



0000 10 
0000*0 

ooooto 



09610500 
09610600 
09 61 0600 



000010 
000010 
0000*0 



096^0900 
096 10901 
09*11000 



0000*0 

0000*0 
ooonio 



09611100 
09611200 
Q96113QQ 



T 
T 



0000*0 
000010 
0QQ0*O 



0961H00 
09611500 
Q96J1600 



0000*0 
0000*0 
0000*0 



09611700 
09611600 
09611900 



0000*0 

0000*0 

0000*0 



09612000 

09612100 
096l?200 



0000*0 
0000*0 
OOP HO 



09612300 
09612400 
09612600 



0002* 3 
0003*0 
0003*0 



09612700 
096J2B00 
QOft^BSO 



0007*0 

ooino 

QOUll 



09.6 J 2900 
09.613000 
00613100 



0018*0 
0019*2 

QQ19S3 



09613200 
09613300 
96134QQ 



0020*0 
0020*0 
002U1 



09613500 
09613600 
09613700 



0021*3 
0025*0 

0029*0 



09613800 
09613900 



0030*1 
0030*1 
0031 * 3 



09614100 
09614200 
09614300 



0033^1 
0033*2 

003a ;o 



09614400 
09614500 
09614600 



0034*0 
0036*2 
0016*0 



09614700 
09614800 
09614900 



0041*2 
0042*3 
0043*1 



09615000 
09615100 
09615200 



0045*1 
0048*1 
QOflfltl 



DI*DI*7i SI*L; Sj«.Sl-i:X 

ds*chr; ds*5 oct; os*7 qct;x 



GMECKCRCQUNT) 
CHECK CBCOUNT) 
£ftfl*EFt_ » PI 



QNERRC16); 
ONERRU73J 

I STORE SENTINEL 



09615300 
09615400 

■ Qgmson 



0046*2 
004911 

005010 



09615600 
09615700 
Q96l5flQQ 



0050H 
0054*3 
0059*1 



• • 



IF MABUSE THEN* 

BEGIN X END INPUT REEL USE RTN3 

IF (TfrPGUann t BRR)*0 THEN GflU&j^Ll 



IF (T*PGUSECU.ARR)XO 
IF NOT ENDREEL THENX 
ftFfiTM X FMn TNPUT 



THEN GOUSg;% 
FILE USE R TN S 



09615900 
09616000 
09*16100 



09616200 

09616300 
O96I64OQ 



0059*3 
006GJ3 
00618 1 



IF (T«-P6USECn*8F)/0 THEN GOUSE; 
IF (T*PGUSEC1],AF)X0 THEN GOUSE; 
ShMJL 



tf (T*FIBC23.BRR)*0 THEN GOuSEi * ENO 
IF (T*FIBC23.ARR)*0 THEN GQUSEJ * REEL 
IF NOT ENDREEL THFNX 



09616500 
09616600 

0961 670 



006510 
006910 
006912 



12 



BEGIN X END FILE USE R0UTIN E S* 
IF CT*FIBC23tBF)^0 THEN GOUSEiX 
IF ( T»F l B[ g3 «AF>'Q THEN GQU§ E;X 



09616600 
09616900 
09 617Q0 Q 



0070 JO 
0Q74»0 
Q Q7R * 



09617100 
09617200 
09617 3 0Q 



0078*0 
0082J0 
0086 10 



0086*2 
0087*0 

oq'9l !0 



13 

14 
IB 

le 

17 

IS 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

JO 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

«2 

43 



END USEU 
END LABELEDJ* 



end;x 



09617400 T 
09617500 T 
096 1 76 Q T 



009510 
009510 
0Q95IQ 



IF LABELED AND NOT ENDREEL THEN .P.U*RT.N) J» 
IF NQNSI.D THENX 
BEGIN* , 



09617700 T 
09617800 T 
09617900 T 



009510 

0098*0 
0099*0 



ENOFILE * FALSE** 

CLOSEANDOPEN^X 

Pf 1.RTN1J* 



09*18000 T 
09618100 T 
Q961B2Q T 



0099«2 
0102*0 
QlQ4*2 



ENDJX 

nxtreel;x 
HtnELf pep; 



% DELETE BRANCH RETURNS 



09618300 T 
0961.8600 T 
0961S7Q Q T 



0105*0 

0105*0 
Q1Q6L2- 



IF TECHC THEN PC ,TCW,LOD# f NUMWDS, STD ) ; 
GO TO STARTT4 
END INPUTFOFEQRJ : 



SUBROUTINE MOVEREC; 

R C" C 1 Kll 

IF NOT DONE THFiN HAITIU'X 



X MOVES HECCRD BETWEEN WORK AREA A*D BUFFER 



0i07»0 

0110*0 

9 6 1 9 T QU 0' 2 



09618750 T 
09618800 T 
-0 



09619QOO T 
09619100 T 
096lV?QQ T 



0110*3 
0111*0 

Qin*n 



PU»CPRT,TIP ZNX 0); 
IF NOT PRESENT THEN 

:nn£ thfi 



X MAY Be ERROR OR EOF 



IF XI 



M. 



09619300 T 
09619400 T 
09619500 T 



01H»1 
Oil6»3 

0ll8*0 



IF EOF THEN BEG.lN.OUT.PUT.ERRQRi P(DEL»TIP INX Q>> EnD 

ELSE .P(XCH»P.C0UP}.,£.8I.103»,NUM*»DS»IS0) 
ELSE IF EOF THEN I NPljTEQFEG R; 



09619600 T 
09619700 T 
09619800 T 



0118*3 
0123*1 
Q125M 



OEST ♦ IF CODE THEN P ELSE P(XCH)jX 
STREAM(FR0HtP|NUMW0S#E*P(0uP).t36«63>X*DEST)*X 
RP-GTNX 



09619900 T 
09620000 T 
00630^00 T 



0128*0 
013010 
QU2*1 



SI«-FRQm;E(DS«-32 .mOSiOS*32 wds); ds*numwds wds;% 



end;* 

PCOEDi* 



09620200 T 
09620300 T 
09620400 T 



0132*1 
0134*1 
0134*2 



WORDSLEFT ♦ *P(OUP> - NUMWDSJ 

OLOCCO] «■ (IF REVERSE THEN NQTCNUmWD$-1) ElSE NUm*DS) INX Tip; 

RCnUMT » »P(QUP3 » 11 



09620500 T 
09620600 T 
00fi?0700 T 



0134*3 
0136*3 
0141*1 



46 
(7 
48 
49 
SO 
51 
52 
53 
54 
55 
56 



IF CODE TH£N 

IF NOT PRESENT THEN OuTPU.TER.ROR 
ELSE ELSE 



X CHECK FOR 

X OUTPUT PARITY E««QR 



09620800 T 
09620900 T 
Q9621000 T 



0143*1 
0143 «2 
0146*2 



if parity then inputparity; 
if break then breakout* 
eno mpverecqrdtqandfromworkarea; 



X INPUT PARITY ERROR 



09621100 T 
09621200 T 
09621300 T 



Ol«7l2 

oisito 

0156*1 



SUBROUTINE PREL; 

BEGINX 
P(TIP»DLQC,PRL*DEL); 



X DOES ACTUAL I/O 



X DO 10 



09621700 T 
09621800 T 
09621900 T 



0156*2 
0157*0 
< U57'Q 



BCOVNT * *P(0WP3 + 
PRELU 



X UP 



uf^i 



COUNT 
ON PRINTER 



09622100 T 
T 



0j58t2 
0160*2 



i 

2 
3 
4 



19 

20 
21 



23 
24 
25 
26 
27 
28 
29 



30 



34 
35 



36 

37 ~ 



41 
42 



44 
45 
46 



48 
49 

50 



52 
S3 



S4 



SB 
58 



BEGIN 



hhllE LINES) 
BEGIN 



> DO 



09622500 
09622600 
09622700 



IF NOT DONE THEN WAIUO* 

IF NOT PRESENT THEN QuTPUTERROfU 

nLQrroi » TtP a iriatn7Mi & i6r?7iii2i63 ; 



09622800 
09622900 
09623000 



0161*0 

0161 «0 

Ql6?*.l 



0162* t 
016512 

0168*0 



IF LINES = 1 THEN 

QLUCtO] + TIP 

PRELi 



& 2C27 * 46* 23 i 



09623100 
09623200 
0962^300 



END 



lines * lines - 21 
end; 
skipptnga. lthosf.linfs? 



SUBROUTINE 
BEGIN 

LL 



G.OLP' 

lintbg then inxlinage; 



% HAKES THY PRYNTER GO 



09623400 
09623500 
00683606 



017110 
.017 i» 3 
OjL7ai 1 



09624600 
09624700 
Q96?4aQ0 



0175*0 
0176*1 
017 6 *3 



017.7*0 
0177*0 
01 77*0 



RT «• BUFFSI2E 

IF NOT UNBLKO 

BFGIN 



- wqrdsleft; 

THEN 



% *Q MEANS DATA PRESENT 



09624900 
09625000 
09625100 



IF TECHC THEN 
BEGIN 
IF NUHhDS 



> MXRF.C THEN NUMHH..S «• MAXRFCJ- 



09625200 
09625300 
09625 4 00 



0180U 
0182*2 
184 10 



Ol84»2 
0l86'0 
01 8 6 * 2 



JLFL 



if numwqs < then termc36); 
end; 

MUMWnS > WfiBpSLEFT THFN SKTPftFR * TRUF 



09625500 
09625600 
09625700 



0190*0 
0l92*2 
0192*2 



ELSE BEGIN . MOVEREC* GO LPRETURN; END; 



-JX 



end; 

CHNNL * 



THEN LI NFS ». 0' 



09625800 
09625900 

09626000 



019411 
0.196*2 
019 6* 2 



IF 



SKIPBF« 
BEGIN 



THEN 
IF NOT DONE THEN WATTIQ; 



09626100 
09626200 
096263QQ 



0l98*2 
Ol98»3 
0199*1 



IF NQT PRESENT THEN QUTPUURR.QRJ 

DLOCCOJ «- FLAGCBUFTOP & (RT = 0) 

t£LT TnSZF 



C18J47U3 



09626400 
09626500 
09626550 



0202*2 
0205*0 

2 6 *1 



&aiNES>0>C27U6»23 & CHNNL [29 144 14 ] ); 
IF LINES s 1 THEN 0L0Ct03«-TlP * 2C27*46*23; 

PRFt; 



09626600 
09626700 
09626800 



0207*1 
0210*2 
0214*3 



aORDSLEFT < 
IF CLlNES « 
if UMTYPF' 



buffsue; 

lines - 2) > then skipper* 

\9 THFN fF NOT DONF THEN WAjT^O; 



09626850 
09626900 
09627000 



0216*0 
0218*0 
0221*0 



iiJUbiUSti 



buftqp,[cf3 
woverec; 



* tip; 



09627100 
09627200 
962 7 3QO 



0225*2 
0227*3 
0229*0 



BEGIN 



IF RT * THEN 
B E G I N 



09627a00 
09627500 
09627600 



0229*0 
0229*2 
0230*1 



DL0CC03 * 

prel; 



FLAG<BUFTOP & 0[27*42»6) 
& RT TOSZF); 



09627700 
09627750 
09627Q Q 



0230*3 
0231*2 
2 34*0 



worcsleft «■ buffsize; 

if unitype*12 then if not done then wait io' 

buftop.ccfj » tjp; 



09627850 
09627900 
09628000 



end; 
moverec; 



FLAGCBUFTOP & (LINES>0U27 *46* 2 3 



09628100 

09628200 
09628300 



0235*0 
0237*0 
0241*2 



0243*3 

0243*3 

0245*0 



IP LIN£S_? 1 THEN 



prel; 
worosiift 

IF (LINFS 



& cbuffsize*wordsleftj 

& CHNNL [29*44*4]); 
DLOCtO |»TI P 4 ?[27>46*23i- . 



TOSZF 



09628350 
09628400 
Q96 2Q 5QQ 



buffsize; 

LINES * 2) 



> .0 TH EN SKfPFFRJ 



09628600 
09628650 
09628700 



0246*1 

0248* 3 

-0-251*,! 



025412 
0256*0 
0258*0 



flj 



IF UNITYPEM2 THEN IF NOT DONE THEN WAlTlOj 
BUFTOP.CCF] «■ Tip; 



END* 



LPRETuRNt 



09628800 T 
09628900 T 
0962910Q T 



026l»0 
0265*2 
0267*3 



IF LlNTiG THEN IF C*PUDC0FCTR > )*LlNAGELlM THEN 
BEGIN ; 



09629200 T Q267»3 
09629300 T 0267*3 
09629400 T — 0270 >g 



PCQ#lQCOFCTH> 
LINAQEUIM «■ fN 

P(1>flTN)i 



STO); 

xtlinage; 



09629500 T 
09629600 T 
09629700 T 



027110 
0272*0 
027.313 



end 



end; 

P(»,RTN>* 
GO INTflP R INTE R J 



09629800 T 
09629900 T 



0274*1 
0274 *t 
0963Q00Q T 027413 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 



subroutine writ; x w 

begin 

olociq] t flagcbuftop & 



RITES A BLOCK 

(Burrsizr-HonnSLrFT) tqszd; 



096 30900 T 
09631000 T 
09631100 T 



027510 
027510 
0275*0 



IF TAPEE THEN IF NOT BI 

ELSE IF PUNCH THEN 

PREU : 



NARY THEN ARROW ELSE 
OUQCCOJ + TIP & CHNNLC32I47I11; 



0943120Q 
09631300 



02 78 1 3 
0285*1 



09*31400 T 02«9»2 



END 



WORDSLEFT ♦.. BUFF.SIZE; 

buftop.ccf] ♦ tip; 

writ;* 



09631500 T 029110 
096 31600 J 029310 
096 3 1700 T 0295*1 



20 
21 



SUBROUTINE REEO; X READS A BLOCK 

BEGIN* 
OLflCCOl » FLAG(FlBtl63)iX 



09631800 T 0293*2 

09631900 T 0296*0 
09632100 T 0296*0 



22 
23 
24 
25 



prel; % 

BUFTOP.CCF] «• TIP;* 
WQRDSLEFT * Of 



09632200 T 
09632300 T 



0297*1 
0298*0 



09 6 3P500. T OaOQ-U- 



26 
27 



END REEDJX 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
FTB » +CFLQC » fNQT 2) 



START HERE %%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
INX QlMllX 



09632700 T 
09632800 t 

09632900 T 



0301*2 
030H3 

0301*3 



28 
29 



30 
31 
32 
33 



IF DISK THEN GO TO PC COBQLIQDSk ); X 
jQMASK * P20O00QOQ0O;X 

startuf nqt.(Endpr.qcess»o. qr code) thfn fio To eqfsftck; 



09633000 t 0306*3 
09633100 T 309*3 
09613200 T 0110*2 



IF CODE > l THEN 

BEGIN 
IF CODE t 6 THEN TERM(2s); 



X SHOULD BE WRITE BLOCK 



X UNREC O GNIZ E D C OD E . 



09633300 T 
09633400 T 

QQA33SQO T 



0313*0 
0313*3 
Q3 U*1 



34 
35 



36 

37 _ 



IF HUWOPEN t 

IF WORDSLEFT 

IF U NE.P 



Then go improper; 

< BUFFSIZE THEN 

HINT THEN gOLP ELSE WRIT; 



* 10 ERROR 



09633600 T 
09633700 T 
096 33 800 T 



0316*3 
0318*3 
0320'? 



PCO»RTN); 

END writeblock; ' 

IMPROPER* IF (l-COOE)'HQNOPEN THE 



N 



X CHECK USE VS HQW OPEN 



09633900 T 
09634000 T 
09634200 T 



326*0 
0326*2 
326 *2 



40 
41 
42 
43* 



IF H0W0PEN>1 THEN 
ELSE TERMCPROPER); 
IF UNlTYPE»lQ OR UNlTYP 



TERMC31+C0DE) 

X 

E«13 THEN 



* CLOSED 
X USAGE 



096 34300 T 
09634400 T 

09634500 T 



0328*2 
0332*3 
Q33M3 



BEGIN 



IF CODE THEN 
REMOTEREAO; 



REMQTEWRITI 



0963*600 T 
09634700 T 
096 34 80Q T 



0339*2 
0340*0 
349*1 



46 
47 
48 



end; 

IF CODE THEN 

IF LINLPRINT THEN 



X WRITE A RECORD 
GOLP ELSE 



09634900 T 
09635000 T 
09635100 T 



357*1 
0357*1 
0357*2 



49 

50 



51 
52 



BEGIN 



JF TECHC THEN 
BEGIN 



09635200 T 
09635300 T 
0963546A T 



360*0 
0360*2 
0362 * 



S3 
54 



IF NUMWQS > MAXREC THEN NUMWDS ♦ MAXREC; 
IF NUMWDS > WORDSLEFT THEN WRIT; 
IF NUMWDS < MINREC THEN TERMC36); 



09635500 T 
09635600 T 
09635700 T 



0.362*2 
036610 
0369*0 



55 

56 






MQVEREC* 
Ig-Mfl«P»LEfT.< WINREC 



writ; 



0961S800 T 0372*2 

09635900 T 0372*2 

■,, , 096 36000 T 3^4*0 



PCOfRTN); 



n 

2 

3 

4 



end; 



it RFAD A, RECORD 



09636100 
09636200 
00636-jOO 



Oj78*0 
0378*2 
0378*2 



ROVERl IF WORDSLEFT S THEN 

BEGIN X A NEW BLOCK WAS READ 
IF MflT ttriNF THFN WATTlllt 



09696400 

09636500 
09636600 



0378*2 
0379*2 
038010 



WORDSLEFT «• 

MEM[(IF REVERSE THEN 1 ELSE NOT 0) INX TIpJ; 
If REVERSE THEN DL0CC03 » NQT(MAxREC-2) IM TIP* 



09636800 
09636900 
09637000 



0383*1 
383*3 
3 8 8 *2 



end; 

IF TEGHC THEN 
BEGIN 



09637-100 T O393IO 
09637200 T 039310 
0963*300 T 03941a 



10 

11 

12 

13 
14 
15 
16 



NUMWDS «• PC .NUMWDS>LOD*.TCW*STD*MlNHEC>; 

MUVEREC; 

IF (TCW+TCH) > MAXR&C THEN TCW t MAXREC* 



096 37400 
09637500 
09637600 



0395 10 

O397I3 

3 9910 



IF TCW < NUMWOS THEN 

IF (TCW«0) AND (WQROSlEFT+NUMWOS.1) THEN 
BFGlN 



09637700 T O4O3IO 
09637800 T 0403*3 
09637900 T 0406*3 



17 
18 



reed; 

rcount «■ *pcdup) - h 

fin rover; 



096 38000 
09638100 
09638200 



T 0407 5 1 
T 0408 10 
4 4 1 *0 



19 
20 
21 
22 
23 
24 



END ELSE TERMC26 + CTCW*0))j 
IF (TCDIF * TCW - NUMWOS) > TH^N 
B EGIN 



09630300 T 041012 
09638400 T 0413*1 
09638500 T 4 15*0 



STRtAMcTCDlF#E*P(DUP),[36»63# 
FROM* TIP INX 0* 
PEST «• NUMWDS INX C*RCPRT))» 



096 38600 T 04 15 : 2 
09638700 T 0416*3 
09 6 3880 T 04 17 * 3 



25 
26 



27 
28 
29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 



BEGIN SI ♦ FROM; 

ECDS*32 WDS; 0S«.32 WDS); 

os » tcoif wns; 



09638900 
09639000 
Q 9 6 391Q Q 



T 0420*0 
T 0420*1 
1 0421* ? 



END stream; 
DL0CC03 «- TCDIF INX TIP; 
WORDSLEFT «• »P(DUP) - TCDIF; 



09639200 
09639300 

09639400 



T 0«22»0. 
T 0422*1 

J 042313 



NUMWDS «• TCWJ 



END1 



P<BCPRT,puP,LQp>NUMWpS»DlA 38*DIB 8»TRB 1Q»XCh»STo>; 



09639450 
09639500 
09639550 



T 0425 1 3 
T 042612 
T 0426 *2 



END % TECH C FILE READING 

ELSE MOvEREC; 
IF WORDSLEFT < QR UNBLKD THEN REED; 



09639600 
09639700 
09639800 



0429*3 

0429*3 
0431*0 



EOFSETCK* 



P(0»RTN); 

IF ENDFlLE THEN TERMC15); 



09639900 
09640000 



T 0435*0 
T 0435*2 
4 0A35t2 



40 
41 
42 
43 



ENOFILE * TKue; 

p c i # r t n ) ; 

end cg bol ionono isk; 



09640200 
09640300 
0964Q5Q0 



T 0438*1 
T 0440*3 
J 0441*1 



45 
46 
47 
48 
49 
SO 
61 
52 
53 
S4 
56 
56 

A 



PROCEDURE COBOLIPOSK; 



S T A RT Q F R El 



09700000 
SEGMENT! DISK 



SIZE* 0442 WORDS 
T 0000*0 
AOORFSS a Q66 4 



BEGIN 
REAL RCW 
REAL CODE 



■ +o; 
= -1; 



XUSED TO CALL COBOL IDNONDSK 

% 0gREA0,l*WRlTE»2aSEEK,6aWRTBLK> 



09700100 
09700200 
097QO3Q0 



T 0000*0 
T 0000*0 
J OQOQ*Q 



NAME DLOC 
REAL NUMWDS 



•2; X POINTS TO BUFFER I/O DESC 
-3; % * WOS TO BE WRITTEN 



^L OCAL S 



09700400 
09700500 

0,9700600 



T. 0000*0 
T 0000*0 

J OJUiflJLO- 



INTEGER BS ; % USED IN COMPUTING DISK ADDR 

REAL COBQLlONONDSKn 14; 

R E A L S&SJ L, X DESTlNATjQN IN RAND O M MQ VE. 



09700700 
09700800 
0970090 9 



T 0000*0 
T 0000*0 
J OOOQ'O 



ARRAY PfB MJ1 
NAME FLOC) 
A R RAY FpB ,m Mf H 



X FII ARRAY 

I- (WINTER TO FIB 

% FILE PARAMETER BLOCK 



09701000 
09701100 
0970120ft 



T 0000*0 
T 0000*0 
T ^000010 



fr 



# 



2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
! 20 
21 
22 
23 
24 
2E 
26 
27 
28 
29 
» 

31 ~ 
12 
33 
34 
35 
36 
37 ~" 






38 
39 

40 
41 
42 



45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 
55 
56 



ARRAY 
REAL 

NAME. 



I N T I N T 
MFM * 2? 



NAME PERFORMER « \3h X 

ARRAY PGUSE"24[*]j X 
TNTfflER — BX_J X. 



X DISK FILE HEAOER 
5; X INTRINSIC INTRINSIC 
% DUMMY DATA DESC 



REAL Ti 
INTEGER DAS.; 
% SET UMyT « NOT SHAREQISK 



USED FOR PERFORMING USE ROUTINES 

PROGRAM USE ROUTINES 

USED IN CflMPUTlNfi DISK AOQR _— 



X TEMPORARY 

X USED TO COMPUTE 



DISK ADDRESS 



DEFINE 



AF 



B COUNT 

BF 

BOUNDFP 



" C36M2JI, 



BREAK 

BREAKOUT 



■ F.1BL.6} *.*... X 

"Civil If* X 

g FIB[9],[?*lU> 3L 



* FILE USE ROUTINE 
X RFFl USF ROUTINE 



BLOCK COUNT 

FILE USE ROUTINE 

TRUF IF BOIINEQ FROM AflflyF 



BRR 

. BU.FF.N.UM 
BUFFSUE 



F|4J£9 3 * # * % BREAKOUT RESTART POINT 
IFCRCQUNT MOO FIBC93)«0 THEN 

P(QfO»lg»CflM»DEL* Q£L)f*X CALL BREAKOUT 



BUFFSZ 
BUFTOP 
COUNT 



..■ lSLU.lZlt.il. 
3 FIBC13J.C1V9] *> 
a FIBCt9,l t C3ll31»t 



DINXPRT 

DONE 

OlSK 



» FlB£iaJ£8*8*103#» 
* FIB U*>3#p 

» FTBfl23 ». 



X REEL USE ROUTINE 

X ...# OF BUFFS REQUSTED 

X BUFFER SIZF (RFQuEsTEO) 



ER8IT 

FLAGINWa 

FNAM 



PC*RCPRT & Tip 

tip aim] #* 

CUT =jUJU 



x size for concaTinaTes 

X USED ON 1-0 AnO' RANDOM 

X USED rOR BLOCKTN r. TfCn-A,B 



ENDFILE 
ENDPR0CE8S 
XQf_ 



FIBtl33.Cl9*13 *, 
0£llill3## 

riBtai.ci anm. 



CCTCJ,RCPRT,<->*,XUpOATE POINTER 
X 1* 10 COMPLETED 

— x o i sk is unit typ e of 



getseg 

KFY 



s FIBC53 . C40* 13 *> 

s FIB£5J#C39J23#, 
a CC»DLOC^.[ 27M3)i»« 



X I0ERR19 NOT YET SPOUTED 

x says we are in work area 

X FILE NAME INDEX IN rPB 



x already passed eQf 

x see optional and endfile 

* FIRST EOF OR FOT 



HAVEWA 
HQWOPEN 



P£FPB£CBSl«FNAM)4.3 3,FPB£BS3,FPB£BS4-l3, 

!*HM>U#COM,OEL>DEL»OEL>DEL,DEL#OEL)*# 
FIBC15J«Cl2*103»» X REL PftT LOC OF acTUaL KrY 



»(INWA OR FlBE20]t£CF3>I)#*X TRUE IF HE ARE NOW 
*IN WORK AREA OR HAVE MADE IT PRESENT PREVIOUSLY 
■ FIB[5J'U1 833»* % i«OPEN 'INPUT'O* OPEN UUTPl 



INVILIOUSER 
INWA 



INXPRT 
iQERR(IgERRl) 



FIB£53<0#> 
UM2£lAM> 



X l > CLOSEO 

X INVALID USER NOT PARITY 

X SAYS WE ARE IN WORK AREA 



IOMASK 
LASTOONE 
LRLP TR 



= PlNUMWDS INX *RCPRT#RCPRT#0*,X UPDATE POINTER 
* P (CFLQC* I OERRl* 17* COM* DEL* DELUDED** 
* ABOVE CALLS IOERROR ROU 1 INE 



LSUBL 
LSU8U 

mabusf 



* 041£l9*#7*tJ *» I used to wait for iOfinish 

* FI8U3J, £21*13 *> X NOT OF LAST OPERATION DONE 
» FLOctlJ M. 



makepresentwa 

maxr 

maxrec 



* FIB £13 *, 

* FIB C 3 J #* 

* FIH[4MHU»t 



X LABEL PQINTFR 



X LOWER BOUND FQR RANDOM 
X UPPER BOUND FOR DISK rec 
X MAY BF US£ rTnS PRESUT 



MINREC 

NOAIT 

NtJMpur 



m P(*RCPRT & 1 CCTC3#0*CQC>#* 
» PIBE18J£8*38*103#»X MAX R£C 3Z FOR CONCaTS 
.» FIB£183.£^3I1S3«. X MAX EEC SZ 



NUMBSPC 
NUMREC 



nee iaJ ,ccfj#^ x 

FIB£2oJ,E3sl3** X 
F1R£133.£;0: o]», X 



• H£91. £43*53 ## 

• flMlli ## 

•■«/■£ 18t-i.n-.vE 22 1,1.1**. 



M.INJMUM RECORD SIZE 

AIT FOR WA WAS DESTROYED 

NUMBER OF BUFFERS ASSf GNFn 



X NUMBER OF ROWS SPECIFIED 

% RECORDS PER BLOCK 

X 1* OPEN INPUT»QUPUT (OISK) 



09701300 
09701400 
097C 15 Q0 



09701600 
09701700 

0970* 8 00 



0000*0 
0000*0 

ooooto 



09 701900 
09702000 
Qp.7 Q.2 0Q 4 



oooo «0 

0000*0 

oooo to 



09702100 
09702200 
00703300 



000.01.0 
0000*0 
00*0 



09702400. 
09702500 

09702 6 00 



0000*0 
0000*8 
ooonin 



09*02700 
09702800 
09702900 



0000*0 
0000*0 
0000*0 



0000*0 
0000*0 

0000*0 



09703000 
09 703100 
0O703?0U 



09703300 
09703400 
09703500 



0000*0 
0000*0 

OQOQt iL 



09703600 
09703700 
097Q3B00 



0000*0 
0000*0 
QOOOfQ 



0000*0 

0000*0 
000 *0 



09703900 
09704000 
09? 04100 



09 704200 
09704300 

0Q?04<i00 



0000*0 
0000*0 
0000*0 



09704500 
09704600 
00704700 



0000 '0 
0000*0 

0000*0 



000010 
0000*0 
0000*0 



09704800 
09704900 

0970 5000 



09F05100 
09705200 
09705300 



000010 
0000*0 

OQ QO*0 



0000*0 
0000*0 
0Q O Q»Q 



09705400 
09705500 

097056 , 00 



09705700 
09705800 
Q 97Q 5900 



0000*0 
0000*0 

OQO O'O 



09706000 T 

09 706100 T 
097Q6?0Q T 



0000*0 
0000*0 
QQQOIO 



0000*0 
0000*0 
QQQ0 * 



09706300 
09706400 
09706500 



0000*0 
0000*0 
0*0 



09706600 

097Q6700 
09706R00 



09706900 
09707000 
P97Q 71QQ, 



0000*0 
0000*0 
0000*0 



T 

T 

X. 



ooooio 

0000*0 
OflfifltO 



< 



i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 I 

21 

22 

23 \ 

24 

25 

26 I 

27 

28 

29 ( 

30 

31 

32 4 

33 

34 

35 ( 

36 

37 

38 % 

39 



42 

43 

44 ( 

45 

45 

47 

48 

49 

50 < 

51 

52 

63 < 

54 

55 

56 I 

57 



m 



• • 



h 



10 



12 



16 
17 



19 

20 



21 



2S 
26 
27 
28 



29 
30 



33 
34 
35 

36 



38 



40 
41 
42 
43 



♦6 
46 
»7 
18 
49 
50 
51 
52 



S3 
M 

i. 



PAHITY 

PBIT 

POINTPRTTOHUF 



POINTPRTTOWA 

PRESENT 

P R OP E R 



= FIDE 133 • C20I 1 3 #> 

3 C2U3#* 

= PCC*RCPRT OR MEM) 



X 10 ERROR OCCURED IN BLOCK 

X PRESENCE BIT 

ft . UP L CTCl*R C PRT » O I » 



RCQUNT 

RCPRT 

RECPFRHLK 



« PC*RCPRT & FIBC2Q3 CCTC ]»RCPRT »*■ )** 
■((*OLOC) t C2li3)## X CHECKS PRESENTSBIT 
»RrvrRSf-» cnnF»rnnF*2Ht.narMrRATrS prqpfr jufhw 



09707200 
09707300 

9707 400 



09707500 
09707600 
09707700 



0000*0 
0000«0 

o ooos o 



0000)10 

0000*0 
000010 



REOECWA 
R EEDI NG 



=s FIBC7J »f 

s CFIBC201, [FF3)## 

s Htoiitaonai ii 



X RECORD COUNT 

XPRT OF OE*C POINTING Ty REC 

X RECORDS PER BLOCK 



RESETPANDERBIT 
RESETREADBIT 
RFVERSE 



PCMKS»RCPRT#MAXREC#1»1#1»INTINT)*# 
X DECLARE SAVE ARRAY FOR WORK AREA 
£<»OLOCKr24tl3)«>XLAST ID WAS READ 



09707800 
09707900 
097 09000 



ROWLQTH 

SaVEWaDOR 

SERIAL 



- FIBti3j<»*PCDUPUOU9»19«23*>XRESET ERR BITS 
■ QC24*24li;i** X USED TO TURN OFF REaO BIT 
« FIHC53. [44*13 *> X 1SRFVFRSE INPUT . 



G?708l00 
09708200 

09706300 



0000 JO 
QQQQ*0 
QQ Q O» 



000010 
000010 
000010 



09 708400 
09708500 
0970 8600 



0000 *0 
0000 JO 
0000 1.0 



s 

9 



seqperblk 

SErPA.NDE.RB.IT 



Htl3## X ROW LGTH FROM HEADER 
FI8C20J**PCDUP)**P(RCPRT)[CTC3#»X SaVE aOdReSS 
FinC41»C27 l31»0 t.X FTLF ACCESS 9 SFRTAj 



a H[03, [42*63 »t X SEGMENTS PeR B^OC* 

= FIBC13J:s*PC0UP)&3C19«46»23#* 

X SET PAR T TY AND fOERR ^9 BITS 



09708700 
09708800 

Q97Q89QU 



0000*0 
000010 
QOQOIO 



setpresentsbit »pctip or mem #DLOC>*-)#>X 

SETREADBlT ■ H24»47*l3#» XUSEO 
% SFT OMtT 9 NQTtTlMFSHARING) 



set presence bit 
to turn read bit 



09709000 
09709100 
09709200 



0000*0 
0000*0 
0000*0 



ON 



09709300 
09709400 
09709500 



0000*0 
0000*0 
000010 



$ SET OMIT s TIMESHARING 

SLEEP s 

$ POP OMTT 



2 .#» 



TECHA 

TERM<TERM1) 
J_P 



*(FIBC53 iC46*23*l)#»X TECHNIQUE- A 

■ P(1,FlUC#TERM1#17,CQM)#,XTERMINATE I/O ERROR 

9 (+0L0O tj X LOAD T/O DESC 



09709700 
09/09800 
09709801, 



TQaZF. 

TQTREC 

_I 



WA 
WAITIO 



= [8*38*103** X 

* HC73 *, X 

* (FIR[4J,[6Hi)»' * 



09709900 
09710000 
09710100 



oooo;o 

0000*0 

ooon'o 



0000*0 
0000*0 
0000*0 



TO SIZE FIELD 
TOTAL RECORDS 
HARDWARE TYPE 



ON FlLt 



■ P(RCPRT,DIB 0#LOD)##X LOAD WORK AREA PTR 

■ P(OLOCMOHASK» % THIS SLEEPS ON I/O 
SLEEP«CQM«DEI_,DEL)»,X WAITING FOR A COMPlETE 



09710200 
09710300 
00710400 



09710500 
09710600 
09710700 



0000*0 
0000*0 

0Q00*n 



0000*0 
0000*0 
0000*0 



LABEL 



WQR03LEFT = FIBC173#* X 

WRITBACK = FIBC13J,C23*1]#; X 
HOdvE»FLOTE>SEEKRTN»START>READREV; 



WORDS LEFT IN BUFFER 
FLAG TO SAY WRITE BACK 



label serialiq»siqeod#rnqeod#eufsetck; 

label errend#mqoverr>reread#lckhandler; 

subroutine gousej x this calls use routines 



09710800 
09710900 

09711000 



0971U00 
09711150 
Q97U 20 Q 



0000*0 
0000*0 
0000*0 



T 
T 

T 



0000*0 
0000*0 
0000*0 



BEGIN 

END QOUSEJ 



PCMKS#T*0>PEHFORMER>J 



SUBROUTINE ERROR i 

BEGIN 
_____ IF REEDING AND 



XTHIS PROCESSES ALL ERRORS 



09711300 
09711400 
097U5QQ 



0001*0 
0001*0 
Q0Q2*0 



CQDF AND (NtJMREC»n 



09711600 
097U700 
Q97118QQ 



0002*1 
0003*0 
QflOHn 



$ SET UMIT » NOT S.hAREDISK 

THEN % SKIP ERROR CODE 
FL3E BEGI N 



IF OPENIQ THEN IF ( T »»RT *»PGUSEC4 3 . ARR) * 

GOUSE ELSE ELSE XWAS ERROR ON 10 
IF REEDING AMD (NOT CODE) THEN XREAD ERROR 



THEN 



09711809 
09711820 
09711900 



09712000 
097 i a 100 
09712200 



0005*1 

0005*1 

onosn 



IF (T*aRT«*HGuSEt43,BRR) X THEN 

GOUSE ELSE ELSE 
IF CTl»PGUSEC^3 f BRR) t THEN BOUSE* XWRITE ERROR 



0006*3 

0010*3 
001212- 



IF (T4-PIBC153.BF) * THEN QOUSEJ 
S BET OMIT * NOT SHARCOISK 

IF RFEQINfi'.AttO (MOT CODE) THEN 



I ERRQR ON FILE-N 



09712300 
09712400 

i ii M i H .1 > i j*> ili^JUiLM'i 



00111600 T 
0*7 12 6 09 !T 

OQ7#70Q.^r 



0014*3 
0017*3 
,001 9 t? 



002410 
0028*0 

no- 



il 

2 
3 

4 
5 



9 
10 

"I 
12 

13 

14 | 

16 

16 

"I 
18 

19 

20 { 

21 
22 
23 { 

24 
26 
26 ( 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 { 

36 

37 

38 ( 

39 

40 

4,( 

42 

43 

44 i 

46 

46 

47 < 

46 

49 

50 i 

51 

52 

53 \ 

64 

55 

5.4 

3 



• • 



BEGIN *CHECK USE PROC FOR 
IF ERBIT THEN %INPUT ERRORS 
IF CT OR RT) = Q THEN 10ERRQ9?* — 



ERBIT l« FALSEi 

END ELSE TE«MC20)J 



09712800 T 
09712900 T 
097 J3QQ Q T 



XWRITE ERR TERM 



EIMQI 



097tl|00 T 
09?UgOO T 
09 71IJ00 T 



0029*3 
0030*1 

oonu 

0035*2 
003810 
003019 



ERREND* 
SUBROUTINE MfWERE 



end error; 

HJLCX 



IMQVES DATA TO AND FROM HHRkAREA 



09713350 T 
09713400 T 
09713500 T 



.0 0.3.9 I 3 
003913 

ooaoto 



7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



BEGIN 

IF NOT DONE THEN 
S S ET Q UIT « N OT S HAR EDISK 



% OONT MQVE TItL la DONE 



09713600 T 
09713700 t 
09713709 T 



0040«0 
004010 
004 jit 



WAIIIQ; 
IF NOT PRESENT THEN 
USJLLh 



XfiQT AN ERROR 



09 713750 T 
09 713300 T 
0971 3 900 



0041 1 1 
0044 J 1 
00 451 ; 



SETPRESENTSBITJ 
SETPANOERBlTi 
* SrT OMIT b MQT SHARFniSK 



XSET ERROR FLAGS 



097J4000 T 
6*?i4l00 T 
09114104 T 



0046>0 
004712 
005010 



IF KPT REEDING THEN 

BEGIN 
PEST * s HAJ 



XERRQR ON OUTPUT 
SMQVF FIRST RECORD 



09 7 142 Q T 
09 714 300 T 
Q9714400 T 



005010 
0051*1 
QQ51M 



PCTIP inx i>; 

go moove; 

end; 



XTO WORK AREA 



09»J4500 T 
09714600 T 
09714700 T 



005410 
0055*0 
0055*2 



$ SET OMIT s ShAREDISk 

end; 
* pop umit 



09714799 T 
09H4800 T 
097148Q1 T 



0055*2 
0055*2 
0055 *-2- 



$ SET OMIT ■ NOT SHAREDISK 

PCBUFTOP INX(BS*NUMWdSx<RcOUNT MOO N(jMREC> + l>>* 
*Ai %HD\JF TQ/FRQm HA 



09714809 t 
09714900 T 
0Q715QQQ T 



0055J2 
0055*2 
0059*0 



MOOVE* 



DEST «■ IF CODE THEN P(XCh)ELSE P; XFQR READ OR WRITE 

STREAM(FROM*P*NUM w DS,E*PCDUP).C37»5]*DEST<.p(*p( f DEST))>; 

BEGIN 



09715100 T 
09715200 T 
09715300 T 



0060*3 
0062*3 
0065*0 



SI*«FR0M; ECDSU32 WOS; 0S»«32 WOS); dSJ'NUmWo* WpS; 

end stream; 

PtDEL); 



09715400 T 
09715500 T 
0Q7t5AQQ T 



0065*0 
00*? »0 
Q067H 



mqove rr* 



IF PARITY THEN 
BEGIN 

erru r ; 



09715700 T 
09 715710 T 
97157 30 T 



0067*2 
0068*2 
0069*0 



$ SET OMIT ■ NOT SHAREDISK 

end; 

END MQVEBEC; 



09715739 T 
09715760 T 
09715800 T 



0070*0 
0070*0 
0Q7Q*n 



$ SET OMIT ■ NQT SHAREDISK 
SUBROUTINE DISKADDRESS' XTHIs COMPUTES THE DISK ADDRESS READ & WRIT 

BEGIN , , , . 



09715809 T 
09715900 T 
09716000 



0070*1 
0070*1 
007110 



46 ; 

46 
47 
48 
49 
90 
51 
52 
53 
54 
55 
56 
67 



RT * SEGPERBLK x OAs; % REL SEGMENT NO 
IF P(RI DIV ROWLGTHfDUP) GEO NUMBSPC THEN 
8EGIN 



09716100 T 
09716200 T 
9 71 62 1 Q T 



007110 
007310 
0075*2 



* SET OMIT » NGT SHAREDISK 

PU»RTN); 

& N p ; 



09716219 T 
09716240 T 
0971625Q T, 



0076*0 
0076*0 
Q ? 6 > 2 



IF CBSfHCtT* p ♦ 10)1) « THEN 
BEGIN 

getseg; 



09716300 T 
09716400 T 
09716500 T 



0076*2 
007813 
0079*1 



if hqwopenxo then if not openio then i0errc22); 

bs *■ hctj; 

ENp; 



09716600 T 
09716700 T 
0971 . 68 T 



0086*0 
0091 J 3 
0Q92*3 



ST8EAMC A ♦ BS * 8S ♦ RT MOD TOW'LOTH* 

B*T*8UFTaP»fCFJ*UF CODE THEN EuSE WRlTBAcK)); 
BEGIN Sl+LOC a; OS»fl oec; END; 



09? 16900 f 
09717000 T 
P9F 1 7 1 0Q T 



00?2»3 
00*S»0 
009913 



ft 

2 
3 
4 
5 



10 



12 
13 



15 
16 
17 
18 



19 

20 



24 

25 

26 

17 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 " 



41 
42 
43 



46 



•8 



49 

50 



52 
S3 
M 



SB 

M 



$ set omit ■ not sharedisk 
end diskaddress; 
subroutine rotatebufi 



*THIS ROTATES BUFFERS 



BEGIN 



IF NUMBUF > 1 THEN 

PCNUMflUF,0LQCM3jll,eQM,DELjD£tfDEL); 



wordsleft ** buffsize; 
resetpanderbit; 

r iB[ >63,[CFj >* L LL i 



end rqutebuf; 
subroutine prel* 

BFGIN 



% THIS DOES ACTUAL I/O 



PC TlPfDLOOi 

IF WRIT8ACK THEN 

BEGIN 



X. DO SPECIAL WRITE-IO 



e nd ; 



writback * false; * torn off read bit 
olocco]* tip&resetreaobltu to make write 



END 



PCPRUDEU; 

if break then 
phel; 



% DO l-O 



breakout; 



subroutine reed; 

BEGIN 

wngnSLEFT 



XTHIS READS BLOCKS 



I* RUFFSIZF8 



DLOCCOJ 1= FLAGCBUFTOP 
CODE ♦ P(CODE»0); 
DTSKAUURFSS; 



& SETREADBIT); *Tq RESET iqd 



* SET OMiT 



code * p; 

NOT ShAREDISK 
MfMfBttFTnP IN* 



NOT 21 » OASt 



EN D 



prel; 
fibcioj.ccfj 

reed; 



X SAvF BL.QCK NyMHER 



«s TIP. 



XSAVE BUFF ADDRESS 



SUBROUTINE WRIT; 

BEGIN 
WnBDSLEFT 



XTHIS WRITES BLOCKS 



*« ROFFS IZE? 



writback «• false; 
das 1= bcount; 

DLQC tOJ *» FI.AGCBUFTOP 



& resetrladbitw 



XBLOCK 
XRE.SLT 



address 

iqq 



$ SET omit * 



DISKADURESS; 

not sharedisk 
prel; 



END 



SUBROUTINE SEEK; 

BEGIN 
IF (OAS 



FI8C163.CCF] is TIP; 

if not(serial) then bcount 
wri t ; 



XSAVE BUFF ADDRESS 
»s MEMtBUFTOP JNX NOT 23j 



XTHIS FINDS AND/OR READS BLOCKS 
» RCQUNT DIV NUMREC) * BCOUNT THEN 



$ SET OMJT s 



BEGIN 

not sharedisk 
go seekrtn; 



end; 

IF SERIAL THEN 
BEGIN 



IF NOT HOWOPEN 
BEGIN 
IF R gOU NT 



THEN 



< TUTREC 



XNOT INPUT 
THEN T UTRE C »■ 



RCQ UN U . 



IF NUMREC > 1 THIN 
BEGIN 
NUMBUF 4 I 1J 



1BL0CKE0 OUTPUT 
XFILL ONLY ONE 



097 
09? 
097 



097 
097 
097 



O97 
097 

_o_az 



097 

097 

097 



097 

097 

97 



097 

097 
097 



097 
097 
097 



097 
097 
09 7 



097 
097 
097 



097 

09? 

007 



7109 

7200 
7300 



7400 
7500 
7600 



7700 
7800 
7900 



8000 
8l60 
B200 



8 300 
8400 
8500 



8600 
8700 
8800 



89OO 
9000 
91 



9200 
9300 
9400 



9500 
9600 
9700 



9800 
9804 
9900 



09720000 
09720100 
09720200 



09720300 
09?20400 
09720500 



09720600 
09720700 
0Q7?0fl00 



09720900 
09720904 
972 1000 



09721100 
09721120 
09721200 



09721300 
09721400 

Q97215 QQ 



09721510 
09721519 
09721570 



09721580 
09721600 
972 1700 



09721800 
09721900 
09722000 



09722100' 

09729200 

O 9 72 2 3 P0 



0100*1 
0100*1 

01.00* 3 



oiouo 

OlOHO 
010212 



0.105*3 
0107'3 

oi ion, 



011212 
0112*3 
011310 



0U3I0 
0X13*3 

0114*3 



0U5«1 

0117*3 
011913 



011.9*3. 
012012 
Q 1 2 5 i 3 



0126*0 
0126*0 
01 2 6*0 



0128*0 
0130* 1 

o i. nu 



0132*0 
0132*2 
013212 



0135*0 
0136*0 



0138*2 
0139*0 
013910 



0141*0 
014 3.1.2 
0144*2 



0146*3 
0148*0 



0149*0 
0151*1 
1 5 6 *1 



015612 
015710 
Q H57»n 



0159*2 

0160*0 
0160*0 



016012 
016012 
Q162 I0 



0162*2 
0163*3 



i 



16712 

016812 
1 69 * 



1 
2 
3 
4 
5 

6 
7 
8 
9 
10 
11 ! 
12 
13 
14 I 
. 15 



45 
46 
47 1 
48 

50 ( 

51 

52 

53 1 

64 

65 

6.1 

52 



• • 



wri tback i* cworusleft<buffsize); xbuffer 
end; 



>r 



ENO< 



IF NUMBUF * 1 THEN 
IF (DAbJCOUNT) AND 
TF MP-Mfni QftfWUMBnr*p IMX 



(DaS>8CQUNT> THEN XBLOCK 
1 INX NOT 21 1 COUNT 



IS 



W£ 



PRESENT 
N_ 



09722400 T 017152 



09722500 T 0175 
09722600 T 0175 



09722700 
09722600 



0175 
0177 



09722900 T 0l79 



DAS J* 
COUNT.. »■. C.RCQUNT 
UQ BE GI N 



COUNT * i; 
01V NUMREC) 



+ . NUMBUF - i; 



09723000 T 0184 
09723100 T 0186 
Q9723200 T 0190 



IF NOT OONE THEN WAITIQ; 
IF NOT PRESENT THEN 
IF wnt R£ Cn T Nfi 



09723300 T 0190 
09723400 T 0193 
09723500 T 0196 



10 

11 

12 



IF 



THEN MQVEREC ELSE SETPRESENTSBIT; 
QAS x NUMREC .$ LSU8U 
THLN RKFD ELSE RQTATEBUF/ __ 



09723600 T 0197 
09723700 T 0202 
Q97238QQ T 02Q3 



13 
14 
15 



ENO UNTIL (OAS I. OAS + 1) > COUnTJ 
IF NOT HOWOPEN THEN WAITIQ; 

RCQUMT f PAS «. HAS - WHM ftUri 



09723900 T 0207 
09724000 T 0209 
09720100 T 02-Li 



16 

17 



NUMBUF J* B.U.FFNU.MJ 

END else 

IF HQrtUPFN QR (NUMREC > \ ) 



XMUST BE RANDOM 



09724200 T 0216 
09724300 T 0220 

09724400 T 0?20 



19 
20 
21 



$ SET OMIT » 
REREAD* 



NOT SHAREDISK 
THEN BEGIN 



X INPUT OR SHOCKED OR LOCK 



09724409 T 0222 
09724500 T 0222 
0972<t550 T — 0223 



22 
23 
24 
25 
26 



$ SET OMIT a NQT 



if numbuf ■. 1 
begin if 
sharedisk 



THEN X JUST 
NOT DONE THEN 



READ DONT TRY TO FIND 



27 



waitio; 

reed; 
RCUuNT«-ru.s; 



09724600 t °223 
09724700 J 0224 
09724709 T 0226 



09724750 T 0226 
09724760 T 0229 
09724770 T 02 3| 



28 
29 



30 



ELSE 



END 
BEGIN 
FOR T 



»- 1 STFP 1 UNTIL NUMBUF "1 



0972-47.80.' T 0232 
09724800 T 0232 
'724900 



0972' 



0232 



31 
32 
33 



$ SET QM TT * SHAR E PISK 



DO XFIND BLOCK IN CORE 

IF M£M|;dLOcCTJ INX NOT 23 • DAS THEN 



09725000 T 0236 
09725100 T 0237 
0079St09 T 0240 



34 
35 
36 

37 ~ 
38 



s 



POP 
_&£JL 



OMIT 
OMI T 



go flqte; 



NOT SHAREOISK 



09725H0 T 0240 
09725m T 0241 
09725119 T 0?4l 



* SET OMIT « NOT SHAREDISK 



39 



IF NOT DONE THEN 

waitio; 



09725300 T 024 1 
09725309 T 0243 
097 2 53 00 T 0243 



41 
•2 



flote. 

s s e t 



OMIT « NOT SHAREDISK 



REEUi 
IF CODE 



XMAKE PRESENT IN CORE 



< 2 



♦5 



THEN BEGIN 

IF WRITBACK 
BEGIN 



THEN 



XREAD OR 



48 



writ; 

oas l* rcount div numrec; 

ENQ EL S E r qtaTe buf ; 



52 



while mcmct-xp inx not 2] $ 
do rotatebuf; 

BCOUNT l» OASJ 



OAS 



end; 



END- 



54 



end; 



seekrtni 



56 



ENOFILE I* FALSE; 



WQRDSyEf,f l.f,. 



» ((RCOUNT MOD NUMREC) * NUMHPS); 



09725400 
09725500 
09725549 



T 0246 
T 0247 
J 0247 



09725600 
09725700 
Q9725BQQ 



T 0247 
T 0248 
1 249 



09725900 T 0249 
09726000 T 0251 
097 26100 T 02 52 



09726200 T 0254 
09726300 T 0256 
09726400 T Qg58 



09726500 T 0259 
09726600 T 0259 
09726700 T 0259 



09726800 T 0259 
09726900 T 0259 
09727000 T 0262 



N 

2 
3 



STABTt 



LASTDQNE *■ PALSt; 

IF COOL * 2 THEN PCXITM 

fno seek; 



* PREVENT SERIALIQ OVERWRITE 



START YEE HERE Y E E Z S K C R S »***» 
FTR t« «fFLQC l» CNOT 9) INiX PLOP! 



0972^100 
09727200 
097,27 300 



09727400 
09727500 



0266M 
0268*3 
027011 



027012 
027012 
027110 



IF 



NOT DISK 
BEGIN 

■■ ■ ■ I m g ■*fc*^p-ii in i i T i 



THEN 
PC ,RCW»Lfin)# 



09727700 
09 727800 
09727900 



FIB * ABS(COOE)i 
DEST *» P(.0LOC#LO0); 
as i« NtiMwns; 



09728000 
09728100 
09728200 



027511 
027613 
2 77 * 1 



0278*1 
0279 1 1 
0880*1 



16 
17 
18 



19 
20 



23 
24 
25 
26 

27 



CODE *» i; 

RCW : = ...O.LQC is NUMWQS «a o; 

PCtFLOCJ'OUP'Of XCHf OFXfSTFMMNXfSTS>; 



Jl 



GO TQ P<008QHONONOSK>; 

end; 

iXUMSJAAXl 



09 728 300 
09728400 
09726500 



028110 
0281 * 3 
2 8 3 *2 



$ SET 



t a 

OMIT » NOT SHAREDISC 
IF CODE. [UU THEN 

BFGTN C0Pr»ABStCOnF)i 



09728600 
09728700 
09728800 



S SET OMIT 
l£ 



■ not shareoisk 
end; 
cndf > 2 thfn if cqdf j 6 then tfrm(25) 



09 728804 
097 28815 
09728820 



0286*1 
0286*3 
0286 t a 



0288 '0 
028820 
02fla»3 



XlX 



XWrHE block 



09728824 
09728890 
09728900 



0290*1 
0290* 1 
Q?90*l 



BEGIN IF HOwOPEN > 1 THEN TERMC37); 

IF NOT OPENIO THEN IF HOWOPEN THEN TERMC 34tR£VEp5»E) ; 
* SFT OMIT s iMHT SHAHFHISK 



go eofsetck; xwrites block* immeoiate-nq rotation 
end; 

IF HflWnPFN > 1 THFN TFRMfJj * rOpF)« , 



09728930 
09728960 
097 28 979 



0294*0 
0297 « 3 
0303»2 



09729000 

09729050 
09729100 



0303*2 
0304*0 
304*0 



28 
29 

30 



33 



36 

37* 



« 



•6 



•8 



IF C00E ■ 2 THEN 

BEGiN RCOUNT*(iF K£Y»0 THEN ELSE P(KEY*DiB 0,LQD)) - i; 
IF (RCUUNT<l„SUfU ? UR (RCOUNTHSUBU ) THEN 



_!£. 



GO EOFSETCK ELSE. SEEK* 

end; 

NAT QFENIO THFN ; 



09729200 
09729300 
Q97294QQ 



307*3 
0308*2 
03X44-3 



1 ONLY SEEK VALIO RECS 



09729500 
09F29600 
Q97297Q0 



0317 
0319 
Q319 



IF (1 " CODE) /HOWOPEN THEN TERM (PROPER )J 
IF SERIAL THEN * PROCESS SERIAL FILE 

BEGIN 



09729800 
09729900 

09*30000 



320 
0326 



IF OPENIO THEN GO 
IF (8C0UNT<LSUBL) 
HOVEBECJ 



SEHIALIO; 

OR (RCOUNT>USUBU) 



then go eofsetck; 



09730100 
09730200 
09730300 



0328 
0330 
0334 



IF 
IF 
IF 



REVERSE THEN GO REAOREV; 

CODE THEN IF RCOUNT > TCTREC THEN TOTREC 

(WQRUSLEFT Is »PCDUP) - NUMWQS) S THEN 



«« RCOUNT; 



BEGIN *BLOCK IS EXHAUSTED 
IF CODE' THEN WRIT ELSE 
IF (DAS *» BCOUNT ± NUMBUF) * NUMREC S LSUBU THEN 



09730400 
09730500 
097306 00 



09730700 
09730800 
09730900 



0335 
0336 

Q3>0 



0343 
0343 
346 



BEGIN 

reed; 

COUNT 



** PAS; 



XREAD AHEAD TO KEEP 
%6UFFERS READY 



09731000 
0973U00 
O973ZP0Q 



0350 
350 
352 



♦9 
SO 

5' 
52 

a 

M 



END ELSE R0TATE8UF; 
BCOUNT !■"■* PCOUP) ♦ U 



09731300 T 0353 
09731400 T 0355 
97 3150 T 011Z 



"eadRfv* 



RCOUNT >* *PCDUP) 
IF FALSE THEN 
. BEGIN 



+ i; 



SB 

se 



IF (MQROlLEfT 
BEGIN 



% THIS CODE EXECUTED ONLY FOR T A PE 
* PPfcN-RE.YLRSF, EQUALED TQ n i§K 



*P(WuT) "■ NUMWOI) i THEN 
I BLOCK IS EXHAUSTED 



09731600 T 
09^31700 T 
0973A60Q 1 



IF CPUS ,» BCOUNT a NUMBUf) x NUMRFf. i LSUHL THEN 



09731900 T 
09F32O00 T 
0971?! 00 T 



0357*0 
035910 

Q359J1 



359 



039*11 

0162*1 



• ■■• 



BEGIN REED; COUNT «• 
END ELSE RCJTATEBUF; 
RCOUNT t *£X£UxiU - U 



das; 



END; 
RCOUNT <• *P(DUP) 
END REVINPUTJ 



i; 



% % 



IF KEY * 

PCOfRTN); 
_M_D Q_£ S_ 



THEN ..P.C.RCUU.N.UK£Y#DI.B G#ISD); 



E R I A L 



J_Q N F X T *_JL 



SERIAl,lO« 



RCOUNT ■* *P(DUP) • <T * (CODE AND LA5T00NE))i 



12 



IF T THEN WORDSLEFT 

IF WQRUSLEFT < 

BEGIN 







*P(DljP> 
THEN 



* NUMWDS ELSE 



IF 



IS 
16 

17 



19 

20 



(OAS t« 

BEGIN 

REED? 



8C0UNT + 



S BLQ CK IS EX H A U S T E D 



NUM8UF) x NUMREC 

XANOTHER BLOCK 
_X IN SIGHT 



S TOTREC THEN 



COUNT .1* DAS; 

END ELSE 

IF WR I TBACK TH EN 



it WRITE CURRENT BLOf.K 



21 



WRIT 

ELSE X 

RfiTATFRtiri 



X LESS WE FORGIT 
OR USE NEXT BUFFE R 

% BFCAtJSE ITS THERE 



23 



24 

a 



JJL 



BCQUNT 
END* 

RC OU NT > 



i= *Ptoup) + i; 



TQTRLC THEN 



28 
27 
28 
29 
JO 



IF CODE THEN TOTREC «• 
BEGIN C00E*32J 



rcount else 

go sioeod; End; 



MQVEREC; 



SIOEOD* 



IF UURDSLEFT ** *P(0UP) - NUMWDS) i THEN 

IF CODE THEN X WROTE LAST RECORD 

BEGIN X QF YEE BLOCK 



IF cdas*»bcount*numbuf>*numrec 

BEGIN XREAD 

writback i» true; xkeep 



s TOTREC then 

AHEAO TOO 
BUFFERS FliLL 



M 
35 



36 

37 ' 



reed; 

COUNT ** 
IM P F L 9 E 



das; 



X WRITE BLOCK NOW 



writ; X 
BCQUNT l* *P<OUP) ♦ 
END ELSE 



• • « A 

i; 



WRITE IN TIME,, i 



41 
»2 



else if code then wrltback ** true; xnot full blk 
lastdone »* not code; 
if key i then p (rcount * \» +>k£y»d ib 0m5p)> 



END 



RCOUNT ¥« *PCOUP) ♦ it 

IF CQ0E»32 THEN GO EOFSETCK ELSE P(0>RTN>; 

SERIAL; % END OF ALL SERIAL PROCESSING 



47 
18 
49 

50 



%%% RANDOM AND RANDOM 10 START HERE %%% 

RCJJUNT * = C1F KEY = THEN ELSE P(KEY#DIB O'LOD)) - 
IF CRCOUNT<LSUBL) OR CRCOUNT>LSUBU? THEN GO EOFSETCK; 



i; 



IF 



RCOUNT > TOTREC THEN 

IT CODE THEN TOTREC 
BEGIN CDOE * 32 



RCOUNT 

go rndeqd; 



52 



$ SET OMIT » NQT SHAREDISK 

IF (DAS «• RCOUNT DIV NUMREC) 
___ IF (NUMREC * CODE) THEN 



* BCOUNT THEN 
SEEK ELSE BCQUNT 



das; 



55 

56 



RNOEOO* 



*1 



■-» 



MGVERECi 

WOR&SLEFT ■•■•■ *PCDUP> ••' NUMWQSJ 

1L_ 



09732200 
09732300 
Q97H?4QQ 



09732500 
09732600 
09732700 



0366*2 
0369:i 
H 7 1 * 
037310 
037310 
0375*0 



09 7 32800 
09732900 
09733QQQ 



0375»0 
37.910 
037912 



09733100 
09733200 

09733300 



0379*2 
037912 
3fl 3 M 



09733400 
09733500 
09733600 



097 33700 
09733800 
0»733900 



038613 
38912 
0391IQ 



03«1*2 
0395*1 
0399*3 



097 34000 
09734100 
00734300 



397*0 
0398*1 
Q 398»JL 



0973*300 
09734400 
97345 Q0 



039913 

0401*0 
Q ft O HO 



09734600 
09734700 
09734600 



0403*0 
0405«0 
0405*0 



09734900 
09735000 
09735100 



0406*1 
0409*0 
0410*3 



09735200 
09735300 
09735400 



0412*0 
0414*2 
0415*1 



09735500 
09735600 

Q 97 357Q Q 



0415*3 
0419*2 
0420*0 



09735800 
09735900 
09736000 



09736100 
09736200 
09736300 



0422 J 2 
0424*0 
0425*1 



0425*1 
0427*0 
0420*0 



09736400 
09736500 
09736600 



0429*0 
0433*1 
0436*0 



09736700 
09736800 
09736900 



0440*2 
0442*2 
0444*1 



09737000 
09737100 
09 7 37 ,2Qq 



09737300 
0973740.0 

09737500 



0444*1 
0444* 1 



0453*2 
0454*3 

045712 



09737549 
09737600 
09737700 



0459*1 
0459*1 
0461*3 



09737600 
09737900 
09738000 



0466*3 
0468*0 
0070*0 



16 
17 
18 
19 



22 
23 



24 
25 



28 
29 



ai 

32 
33 
34 
35 
36 
37" 



«2 



45 



47 
48 



49 
50 



51 
52 
S3 



SB 
M 



$ SET OMIT 



IF NUMHEC * 1 
MOT ShAREDISK 

THEN JibfilN 



XUNBLOCKED OUTPUT 



09738100 
09738109 
097 38 1 2 



$ SET OMIT 



NOT 



WRIT* 
SHAREDISK 
ENn ELSf 



09738140 
09?|8 t#9 



0«70»1 
0471*2 



047211 

047310 
04 71IQ 



WRITBACK* TRUE; 
IF C0QE*32 THEN PCO'RTUJ 



EHFSFTCM 



IF CWOROSLEFT < BUFFSIZE) ANO 

(HOT(HOHOPEN) OR (OPEMO AND WRITBACK)) 
THEN BEGIN , 



09738300 
09738400 
09738500 



09738600 
09738700 
Q973flflQQ 



0473*0 
047610 
0477 t 3 



0477*3 
0479*2 
0483*0 



NUMBUF 

writ; 



J- i; 



XWRITE LAST BUFFER 
«AND CHECK FUR 
XERRQ R S 



09738900 

09739000 
09739100 



0484*0 
0486*2 
0488*0 



NUMBUF «» buffnum; 
IF NOT PRESENT THEN 
B£f.TN : 



09739g00 
09739300 
09739400 



0490*2 
049313 
0495*0 



$ SET OMIT * NOT 



setpresentsbit; 
shareoisk 

error; 



09739500 
09739549 

097 39600 



0495*2 
0497*0 

0497*0 



END end; 

IF CODE • 6 THEN P(0>RTN); 
TF SERIAL AND CODE * 2 THEN 



i QMV 1 EOF ALLOWED 



09739700 
097 39730 
0973 9 800 



0498*0 
049810 

0499 \ 3 



IF ENPFILE THEN 
IF CODE * 32 THEN 
BEGIN H » WA; 



TENM(ib) ELSE ENDFILE ♦ TRUE' 

X CLEAR >QRK AREA 
* IF READ BEYOND EOF 



09739900 
09740000 
Q974Q1QQ 



0502*1 
0508*2 
0509*1 



_1F_ 



end; 

CQOF P 



FOR RT ♦ STEP 1 UNTIL CNUMWOS-1) DO HCRT3 * 0* 
2 THFN % LFT PR PfiRA* KNOW ITS eQF 



09740200 
09740300 
09740400 



0512*0 
0518*0 
0518*0 



$ SET OMiT = 



BEGIN 

NOT ShAReplSK 



09740410 
09740419 

Q974C430 



%%% END OF 



END ELSE 

lastdqne ♦ false; 
eof checking 



% PREVENT SERJALlO OVERWRITE 



09740440 
09740500 

09700600 



0518*3 
0519*1 



0519*3 
0519*3 

05 22*3 



END OF COBOL DISK InTRINHCS; 

procedure interrupter; % execution forced by 



software interrupt tope at 



09740700 T 0522*3 

SIZE* 0523 

09800000 T 0000*0 



WORDS 



BEGIN 

RFAL 



APPRs+1. 



% INITIATE. INTERRUPTER 
% INTERRUPTS IN SFINTQ. 



START OF REL 
PROCESSES ENABLED 
AN TP1 HAS JUST BfEN 



SEGMENT* DISK 
09600100 
0OBP0900 



ADDRESS * 

T 0000*0 

JE QQQQlQ 



00682 



I = + 2» 

N0T00NE-+3* 

P QNE=+4; 



* EXECUTED' POINTING REG-F AND REG'S TO ThE 
% STACK COPY OF THE OLD INCW. 



09800300 
O98OO4OO 
09800^00 



0000*0 
0000*0 
0000*0 



REAL PERF0RNGEN«13J 
ARRAY TSKA »22C*3» 
% CONTENTS 



XLF- 



% TASK ARRAY 
TSKAI81* - 



09800700 
09800750 
09800755 



0000*0 
0000*0 
0000*0 



% Cl»l]=l IFF INTERRUPTER HAS JUST RUN AND 

% SFINTQ IS NON-EMPTY 

it C2IM«1 IFF SFINTQ IS NON-EMPTY 



09800760 
09800765 

09800770 



OOOO'O 

0000*0 
0000*0 



% t3U3*i IFF INTERRUPTER IS RUNNING 
% C4S13* SFINTQ INTERLOCK BIT 
J fFFI 9 ADftRESS DF DLQ IRC.W 



09800775 
09800780 
09800785 



0000*0 
0000*0 
0000*0 



sri nt a 



% tCF] s RELATIVE PRT ADDRESS OF FIRST IN LINKED 
* LIST OF DECLARED INTERRUPTS 
_ »27[ * 1» X SQFThARE INTERRUPT— QUEUE- 



09800790 
09800795 

Ofl aopa n o 



0000*0 
0000*0 
000,0*0 



PRTBASE 
LABEL AGAIN! 
DEFINF TMASK « 



■io(#ii 

y2nnnQnoononoono<; 



09800900 
09600920 

09800940 



0000*0 
000010 

0000*0 



T< 



1 
2 
3 
4 
5 

6 

7 

8 

9 

10 

11 

12 

13 

14 1 

16 

16 

17 1 

18 

19 

20 ^ 

21 
22 
23 ( 
24 



25 

26 | 

27 

28 

29 { 

30 

31 

32 (j 

33 

34 

35 i 

36 

37 

^ 

39 

40 

41 i 

42 

43 

44 \ 

45 

46 

47 i 

48 

49 

50 1 

51 

52 

53 ( 

64 

65 

54.4 



• « 



>r 



2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 



15 
16 
17 
18 



19 
20 
21 
22 
23 
24 



26 
26 
27 
28 



30 

31 ' 



32 
33 



• 
• 
• 



34 
35 
36 

37" 
38 



40 
41 
42 



• 



43 
M 
45 
46 
47 
W 
•9 
SO 
51 
52 
53 
54 
55 
56 



A 



AfiATlSI I 



********SjART hERE***** ******* 

TSKAC83 «- ABS(*P(DUP)) * 1 [3I47UJJ 

IF N O T T S K A L 83. UU 3 Th E N PC E T S K A t e J 1> IMA S k>2» C QM» PE l » PE L* * 
TSKAC8)»U*13 ♦• O; 
P(0#0*0»0)i 
WHTI.F HSFINTQ.C8M01 OQ 



09800950 
09800955 

09 6 97 



BEGIN IF SFJNTQCI3/0 ThEN 

IF MUFlNTQ[I3 + n<0 

THEN NOTnONE + 



JL 



BEGIN 



ELSE 



* valid entry 
x link word 

% SKIP nlSARLFD INTfRRLPT 



09800980 
09801000 
09801 100 



OOOO'O 

oooo*o 

00 02*3 



0006*1 
0008*3 
0009*3 



AODR ♦■ SFXNTQCI3J 

TSKAEH3 » *P(DUP3 OR IMASki 



X PERFORM ENABLED INTERRUPT 



09801150 
09801200 
09601300 



P(MKb#AUDR-pRTBASE,CCF3*0»PERFORMGEN); 
IF NOT T.sk.AC8i..[4ll3 THEN 

PUTSKAC8 3 3,IMASK,2,COMjDbL,DEL)J 



09801400 
09801410 
Q98Q142Q 



0011*3 
0012 i 3 
0015*1 



0016*1 

0016*3 

0020*0 



TSKAt83.U»l3 *■ 

SFiNTflcn * 0; 



0; 



09801450 
Q980U60 
09flnl470 



END / 



end; 



09801480 
09801500 
09801600 



T^ 

T 

-T— 



0022*0 
0024*1 
00 35*? 



IF DONE THEN BEGiN I «■ DONE «■ NOTDONE 

TSKAC83.CH43 «• 12xN0TD0NE ♦ 1* 
P(47*CQM); 



♦ Oi GO AGAIN; ENDj 



09801700 
09801800 
98 Q1 90g 



0027*3 
0030*1 

ooana 



END INTERRUPTER; 



09801950 
09802000 
9802100 



0032*1 
0032*1 
0033*2- 



0035*0 
0038*0 
0041*2 



COMMFNT nO NOT PUT ANY nEfHRATlUNS P A ST TH]S POjNT OR TH£ CO"™"! .. 



STATE PROCEDURE wH ATlNTRNSlC WILL PROBABLY HANG THE SYSTEM* 
PROCEDURE WHATINTRINSic; 



09802200 T 0042*0 

SIZE' 00*3 WORDS 
99998000 T 0000 *0 



99998010 
99998020 



OOOOiO 
0000*0 



BEGIN 

LABEL L; 

PCXIT); P(,L*DEL)i 



Start of rel segment* disk address = no^ao 



L**» 

"INTRINS", 
M£S P6"># 



99998030 
99998040 
99998050 



0000*0 
0000*0 

OQon*n 



H XV.3.PP"# 
X PATCH LEVEL 



99998100 
99998200 
999981 00 



ON NEXT CARD PLEASE 



* SET OMiT » NOT (TIMESHARING) 

"* «; 

ENn WHATtNTRtNSICJ 



99998400 
99998500 
99,999000 



0000*3 
0001*0 
Q0Q2*O 



99999^00 T 
99999090 T 
96000000 T 



0003*0 
0004*0 
0004*0 



0005*0 
0005*0 
QOQ flin 



END. 



NUMBER OF ERRORS DETECTED ■ 000. COMPILATION TIME « 1451 SECONDS, 
PRT SIZE»250 BASE ADDRESSbOOOO CORE REQ«0000 DISK REft*20550 



SIZE* 0007 WORDS 
99999990 T 0000*0 
SIZE= 0000 WORDS 



56 ' 
5? 



